Microsoft 365 Exécuter la même macro de plusieurs fichiers d'un même dossier

sylvanu à dit:

Bonjour TEMAGOULTFARID,

Ci dessous un exemple de code qui scan un dossier pour y trouver tous les fichiers, et les filtre en fonction de leur type. Cela suppose que tous les fichiers soient dans le même dossier.
L'action a exécuter sur chaque fichier est appelée dans la macro que j'ai nommée ActionDésirée.

VB:

Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
    Chemin = "C:\dossier\"             'Définit le répertoire contenant les fichiers, à modifier.
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
    Do While Len(Fichier) > 0
        Call ActionDésirée.
        Fichier = Dir()
    Loop
End Sub

Cliquez pour agrandir...

TEMAGOULTFARID à dit:

Bonjour Sylvanu,
désolé pour la réponse aussi tardive , mais on m'a mis sur autre chose (la pression malheureusement) mais c'est bon, je reviens donc sur cette proposition et malheureusement il y a un bug, je vous met le fichier en pj afin que vous puissiez voir de vous meme.

Cliquez pour agrandir...