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

TEMAGOULTFARID

XLDnaute Occasionnel
Bonjour,
je recherche une macro qui m'ouvre plusieurs fichier dans le même dossier "Archive"et exécute une macro ci dessous.Cette dernière referme le fichier automatiquement vie la ligne "Call enregistrement"
par avance , merci de votre aide

Sub Impression()
Nomfeuille = "MP " & Range("a3") & Year(Now()) & " " & Month(Now())
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Month(Now())) = "Fiche imprimée"
Sheets(Nomfeuille).Range("K18") = "Fiche imprimée"
Else
MsgBox ("La feuille " & Nomfeuille & " n'existe pas.")
End If
Call enregistrement
End Sub
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

TEMAGOULTFARID

XLDnaute Occasionnel
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
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.
 

Pièces jointes

  • Sub bouclefichier.xlsx
    79.7 KB · Affichages: 10

TEMAGOULTFARID

XLDnaute Occasionnel
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.
j'ai oublier de vous dire merci
merci et prenez soins de vous et vos proches
 

Discussions similaires