lancer la macro d'un autre classeur

[pascal21]

Private Sub CommandButton1_Click()

Application.Run ("Classeur2.xls!Compteur1")

End Sub

bonsoir le forum
normalement avec ce code, je lance depuis le classeur 1 la macro "compteur1 du classeur 2
'Compteur1' se trouve dans un module du classeur2
bin non!! ça ne se lance pas ça me mets "erreur définie par l'application ou par l'objet" késako!!!!
je pense à une erreur de syntaxe j'ai essayé plusieurs choses mais sans résultat
pouvez-vous m'aider
merci

 

[gilbert_RGI]

Re : lancer la macro d'un autre classeur

Private Sub CommandButton1_Click()

Application.Run ("Classeur2.xls!Compteur1")

End Sub

bonsoir le forum
normalement avec ce code, je lance depuis le classeur 1 la macro "compteur1 du classeur 2
'Compteur1' se trouve dans un module du classeur2
bin non!! ça ne se lance pas ça me mets "erreur définie par l'application ou par l'objet" késako!!!!
je pense à une erreur de syntaxe j'ai essayé plusieurs choses mais sans résultat
pouvez-vous m'aider
merci

bonsoir
ne pas mettre les parenthèses mais encadrer le chemin et le nom du xls par '

Application.Run "'C:\test.xls'!toto"

 

[pascal21]

Re : lancer la macro d'un autre classeur

bonsoir gilbert_RGI
je n'ai plus d'erreur avec la syntaxe que tu m'as donné
mais la macro se lance sur la classeur1 et non sur le 2

Dans un module du classeur2
Sub Compteur1()
With Workbooks("Classeur2").Sheets("feuil1")
For Compteur = 3 To 0 Step -1
Range("b3").Formula = Compteur

'Pour exécuter la macro dans 3 secondes!!!

nouvHeure = Hour(Now())
nouvMinute = Minute(Now())
nouvSeconde = Second(Now()) + 1
Reprise = TimeSerial(nouvHeure, nouvMinute, nouvSeconde)
Application.Wait Reprise
Next
If Range("b3").Value = 0 Then
Range("a4").Value = "bon"

End If
End With
End Sub

et la macro du classeur1

Private Sub CommandButton1_Click()
Application.Run "'C:\Documents and 
Settings\pascal\Bureau\Classeur2.xls'!Compteur1"

End Sub

la macro se lance là où je mets le commandbutton1

 

[pascal21]

Re : lancer la macro d'un autre classeur

ça y est ça fonctionne en fait il fallait que le chemin complet de la cellule B3 soit précisé
soit

Workbooks("Classeur2").Sheets("feuil1").Range("b3").Formula = Compteur

merci et bonne soirée
si il y en a qui se demandent à quoi ça sert
en fait c'est pour lancer une autre macro sur le classeur 2 sans passer par selection change ou calculate

 

[gilbert_RGI]

Re : lancer la macro d'un autre classeur

ça y est ça fonctionne en fait il fallait que le chemin complet de la cellule B3 soit précisé
soit

Workbooks("Classeur2").Sheets("feuil1").Range("b3").Formula = Compteur

merci et bonne soirée
si il y en a qui se demandent à quoi ça sert
en fait c'est pour lancer une autre macro sur le classeur 2 sans passer par selection change ou calculate

ok..... là seconde partie n'avait plus rien à voir avec la syntaxe de la demande
qui était "lancer la macro d'un autre classeur" 🙄

bonne continuation