Exécution d'une macro à partir d'un fichier différent ?

**Zebulon777** · 21/04/2010, 14h42

Je vous explique mon problème.

Actuellement, j'ai plusieurs fichiers excel contenant tous des macros qui s'exécute à l'ouverture du fichier.

Il faudrait maintenant que j'arrive à créer un petite fenêtre permettant de sélectionner via une liste déroulante le fichier à exécuter après avoir saisir une année.

La question est donc de savoir comment lancer l'exécution d'un fichier Excel à partir d'un autre et de passer en plus en paramètre, l'année saisie ?

Je cale.

Merci d'avance pour votre aide.

**sabzzz** · 21/04/2010, 15h35

bonjour Zebulon777,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run "PERSO.XLS!MaMacro"

**Zebulon777** · 22/04/2010, 07h49

Merci, je vais essayé ça ce matin.

Et pour le passage de paramètres ? Comment faire ?

**Zebulon777** · 22/04/2010, 10h35

Bon, pas beau l'avion : ça ne fonctionne pas.

Il exécute bien le fichier XLS suivant, à chaque fois j'ai un message d'erreur

"Erreur d'exécution 1004, Impossible de trouver la macro"

Allo, Docteur ?

**sabzzz** · 22/04/2010, 13h08

bonjour Zebulon777,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultat = Application.Run("Perso.xls!Masum", 2, 4)

**Zebulon777** · 22/04/2010, 13h32

Merci Isa, mais ça ne fonctionne pas.

D'après ce que je comprends, il faut que ce soit un fichier MACRO or j'utilise des feuilles EXCEL contenant des macros.

**sabzzz** · 22/04/2010, 13h44

bonjour Zebulon777,

mais non c'est sur excel, j'ai mit la function suivante dans le perso,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function MaSum(a As Integer, b As Integer) As Integer
MaSum = a + b
End Function

et la macro suivante dans le fichier actif (classeur1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
resultat = Application.Run("Perso.xls!Masum", 2, 4)
End Sub

le résultat est bon = 6

note/

il faut bien sur que le fichier contenant la Function soit ouvert, que ce soit un xls ou un xla. si c'est un xla tu n'as qu'à cocher sa référence au menu, Outils, Macro complémentaire.

**Zebulon777** · 23/04/2010, 07h51

C'est fou ça, impossible d'ouvrir le fichier en auto, ce qui explique donc que la SUB ne se lance pas.

Voici le code d'ouverture que j'utilise, mais il ne fonctionne pas et je ne vois pas du tout d'où ça peu venir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Set AppXL = CreateObject("excel.Application")
WNomFichier_XLS = "D:\STAT PLTF\Fic_AUTO.xls"
AppXL.Workbooks.Open Filename:=WNomFichier_XLS

Une idée ?

Bon ben v'la autre chose, j'ai une erreur "Espace pile insuffisant"...

Heu, alors là, je suis totalement paumé.

Pour ouvrir le 2ème fichier excel, j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Workbooks.Open(Filename:="D:\STAT PLTF\PLTF_AUTO.xls"). _
        RunAutoMacros Which:=xlAutoOpen
Resultat = Application.Run("PLTF_AUTO.xls!Chargement_AUTO", G_ANNEE_LANCEUR)

La SUB Chargement_AUTO se trouve dans le module1 du 2ème fichier et lance une autre sub qui se trouve dans la "form" de ce 2ème fichier.
L'erreur survient au moment de l'appel de cette sub.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Chargement_AUTO(P_Annee)
'    Call Initialisation
    FORM_ChgFic_PLTF.C_Annee.Value = P_Annee
    Call Chargement_AUTO(P_Annee) -> Ligne qui provoque l'erreur.
End Sub

Je suis vraiment dans le noir...
Au secours...

**Zebulon777** · 23/04/2010, 11h35

Bon, merci de ton aide, j'ai réussit à trouver, en fait j'avais une procédure qui s'appelait elle-même...

Par contre, comment redonner la main au premier fichier XLS après la fin du second ?

**sabzzz** · 23/04/2010, 12h02

bonjour Zebulon777,

avant d'appelez ton fichier, instancie une variable objet de cette facon,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set ici = ThisWorkbook
'ouverture de l'autre fichier
ici.Activate ' redonner la main au premier

**Zebulon777** · 23/04/2010, 13h17

Donc ça donnerait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Set ici = ThisWorkbook
    Workbooks.Open(Filename:="D:\STAT PLTF\PLTF_AUTO.xls"). _
        RunAutoMacros Which:=xlAutoOpen
Resultat = Application.Run("PLTF_AUTO.xls!Chargement_AUTO", G_ANNEE_LANCEUR)
ici.Activate

C'est bien ça ?

**sabzzz** · 23/04/2010, 13h42

bonjour Zebulon777,

oui, je crois que c'est bon.
est ce que ton fichier s'ouvre dans la même instance ?

**Zebulon777** · 23/04/2010, 13h50

Que veux-tu dire par là ?

De toutes façons, ça ne fonctionne pas.
Le premier fichier ne récupère pas la main.
1 - Je lance le fichier XLS1
2 - XLS1 lance XLS2
3 - XLS2 s'exécute, créé des tableaux et les enregistre dans des répertoires spécifiques.
4 - XLS2 se ferme (activeworkbook.close)
(5 - XLS1 devrait reprendre la main pour réafficher la "form" de départ.)

Le traitement s'arrête alors qu'il reste des instructions à exécuter dans XLS1.

J'espère que je suis clair, car c'est vraiment le bordel, cette application.

**sabzzz** · 23/04/2010, 13h59

copie cette macro "vérifierWK" au même endroit que la macro qui ouvre le fichier et execute la macro qui ouvre le fichier, une fois le fichier ouvert execute la macro "vérifierWK" pas à pas en laissant le curseur sur la variable fichier, pour voir si le fichier que tu vient d'ouvrir est dans cette application,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub vérifierWK()
For Each wk In Application.Workbooks
fichier = wk.Name
Next
End Sub

**Zebulon777** · 23/04/2010, 14h14

Rien à faire, je n'y arrive pas.

Le 2ème fichier prend la main et je n'arrive pas à revenir manuellement au premier.
Donc impossible d'exécuter ta macro à partir du 1er fichier.

(En tout cas, je te remercie beaucoup beaucoup de ta patience et de ton aide)

**sabzzz** · 23/04/2010, 14h18

essaie sans la Function ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub xx()
Set ici = ThisWorkbook
Workbooks.Open Filename:="D:\STAT PLTF\PLTF_AUTO.xls"
ici.Activate
End Sub

**Zebulon777** · 23/04/2010, 14h20

Oui, mais comment je passe mes paramètres au 2ème fichier ?

Actuellement, j'ai ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Set ici = ThisWorkbook
G_ANNEE_LANCEUR = C_Annee.Value
WFichierXLS = G_DOSSIER_MACROS & "PLATEFORMES_MACROS_AUTO.xls"
Workbooks.Open(Filename:=WFichierXLS).RunAutoMacros Which:=xlAutoOpen
Resultat = Application.Run("PLATEFORMES_MACROS_AUTO.xls!Chargement_AUTO", G_ANNEE_LANCEUR, G_MACHINE)
ici.Activate

**sabzzz** · 23/04/2010, 14h38

fait le test, c'est seulement pour essayer le localiser le probleme,

**Zebulon777** · 23/04/2010, 14h43

Je dois y aller, je ferai le test lundi.
Merci encore de ta patience, bon weekend et à lundi.

Exécution d'une macro à partir d'un fichier différent ?

Macros et VBA Excel

Discussions similaires

Partager

Partager