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

TEMAGOULTFARID · 7 Mars 2020

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 · 7 Mars 2020

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 · 26 Avril 2020

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

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.

TEMAGOULTFARID · 26 Avril 2020

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.

j'ai oublier de vous dire merci
merci et prenez soins de vous et vos proches

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

TEMAGOULTFARID

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

TEMAGOULTFARID

XLDnaute Occasionnel

Pièces jointes

TEMAGOULTFARID

XLDnaute Occasionnel

Discussions similaires