Discussion :

[Rageo]

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 :

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

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 !

[vanhoa]

Bonjour,

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

Code :

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

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

[Rageo]

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 :

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

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

[SfJ5Rpw8]

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 ?

[Rageo]

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 :/