Discussion :

[ouskel'n'or]

J'ai un tou... Comment lancer une macro, avec paramètres, se trouvant dans une macro complémentaire ?

Code :

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

1
2
3
4
5
6
7
8
9
Sub LancerEnregistrement()
Dim Chemin As String, MonFich As String, NomComplet
Chemin = "D:\xls\"
MonFich = "Cmonfichier"
Application.AddIns.Add("C:\Program Files\Microsoft Office\Office\Macrolib\EnregistrerFichierIncremente.xla").Installed = True
NomComplet = "'EnregistrerFichierIncremente.xla'!" & "FermerLeFichier(""" & _
                      Chemin & """, """ & MonFich & """)"
Application.Run (NomComplet)
End Sub

Merci, le bon dieu vous le rendra

NB - L'install de la macro s'effectue normalement.

[dadavyvy]

Bonjour, le Run permet d'ajouter des Args après le nom de la fonction, ainsi :

Code :

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

1
2
NomComplet = "'EnregistrerFichierIncremente.xla'!FermerLeFichier"
Application.Run NomComplet, Chemin, MonFich

[ouskel'n'or]

Merci dadavyvy. Impeccable ! Je vais pouvoir faire une proposition à Charley_250
A+

PS - Je réponds à ton mp sans tarder