Pb sous VBA (urgent)
charly2812
-
Lupin.A -
Lupin.A -
Pb sous vba.
alors voila le topo:
j'ai un premier classeur dans lequel j'ai une commande VBA (commandbuton1_click()) qui me permet de faire une actualisation d'une feuille.
j'ai 7 autres classeurs identiques avec a chaque fois la meme commande.
je voudrais a l'aide d'un autre classeur regrouper l'execution des commandes sur un seul bouton, cad qu'en appuyant sur le bouton j'ouvre les 8 fichiers puis j'execute les commandes d'actualisation. pas de probleme pour ouvrir les fichiers, mais je ne sais pas comment faire pour le bouton ultime!!!
merci de votre aide.
alors voila le topo:
j'ai un premier classeur dans lequel j'ai une commande VBA (commandbuton1_click()) qui me permet de faire une actualisation d'une feuille.
j'ai 7 autres classeurs identiques avec a chaque fois la meme commande.
je voudrais a l'aide d'un autre classeur regrouper l'execution des commandes sur un seul bouton, cad qu'en appuyant sur le bouton j'ouvre les 8 fichiers puis j'execute les commandes d'actualisation. pas de probleme pour ouvrir les fichiers, mais je ne sais pas comment faire pour le bouton ultime!!!
merci de votre aide.
2 réponses
Bonjour,
Une fois le fichier maitre ouvert ( i.e. a l'aide d'un autre classeur ), utiliser l'instruction :
Application.Run "Fichier_1.xls!Module1.Routine_Test"
et ainsi de suite pour les autres classeurs :
Application.Run "Fichier_2.xls!Module1.Routine_Test"
Application.Run "Fichier_3.xls!Module1.Routine_Test"
Application.Run "Fichier_4.xls!Module1.Routine_Test"
Application.Run "Fichier_5.xls!Module1.Routine_Test"
Application.Run "Fichier_6.xls!Module1.Routine_Test"
Application.Run "Fichier_7.xls!Module1.Routine_Test"
Application.Run "Fichier_8.xls!Module1.Routine_Test"
Si le bouton est sur une feuille :
Application.Run "Lien2.xls!Feuil1.CommandButton1_Click"
Lupin
Une fois le fichier maitre ouvert ( i.e. a l'aide d'un autre classeur ), utiliser l'instruction :
Application.Run "Fichier_1.xls!Module1.Routine_Test"
et ainsi de suite pour les autres classeurs :
Application.Run "Fichier_2.xls!Module1.Routine_Test"
Application.Run "Fichier_3.xls!Module1.Routine_Test"
Application.Run "Fichier_4.xls!Module1.Routine_Test"
Application.Run "Fichier_5.xls!Module1.Routine_Test"
Application.Run "Fichier_6.xls!Module1.Routine_Test"
Application.Run "Fichier_7.xls!Module1.Routine_Test"
Application.Run "Fichier_8.xls!Module1.Routine_Test"
Si le bouton est sur une feuille :
Application.Run "Lien2.xls!Feuil1.CommandButton1_Click"
Lupin
