Discussion :

[capi81]

Bonsoir le forum

Le code ci-dessous me permet d'ouvrir un autre classeur.
je souhaite lorsque le classeur sera ouvert d'exécuter les macros contenus dans la commande bouton intitulé cmde_bilan".
J'ai essayé des recherches mais la plupart c'est l'exécuter une macro à partir d'un autre classeur.

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
Dim wk1 As Workbook, wk2 As Workbook
 
Dim spath As String, sfile As String
 
Dim sh As Worksheet ', sh1 As Worksheet
 
Set wk1 = ThisWorkbook
 
spath = "C:\Users\" & Environ("UserName") & "\Desktop\BILAN_DAC_2018\"
 
sfile = "Traitement_Bilan_agences_2018.xlsm"
 
Set sh = Sheets("MENU")
 
If Dir(spath & sfile) = "" Then MsgBox "Fichier inexistant pour l'utilisateur" & " " & sh: Exit Sub
 
    Workbooks.Open Filename:=spath & sfile
 
    Application.Run "sfile.sh.Cmde_Bilan_click"

L'erreur se situe au niveau de la dernière ligne avec pour message d'erreur :"impossible d'exécuter la macro.il est possible quelle ne soit pas dans ce classeur ou que toutes les macros soient désactivées.
Pourtant mes macros sont activées.
merci de m'aider

[Invité]

Bonjour,

Soient deux fichiers Fichier 1.xlsm et Fichier 2.xlsm.

Fichier 2 contient une macro Macro1 enregistrée dans un module standard et l'onglet 1 contient un bouton qui ne fait que lancer la macro1.

Code :

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

1
2
3
4
5
6
 
Option Explicit
 
Private Sub CommandButton1_Click()
        Macro1
End Sub

Si vous utilisez l'enregistreur de macro depuis le fichier 1 pour voir comment VBA lance la macro 1 du fichier 2, vous verrez sans doute ceci pendant la séquence :
Pièce jointe 360920

Le résultat de la macro du fichier 1 donne ce code :

Code :

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

1
2
3
4
5
6
 
Option Explicit
 
Sub Macro2()
    Application.Run "'Fichier 2.xlsm'!Macro1"
End Sub

[capi81]

Bonjour Eric
Merci pour votre contribution.
Dans mon cas le bouton de commande exécute plusieurs macros en même temps (macro1, macro2..macro5).
Du coup votre solution qui permet d'exécuter une seule macro ne s'adapte pas à ma situation.
Si la methode Run permettait d'exécuter le bouton de commande, mon problème serait résolu.
Comment faire pour exécuter mon bouton de commande lorsque le fichier 2 est ouvert (c'est à partir du fichier 1 que j'ouvre le fichier 2).
Merci

[Invité]

Imaginez maintenant que ma macro1 (dans un module standard) englobe vos différentes macros lancées par votre bouton....

[capi81]

Donc si j'ai bien compris, je dois créer une macro qui permet d'appeler les autres macros.
Je viens de créer cette macro donc je vais appliquer la méthode run et vous revenir.
Si ma logique n'est pas bonne merci de me recadrer.

[Invité]

Mettez vos macros dans des modules standards et n'utilisez les boutons que pour en faire l'appel.

[Marc-L]

Bonjour,

au sein d'un même projet pas besoin de Run, juste voir l'aide VBA interne de la méthode Call …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[capi81]

Bonsoir Marc
Merci pour votre conseil.
Je suis pas sûr d'avoir bien compris.
En passant par l'enregistreur de macro, la methode Run est utilisée.
Pour faciliter ma compréhension, pouvez-vous réaliser quelque chose dans ce sens?
Merci

[Marc-L]

Juste en lisant l'aide VBA interne :

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
Dim S$
 
Sub DCrypto()
    For C& = Len(S) To 1 Step -1
        T$ = T$ & Chr$(255 - Asc(Mid$(S, C, 1)))
    Next
         S = T
End Sub
 
Sub Demo()
    S = "Þߌ‹™ßŒš“ß‹–ž™ß‹™™šØ³"
    Call DCrypto
    MsgBox S
    S = "Þß‘–‹ž›’ßž“ßßšŒ–ž“›ß‘šØ±"
    DCrypto
    MsgBox S
End Sub