macro qui mance les macros d'un dossier

[jeromear]

Bonjour le forum

Tous les fichiers d'un dossier sont équipés de la même macro : EFFACER
D'un autre fichier je cherche à lancer cette macro sur tous les fichiers du dossier.

Sub EFFACER_SUR_TOUS_LES_FICHIERS()
Dim wbk As Workbook, awbk As Workbook
Dim Fich As String
Const chemin = "C:\COMMANDES C&A SEM51\SEMAINE 51\COMMANDES CLIENTS"
  
  Set awbk = ThisWorkbook
  Fich = Dir(chemin & "\*.xls")
  Do While Fich<>""
  Set wbk = Workbooks.Open(chemin & "\" & Fich)
    '
    [COLOR="Red"]Application.Run"EFFACER"[/COLOR]
    '
    wbk.Close
    Set wbk = Nothing
    Fich = Dir
  Loop

Set awbk = Nothing
End Sub

mais cela ne marche pas

 

[Paritec]

Re : macro qui mance les macros d'un dossier

bonsoir Jeromear,
si tu nous disais ou cela coince?
ou un fichier peut-être
pour que application run marche il faut avoir ta macro en xla je crois
a+
papou

 

[Guest]

Re : macro qui mance les macros d'un dossier

Bonjour,

Application.Run "[B][SIZE=3][COLOR=blue]'[/COLOR][/SIZE][/B]" & wbk.name & "[SIZE=3][COLOR=blue][B]'[/B][/COLOR][/SIZE]!EFFACER"

devrait le faire

A+

 

[jeromear]

Re : macro qui mance les macros d'un dossier

Bonjour Paritic, Hasco
Un peu long à repondre car chaqe fichier est assez lourd donc c'est lent.

Merci Hasco, cela marche mieux comme cela
Mais une demande d'enregistrement est demandé pour chaque fichier modifié

 

[Guest]

Re : macro qui mance les macros d'un dossier

Re,

Oui et si tu veux enregistrer sans demande:

Wbk.save
wbk.close

Si tu ne veux pas enregistrer:

'Les deux instructions DisplayAlerts peuvent être mise avant et après la boucle for
Application.DisplayAlerts=False
wbk.Close
Application.DisplayAlerts=True

A+

 

[jeromear]

Re : macro qui mance les macros d'un dossier

Merci beaucoup Hasco pour ton aide et tes explications tout marche