For For Next Next

Out of category
1

Bonjour peut on faire deux boucle For Next ?

ma macro fontionne soit a une ou l'autre mais pas les deux en meme temps!

2

Bonjour,

Si tu peux copier ton code, ca aiderai pour comprendre le problème

3

J'ai fait une boucle while et une autre For pour reglé mon problème 

= 1
            
          While i <= iT - 1
            For a = 1 To swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Set swSheet = swModel.GetCurrentSheet
                ' Pour enregistrer la feuille en PDF
                Set swModelDocExt = swModel.Extension
                Set swExportPDFData = swApp.GetExportFileData(1)
                swExportPDFData.ViewPdfAfterSaving = False
                nFileName = Path & "\" & vNameConf(i) & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nFileName, 0, 0, swExportPDFData, lErrors, lWarnings)
            Next a
            'MsgBox i
            i = i + 1
            
           Wend

Mais j ai mon idé de depart etait:

For i = 1 To swModel.GetConfigurationCount
            For a = 1 To swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Set swSheet = swModel.GetCurrentSheet
                ' Pour enregistrer la feuille en PDF
                Set swModelDocExt = swModel.Extension
                Set swExportPDFData = swApp.GetExportFileData(1)
                swExportPDFData.ViewPdfAfterSaving = False
                nFileName = Path & "\" & vNameConf(i) & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nFileName, 0, 0, swExportPDFData, lErrors, lWarnings)
            Next a
           Next i