More

    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.

    Dernières articles