Bonsoir à tous,
Salut Robert !
@fouggy je viens d'essayer et ça fonctionne impeccable !?
j'ai créé un classeur EssaiX avec cette macro "ESSAI" (enregistré dans le même dossier)
Sub ESSAI()
MsgBox "ok !"
End Sub
j'ai évidemment adapté le nom de la macro à la ligne:
CO.Application.Run CO.Name & "!ESSAI" 'lance la macro NOMDELAMACRO du classeur ouvert CO
j'ai fais F5 sur Macro1 et le message ok ! est apparue confirmant le fonctionnement de la dite macro !
es-tu certain que ce soit bien NOMDELAMACRO !?
Sub Macro1()
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim F As String 'déclare la variable F (Fichier)
Dim CO As Workbook 'déclare la variable CO (Classeur Ouvert)
CA = ThisWorkbook.Path & "\" 'définit le chemin d'accès CA
F = Dir(CA & "*.xlsm") 'définit le premier fichier avec une extension xlsm ayant CA comme chemin d'accès
Do While F <> "" 'exécute tant qu'il existe des fichiers
If F <> ThisWorkbook.Name Then 'condition : si le nom du fichier n'est pas le nom de ce fichier maître
Set CO = Workbooks.Open(CA & F) 'définit le classeur ouvert CO
CO.Application.Run CO.Name & "!ESSAI" 'lance la macro NOMDELAMACRO du classeur ouvert CO
CO.Close True 'ferme le classeur CO en enregistrant les changements
End If 'fin de la condition
F = Dir 'définit le prochain fichier F avec une extension xlsm ayant CA comme chemin d'accès
Loop 'boucle
End Sub