Comment exécuter une macro en même temps sur plusieurs fichiers de classeur?

Cet article, je vais expliquer comment exécuter une macro sur plusieurs fichiers de classeur en même temps sans les ouvrir. La méthode suivante peut vous aider à résoudre cette tâche dans Excel.

Exécutez une macro en même temps sur plusieurs classeurs avec le code VBA

Exécutez une macro en même temps sur plusieurs classeurs avec le code VBA

Pour exécuter une macro sur plusieurs classeurs sans les ouvrir, veuillez appliquer le code VBA suivant:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez la macro suivante dans le Module Fenêtre.

Code VBA: exécutez la même macro sur plusieurs classeurs en même temps:

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

Notes: Dans le code ci-dessus, veuillez copier et coller votre propre code sans le Sol cap et End Sub pied de page entre le Avec Workbooks.Open (xFdItem & xFileName) et Terminer par scripts. Voir la capture d'écran:

3. Puis appuyez F5 clé pour exécuter ce code, et un Explorer fenêtre s'affiche, veuillez sélectionner un dossier contenant les classeurs que vous souhaitez tous appliquer cette macro, voir capture d'écran:

4. Et puis cliquez OK bouton, la macro souhaitée sera exécutée à la fois d'un classeur à d'autres.