Discussion :

[ANANA49]

Bonjour,

Comment puis je lancer plusieurs macros qui sont créées dans 3 classeurs différents fermés ainsi que celle sur le classeur actif ?
De plus, J'ai un mot de passe pour chaque classeur et je souhaiterais qu'il exécute la macro sans que l'utilisateur le saisisse à chaque fois.

J'ai essayé avec ce code mais un message apparait qui me dit: erreur '1004' Impossible d'exécuter la macro (Il ne la trouve pas)
Merci pour votre aide!

Code :

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

1
2
3
4
5
6
7
Sub Lancement_macros()
 
Application.Run "\\Monchemindaccés\MonClasseur.xlsm!Btn_MAJ_FORMULES.Maj_Formule_Hot"
Application.Run "\\Monchemindaccés\MonClasseur.xlsm!Btn_MAJ_FORMULES.Maj_Formule_Emp"
Application.Run "\\Monchemindaccés\MonClasseur.xlsm!Btn_MAJ_FORMULES.Maj_Formule_Ret"
 
End Sub

[Menhir]

Comment puis je lancer plusieurs macros qui sont créées dans 3 classeurs différents fermés ainsi que celle sur le classeur actif ?

Tu ne peux pas.
Il n'est pas possible de lire quoi que ce soit dans un fichier qui n'est pas ouvert d'une manière ou d'une autre.
A fortiori, on ne peut pas y exécuter des actions.

De plus, J'ai un mot de passe pour chaque classeur et je souhaiterais qu'il exécute la macro sans que l'utilisateur le saisisse à chaque fois.

Il y a une bonne demi-douzaine de façon de mettre un mot de passe dans un fichier Excel.
Que protège ton mot de passe ? Comment a-t-il été placé ?

[ANANA49]

Bonjour Menhir,

En cherchant sur le forum, j'ai trouvé ce bout de code qui fonctionne mais qui ouvre les classeurs 1,2,3 en me demandant le mot de passe (Identique pour les 3 classeurs). Il a été mis dés l'ouverture et en modification seulement.
Je pensais pouvoir intégrer le mot de passe automatiquement sur mon code pour qu'il puisse exécuter les macros en "Masqué".

Merci pour ton aide.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub LancerMacro()
     Dim xlApp As Excel.Application
     Dim xlWbk As Excel.Workbook
 
     ' Créer une instance d'Excel
     Set xlApp = New Excel.Application
     Set xlWbk = xlApp.Workbooks.Open("\\Chemindaccès\Monclasseur1.xlsm")
     ' Lancer une macro
     xlApp.Run xlWbk.Name & "!Maj_Formule_A"
 
     Set xlWbk = Nothing
     ' Penser à quiter l'instance d'Excel
     xlApp.Quit
     Set xlApp = Nothing
 
    ' Créer une instance d'Excel
     Set xlApp = New Excel.Application
     Set xlWbk = xlApp.Workbooks.Open("\\Chemindaccès\Monclasseur2.xlsm")
     ' Lancer une macro
     xlApp.Run xlWbk.Name & "!Maj_Formule_B"
 
     Set xlWbk = Nothing
     ' Penser à quiter l'instance d'Excel
     xlApp.Quit
     Set xlApp = Nothing
 
     ' Créer une instance d'Excel
     Set xlApp = New Excel.Application
     Set xlWbk = xlApp.Workbooks.Open("\\Chemindaccès\Monclasseur3.xlsm")
     ' Lancer une macro
     xlApp.Run xlWbk.Name & "!Maj_Formule_C"
 
     Set xlWbk = Nothing
     ' Penser à quiter l'instance d'Excel
     xlApp.Quit
     Set xlApp = Nothing
 
 End Sub

[Menhir]

Il est possible de transmettre le mot de passe dans la méthode Open en paramètre.
Lire ceci (en particulier le paramètre password) : https://msdn.microsoft.com/fr-fr/vba...n-method-excel

[ANANA49]

Bonjour Menhir,

Merci pour le lien, mais je ne sais pas comment l'intégrer dans mon code ci_dessus.
Peux-tu m'aider ?
Merci..