OVH Cloud OVH Cloud

auto_open

2 réponses
Avatar
Fil GOUDE
Bonjour,

j'ai une macro qui traite une série de classeurs. Chacun de ces
classeurs a une macro auto_open. Celle-ci ne s'excute QUE SI ELLE EST
APPELEE 2 FOIS.
Zarbi. Y a-t-il une explication ?

merci :-) Dom

Sub TraiterSerieDeClasseurs

for i =1 to Ubound(TabDesNomsDeClasseurs)
Workbooks.open Filename := TabDesNomsDeClasseurs(i)

ActiveWorkbook.RunAutoMacros xlAutoOpen
ActiveWorkbook.RunAutoMacros xlAutoOpen

Call EnsuiteTraiterLeReste

next i

End Sub

2 réponses

Avatar
Papou
Bonjour
As-tu essayé
Workbooks(TabDesNomsDeClasseurs(i)).RunAutoMacros xlAutoOpen
ou sinon :
Application.EnableEvents = True
ActiveWorkbook.RunAutoMacros xlAutoOpen

ou combinaison des deux ?

Cordialement
Pascal


"Fil GOUDE" a écrit dans le message de news:

Bonjour,

j'ai une macro qui traite une série de classeurs. Chacun de ces
classeurs a une macro auto_open. Celle-ci ne s'excute QUE SI ELLE EST
APPELEE 2 FOIS.
Zarbi. Y a-t-il une explication ?

merci :-) Dom

Sub TraiterSerieDeClasseurs

for i =1 to Ubound(TabDesNomsDeClasseurs)
Workbooks.open Filename := TabDesNomsDeClasseurs(i)

ActiveWorkbook.RunAutoMacros xlAutoOpen
ActiveWorkbook.RunAutoMacros xlAutoOpen

Call EnsuiteTraiterLeReste

next i

End Sub


Avatar
Fil GOUDE
In article ,
"Papou" wrote:

Bonjour
As-tu essayé
Workbooks(TabDesNomsDeClasseurs(i)).RunAutoMacros xlAutoOpen


Je vais essayer. Peut-être que c'est l'utilisation de activeworkbook qui
merdouille

Application.EnableEvents = True


Ca aussi, je vois

ActiveWorkbook.RunAutoMacros xlAutoOpen
Ca oui, je l'ai essayé (voir mon exemple de code ci-dessous)



Merci
:-)


Bonjour,

j'ai une macro qui traite une série de classeurs. Chacun de ces
classeurs a une macro auto_open. Celle-ci ne s'excute QUE SI ELLE EST
APPELEE 2 FOIS.
Zarbi. Y a-t-il une explication ?