éxécution auto de plusieur macro

[alfonso]

bonjour à tous

dans un fichier excel, j'ai plusieur feuille qui ont chacune une macro qui porte le meme nom, et j'aimerais que ces macros s'éxécute à l'ouverture du fichier excel

Private Sub Workbook_Open()
mail_lotus
End Sub

j'ai utilisé le code ci-dessus qui mache lorsque j'ai une macro
mais quand j'ai plusieur macro avec le même nom ca ne fonctionne pas

erreur de compilation sub ou fonction non définie

quelqu'un à la solution ???

merci

 

[Spitnolan08]

Re : éxécution auto de plusieur macro

Bonjour,

Avec ce que tu nous dis on ne sait pas grand chose...
Une solution, si j'ai quand même compris : Tu donnes un nom différent à chaque macro et tu les appelles à la suite l'une de l'autre.

Private Sub Workbook_Open()
    mail_lotus1
    mail_lotus2
...
    mail_lotus50
End Sub

Cordialement

 

[pierrejean]

Re : éxécution auto de plusieur macro

bonjour alfonso

A tester:

Private Sub Workbook_Open()
For Each sh In Sheets
  Application.Run sh.Name & ".mail_lotus"
Next sh
End sub

Edit: Salut Spit

 

[alfonso]

Re : éxécution auto de plusieur macro

merci pierrejean c'est exactement ce que je voulais

spitnolan08 ton code aussi fonctionne mais je dois garder le meme nom pour chaque macro

merci

 

[tototiti2008]

Re : éxécution auto de plusieur macro

Sinon, un peu tard mais :
Private Sub Workbook_Open()
Feuil1.mail_lotus
Feuil2.mail_lotus
Feuil3.mail_lotus
End Sub

 

[alfonso]

Re : éxécution auto de plusieur macro

re bonjour

alors j'ai remarqué un peu tard qui si je change le nom de mes feuilles la macro ne fonctionne plus car il ne la trouve pas

comment je peux faire

Private Sub Workbook_Open()
For Each sh In Sheets
Application.Run sh.Name & ".mail_lotus"
Next sh
End sub

 

[tototiti2008]

Re : éxécution auto de plusieur macro

Si tu changes le nom des feuilles dans Excel mais pas dans VBE, utilise ma version (voir plus haut)

 

[pierrejean]

Re : éxécution auto de plusieur macro

Re

La macro peut etre bloquée si une feuille ne comporte pas la macro , mais normalement elle tourne quels que soient les noms de feuille !!!

Edit : rectification:

Tester:

Private Sub Workbook_Open()
For Each sh In Sheets
  Application.Run "Feuil" & sh.Index & ".mail_lotus"
Next sh
End Sub

Qui devrait tourner apres changement de nom

Ps: Salut Tototiti

 

[tototiti2008]

Re : éxécution auto de plusieur macro

Ah ben oui... j'avais pas bien regardé ton code, PierreJean
En effet, quel que soit le nom de la feuille, ça doit marcher...

 

[alfonso]

Re : éxécution auto de plusieur macro

ok cette fois ca fonctionne merci pierre jean

 

[Spitnolan08]

Re : éxécution auto de plusieur macro

Re,

Pourquoi passer par un site extérieur pour un aussi petit fichier ?
Tu le zippes et tu le joints à ton message... en pièce jointe

Cordialement

Edit : ah ben si tu modifies ton message en retirant le lien...
Mais l'essentiel est que tu aies trouvé la solution. Toutefois tiens compte de ma remarque pour la prochaine fois.

Edit 2 : Salut Pierrejean

 

[pierrejean]

Re : éxécution auto de plusieur macro

Re

As-tu testé ma derniere proposition ??

 

[alfonso]

Re : éxécution auto de plusieur macro

j'ai pas trouvé l'endroit pour uploader mon fichier sur le forum

merci bien de votre aide

vous répondez plus vite que moi donc forcément j'ai dus mal à suivre lol