Appliquer Macro sur un autre fichier Excel

Bonjour,

J'ai un problème au niveau de mon code, je n'arrive pas à appliquer ma macro sur un autre fichier Excel.
En faite, j'ai un UserForm avec deux boutons et ma macro dans le même Fichier

1er bouton : Récupére le chemin du fichier sur lequel je veux appliquer ma macro et le stocke dans une variable "Fichier" (De la forme "C:\...\monfichier.xls" --> Fonctionne bien)
2ème bouton : Applique la macro sur le fichier stocké dans la variable "Fichier" --> Fonctionne pas 'Fichier en cours d'utilisation' alors qu'il est fermé

Voici le code du 2eme Bouton ( certainement des erreurs mais je ne comprends pas...) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub MacroRess_Click()   Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add(Fichier) xlApp.Application.Run "C:\Users\...\FichierMacro.xlsm!Module1!Macro1" xlApp.ActiveWorkbook.Save xlApp.ActiveWorkbook.Close Set xlApp = Nothing Set xlBook = Nothing   End Sub

---

Toute aide est la bienvenue !

Bonjour,

Deja, tes variables ne sont pas definies. Par exemple:

Code:

---

Dim xlApp as Application

---

Ensuite, tu as mis "C:\Users\...\FichierMacro.xlsm!Module1!Macro1"
J'imagine que c'est une adresse que tu as copie colle et remplace par ce qui etait a la base non?
les "..." veulent dire quelque chose. la ou tu la copie, c'etait simplement pour racourcir l'adresse par manque de place, mais il faut mettre tout l'ensemble.
ou sinon, si le nom est stocke dans une variable, utilise cette variable (mais il faut la definir en public en tete de module pour qu'elle soit accessible dans cette procedure)

De meme xlBook n'est pas definie

vanhoa

Bonjour,

Merci pour ta réponse. Malheureusement, sa ne marche toujours pas :/
Voici le code que j'ai actuellement :
Le chemin "C:\Users\...\FichierMacro.xlsm!Module1!Macro1" sert à indiquer l'endroit ou est ma macro (je ne sais pas si c'est correct de l'indiquer comme sa, et pour les "..." dans le chemin, je l'est mis en entier dans mon code VBA, pas de soucis à ce niveau la). Ma macro se situe dans le même classeur que mon UserForm.

Code:

---

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

Dim Fichier As String Dim xlApp As Application Dim xlBook As Workbook   Private Sub MacroRess_Click()   Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add(Fichier) xlApp.Visible = False xlApp.Application.Run "C:\Users\...\FichierMacro.xlsm!Module1!Macro1" xlApp.ActiveWorkbook.Save xlApp.ActiveWorkbook.Close xlApp.Visible = True Set xlApp = Nothing Set xlBook = Nothing   End Sub

---

Bonsoir,

tout d'abords une question , pourquoi ouvre-tu une autre instance d'excel ? ne peu tu pas ouvrir ton deuxième classeur dans la même instance que le premier ?

En faite, étant débutant en VBA, je me suis inspirer de code que j'ai trouvé sur différents forums et la plupart faisait ouvrir une autre instance Excel.
Après, j'ai vu que faillait obligatoirement ouvrir le fichier Excel pour lui faire appliquer la macro donc je pensais que ce code convenait...
Finalement, ce n'est peut-être pas le cas :/