macro qui mance les macros d'un dossier

jeromear · 15 Janvier 2010

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.

Code:

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 · 15 Janvier 2010

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 · 15 Janvier 2010

Re : macro qui mance les macros d'un dossier

Bonjour,

Code:

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 · 15 Janvier 2010

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 · 15 Janvier 2010

Re : macro qui mance les macros d'un dossier

Re,

Oui et si tu veux enregistrer sans demande:

Code:

Wbk.save
wbk.close

Si tu ne veux pas enregistrer:

Code:

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

A+

jeromear · 15 Janvier 2010

Re : macro qui mance les macros d'un dossier

Merci beaucoup Hasco pour ton aide et tes explications tout marche 🙂

macro qui mance les macros d'un dossier

jeromear

XLDnaute Junior

Paritec

XLDnaute Barbatruc

Guest

Guest

jeromear

XLDnaute Junior

Guest

Guest

jeromear

XLDnaute Junior

Discussions similaires

macro qui mance les macros d'un dossier

jeromear

XLDnaute Junior

Paritec

XLDnaute Barbatruc

Guest

Guest

jeromear

XLDnaute Junior

Guest

Guest

jeromear

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency