[VBA-E] Lancement d'une macro située dans un autre fichier

Bonjour, je possède un fichier excel dit principal. A partir de ce fichier principal je souhaite lancer un ou plusieurs fichiers excels secondaires et lancer automatiquement une sub qui se trouve dans ce fichier secondaire.

Mais mon code me fournit l'erreur d'exécution 1004 : erreur définie par l'application ou par l'objet.

Quelle est la bonne méthode pour faire ce que je souhaite ? Est ce réalisable ?

D'avance merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Traitement()   'Je suis dans mon fichier principal Dim I As Integer Dim NomFichier   If ActiveSheet.Range("B2").Value = "" Then MsgBox ("Aucun fichier de lieux de mesure n'a été sélectionné") Else derniereligne = ActiveSheet.Range("B65365").End(xlUp).Row 'Pour chacunes des localisations de fichiers : For I = 2 To derniereligne NomFichier = ActiveSheet.Cells(I, 2).Value Lancement = Chr(34) & NomFichier & "!" & "Module5.ProcédureGénérale" & Chr(34) Application.Run (Lancement) Next I End If End Sub

---

Je précise que ActiveSheet.Cells(I, 2).Value contient l'adresse du fichier sur le disque sous la forme : E:\Toto\Dévelop\ExcelFile\Test1.xls

Bonjour sat478,

Ce que tu pourrais faire, si tu as déjà le lien complet dans les cellules de ta feuille, c'est d'ouvrir ton fichier, d'éxécuter ta macro et d'enfin refermer ton fichier. C'est plus long mais ca marche.

gringo69

tu ajoutes à ton projet les références de l'autre classeur puis tu peux utiliser la macro comme si elle faisiat partie de ton fichier
attention aux conflits de nom

Citation:

---

Envoyé par sat478

Bonjour, je possède un fichier excel dit principal. A partir de ce fichier principal je souhaite lancer un ou plusieurs fichiers excels secondaires et lancer automatiquement une sub qui se trouve dans ce fichier secondaire.

Mais mon code me fournit l'erreur d'exécution 1004 : erreur définie par l'application ou par l'objet.

Quelle est la bonne méthode pour faire ce que je souhaite ? Est ce réalisable ?

D'avance merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Traitement()   'Je suis dans mon fichier principal Dim I As Integer Dim NomFichier   If ActiveSheet.Range("B2").Value = "" Then MsgBox ("Aucun fichier de lieux de mesure n'a été sélectionné") Else derniereligne = ActiveSheet.Range("B65365").End(xlUp).Row 'Pour chacunes des localisations de fichiers : For I = 2 To derniereligne NomFichier = ActiveSheet.Cells(I, 2).Value Lancement = Chr(34) & NomFichier & "!" & "Module5.ProcédureGénérale" & Chr(34) Application.Run (Lancement) Next I End If End Sub

---

Je précise que ActiveSheet.Cells(I, 2).Value contient l'adresse du fichier sur le disque sous la forme : E:\Toto\Dévelop\ExcelFile\Test1.xls

---

Bonjour,

Question : Est-ce que tes fichiers sont déjà ouverts ? si non il faut d'abord les ouvrir pour pouvoir utiliser les macros contenues dans celui-ci.

Question : Est-ce que la routine que tu veux exécuter est bien définie en tant que Public ? si non, tu ne pourras pas l'atteindre.

Correction : Dans le cas d'une ouverture centralisée des fichiers Excel (=tous dans la même application Excel) le code de lancement de l'application est incorrect ...

Dans l'exemple que tu nous donnes, cela revient à avoir la ligne de commande suivante :

Code:

---

Application.Run "E:\Toto\Dévelop\ExcelFile\Test1.xls!Module5.ProcédureGénérale"

---

mais le code devrait être :

Code:

---

Application.Run "Test1.xls!ProcédureGénérale"

---

+

Théo

Bonjour Théo

alors pour répondre à tes questions :

1) oui le fichier est déjà ouvert (j'avais oublié une ligne de code) :

Code:

---

1 2	Workbooks.Open Filename:=NomFichier

---

2) la routine que je souhaite exécuter ce situe dans un module (Module5) et est définie par :

Code:

---

1 2	Public Sub ()

---

3) j'ai modifié mon code afin de modifier ma ligne de commande.

Pour cela:

Code:

---

1 2 3 4 5 6 7

NomFichier = ActiveSheet.Cells(i, 2).Value Workbooks.Open Filename:=NomFichier Set NomFichier = ActiveWorkbook   Lancement = Chr(34) & NomFichier.Name & "!" & "Module5.ProcédureGénérale" & Chr(34) Application.Run (Lancement)

---

Mais j'ai toujours mon erreur 1004. Sais tu à quoi elle correspond ?

Citation:

---

Envoyé par sat478

3) j'ai modifié mon code afin de modifier ma ligne de commande.

Pour cela:

Code:

---

1 2 3 4 5 6 7

NomFichier = ActiveSheet.Cells(i, 2).Value Workbooks.Open Filename:=NomFichier Set NomFichier = ActiveWorkbook Lancement = Chr(34) & NomFichier.Name & "!" & "Module5.ProcédureGénérale" & Chr(34) Application.Run (Lancement)

---

Mais j'ai toujours mon erreur 1004. Sais tu à quoi elle correspond ?

---

Supprime ce qui est en rouge et retente...

Sinon juste pour confirmer ... le Module5 est dans le fichier que tu ouvres ou dans le fichier principal où il y a les noms des autres fichiers Excel ???

+

Théo

Même avec suppression de "Module 5" l'erreur est persistante.

Oui le module 5 se situe bien dans le fichier que j'ouvre et non pas dans le fichier principal de l'application

Et en débuggage, il te surligne quelle ligne ?

Salut Théo, Hello Sat,
Je commencerais par afficher ce qu'il y a dans "Lancement" et ensuite, j'ajouterais un "DoEvents" sur la ligne suivant l'ouverture du fichier (Voir DoEvents dans l'aide pous savoir à quoi ça sert ;) )
Si ton fichier n'est pas encore totalement ouvert, la procédure se poursuit tout de même alors que la macro n'est pas encore accessible. Donc... DoEvents ;)