Pb de syntaxe

[jb]

Salut à tous,

j'ai un classeur (lanceur_automatique.xls) qui appelle dans l'une de ses macros plusieurs autres classeurs dans une boucle for. Dans cette boucle, je voudrais lancer les macros "Autpen" de chaque classeur sauf celle du classeur "lanceur_automatique.xls". J'ai deja tapé cette boucle, mais ça ne tourne pas du tout, je crois que j'ai un pb de syntaxe, mais je ne sais pas le résoudre...

Voici la boucle:

For Each classeur In Application.Workbooks
If classeur Is Not "lanceur_automatique.xls" Then
Application.Run "classeur!Autpen"
End If
Next classeur

Si vous voyez où cela peut clocher, merci de me le dire.

A+ et merci

JB

 

[STéphane]

bonjour

Sub j()
For Each Wb In Workbooks
If Wb.Name <> "Classeur3" And Wb.Name <> "PERSO.XLS" Then
Application.Run Wb.Name & "!auto_open"
End If
Next Wb

End Sub

'attention un de mes classeurs s'appelle "Classeur3" sans l'extension parcequ'il n'a pas encore été sauvegardé, sinon il doit porter l'extension

bye
stephane

 

[jb]

merci

merci Stéphane

A+
JB