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.