[VBA-E] Lancement automatique de plusieurs macros dans plusieurs fichiers Excel

Version imprimable

06/05/2007, 15h51
julien75

[VBA-E] Lancement automatique de plusieurs macros dans plusieurs fichiers Excel

Bonjour,

Apres 2 jours de bookinage, je me permets de vous demander de l'aide concernant une macro que je dois realiser.

Objectif : cliquer sur un bouton commande qui va declencher l'execution de 4 macros, l'une apres l'autre, dans differents fichiers Excel construits de maniere identique.

Les 4 macros sont deja programmees et fonctionnent correctement. Elles sont presentes dans chaque fichier Excel concerné (pr info, la premiere va recuperer des infos dans une base de donnees, les autres vont modifier les tableaux du fichier avec les nvelles donnees, mettre a jour les graphs, ...)

Ces fichiers etant nombreux, l'interet de la macro à realiser est de ne pas à avoir ouvrir chaque fichier et de ne pas a avoir a lancer successivement chaque macro manuellement.

Bref, cette macro doit pouvoir, par un clik sur un bouton, lancer successivemnt chaque macros dans ts les fichiers Excel concernés (sans devoir ouvrir prealablement chaque fichier).

Avec le peu de connaissances en VBA que j'ai et les deux bouquins que j'ai parcouru, je suis en train d'essayer d'ecrire un code avec la boucle FOR EACH ... NEXT ... mais je "rame".

Pouvez-vous m'aider ? Avez-vous des conseils, des pistes ?

Merci beaucoup ! ;)

Bonjour julien, bienvenue sur le forum.
Le dimanche n'est pas le meilleur jour pour poser des questions mais bon, je vais essayer de te répondre.
Ça démarre mal, je ne sais pas s'il est possible de lancer une macro se trouvant dans un fichier fermé :(
Par contre pour la méthode consistant à lancer des macros sur plusieurs classeurs, on peut imaginer un lancement différé de chacun. Par exemple, dans une macro tu mets ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub lancerLesMacros() Application.OnTime Now + TimeValue("00:00:01"), "Macro1" Application.OnTime Now + TimeValue("00:00:02"), "Macro2" Application.OnTime Now + TimeValue("00:00:03"), "Macro3" Application.OnTime Now + TimeValue("00:00:04"), "Macro4" End sub Sub Macro1() Application.Run "'Classeur1.xls'!Procédure" End sub Sub Macro2() Application.Run "'Classeur2.xls'!Procédure" End sub Sub Macro3() Application.Run "'Classeur3.xls'!Procédure" End sub Sub Macro4() Application.Run "'Classeur4.xls'!Procédure" End sub
Tu peux déjà tester ça fichiers ouverts... en attendant que quelqu'un te réponde pour les fichiers fermés
A+

Edit
Si tu n'obtiens pas de réponse, tu as toujours la possibilité de placer tes quatre macros dans le fichier actif et qu'elles exécutent leur travail sur les fichiers fermés. Tu as ça ici, par SilkyRoad

08/05/2007, 12h52
julien75

Merci beaucoup pour ces conceils, je vais etudier ça cette apres-midi, et surement vs revenir ds la soiree ! ^^

Bonjour,

Voici le programme que j'ai ecrit grace aux conseils ci-dessus (pr un fichier pr l'instant) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub LancerLesMacrosMAJPCD()
     Application.OnTime Now + TimeValue("00:00:01"), "GetDB"
     Application.OnTime Now + TimeValue("00:00:10"), "coquille"
     Application.OnTime Now + TimeValue("00:00:20"), "general"
     Application.OnTime Now + TimeValue("00:00:30"), "generix"
End Sub
 
Sub GetDB()
    Application.Run "'PCD - X44 CAREG.xls'!GetDB"
End Sub
 
Sub coquille()
    Application.Run "'PCD - X44 CAREG.xls'!coquille"
End Sub
 
Sub general()
    Application.Run "'PCD - X44 CAREG.xls'!general"
End Sub
 
Sub generix()
    Application.Run "'PCD - X44 CAREG.xls'!generix"
End Sub

Une fois lancéé la macro bloque et affiche :
Run-time error '9' : subscript out of range

En cliquant sur debug, elle affiche la macro GetDB en surlignant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub GetDB()
    nom = Sheets("MACRO").Range("E7") ' <= Cette ligne
    Filename = Sheets("MACRO").Range("H4")
    Path = Sheets("MACRO").Range("H5")
    filemodif = Sheets("MACRO").Range("H7")
    truc = nom & " HOURS"
    much = nom & " OVERHEADS"
    '************ fin d'initialisation des variables***************
 
    If Sheet55.Name <> truc And Sheet56.Name <> much Then
        Sheet55.Name = truc
        Sheet56.Name = much
    End If
    '********Fin de test sur l'existence des noms de feuilles****************

Que cela signifie t'il ?

Merci ;)

09/05/2007, 19h43
AlainTech

C'est que la feuille "MACRO" n'existe pas.
09/05/2007, 20h19
julien75

Merci pour ta reponse.
La feuille MACRO existe bien.
Elle est ds le fichier Excel à traiter, different de celui où se situe la macro qui lance automatiquent les 4 autres macros.
Que faire ?
Merci ! ;)
Edit : "le fichier Excel à traiter" correspond à PCD - X44 CAREG dans le code.
09/05/2007, 22h31
AlainTech

Je m'y perds un peu avec ta macro qui lance des macros dans un autre classeur.
Tu peux toujours essayer

Code:

nom = ThisWorkbook.Sheets("MACRO").Range("E7")

Sans garantie.
Je suis sur un serveur où Excel n'est pas installé.
09/05/2007, 22h45
julien75

Merci, je vais tenter d'etre plus clair.

En fait, le code ci-dessus correspond à une macro, dans un fichier isolé, qui a pour but de faire tourner 4 autres macros qui sont dans d'autres fichiers.
La feuille 'MACRO' est dans ces autres fichiers, et contient quelques infos necessaires au bon fonctionnement du traitement des donnees.

Si je fais tourner chaque macro individuellement (GetDB, coquille, general & generix) dans chaque fichier (dans l'exemple, PCD - X44 CAREG), cela fonctionne.

Si je passe par la macro ci-dessus, qui m'evite de lancer les 4 macros l'une apres l'autre dans chaque fichier, le programme bloque.

En esperant avoir été plus clair, merci d'avance ! :)
09/05/2007, 23h02
AlainTech

As-tu modifié ton GetDB comme je te le proposais?

Quand j'ai dit "Je m'y perds un peu", ce n'est pas par rapport à l'explication mais bien sur "Comment VBA gère-t-il le classeur courant, par exemple?".
10/05/2007, 10h56
julien75

De quelle modification parles tu concernant GetDB ? Je n'ai pas vu ta proposition ! 8O
Merci ! ;)
Edit : oups, je viens de la voir, je teste tt ça dans la journee, merci encore !