Technique de bouclage dans Excel VBA : Accéder à toutes les feuilles d’un classeur actif

Exemple de code pour le bouclage

Voici un exemple de code VBA qui montre comment parcourir toutes les feuilles de tous les fichiers d’un dossier spécifique.

Sub LoopThroughAllSheetsInFolder()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim sht As Worksheet
    
	' Specify folder path
    folderPath = "C:\Path\To\Your\Folder\"
    
	' Get the first file name in the folder
    fileName = Dir(folderPath & "*.xlsx")
    
	' Loop as long as a file is found
    Do While fileName <> ""
        ' Open a workbook
        Set wb = Workbooks.Open(folderPath & fileName)
        
        ' Loop through all sheets in a workbook
        For Each sht In wb.Worksheets
            Debug.Print "File: " & fileName & " - Sheet: " & sht.Name ' Display the file and sheet names
        Next sht
        
        ' Close the workbook without saving changes
        wb.Close SaveChanges:=False
        
        ' Get the next file name
        fileName = Dir()
    Loop
End Sub

Conclusion

En utilisant des techniques de bouclage, vous pouvez augmenter l’efficacité et la productivité de vos activités quotidiennes. L’automatisation des tâches répétitives permet non seulement de gagner du temps, mais aussi de réduire le risque d’erreurs causées par l’homme.

Essayez de créer un script VBA qui peut vous aider dans le traitement des données, l’analyse des rapports ou même l’automatisation de la livraison des e-mails. En pratiquant et en appliquant les connaissances que vous avez acquises, vous deviendrez plus habile dans l’utilisation d’Excel VBA et pourrez maximiser le potentiel de cet outil dans votre travail.