Discussion :

[Romain_8]

Bonjour,

Je viens de passer de Excel 2003 à Excel 2010. Je suis en train de passer mes fichiers de xls à xlsm.

Il y a une transition qui plante et que je ne m'explique pas.

Une macro situé sur un classeur ("classeur1") appelle une macro située sur un second classeur ("classeur2") via la ligne de code :

Code :

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

1
2
Workbooks("classeur2.xlsm").Activate
Sheets("trigger").Select

puis dans les macros de l'onglet "trigger" de "classeur2.xlsm" se trouve la ligne de code

Code :

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

1
2
3
4
5
Private Sub Worksheet_Activate()
 
Call Lancement.launch
 
End Sub

Tout cela marchait impécablement en 2003.
Mais là, le code bugge sur

Code :

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

Sheets("trigger").select

.
Le message d'erreur est "Run-time error '438' Object doesn't support this property or method".
Pourtant si je stoppe le code, que je me place dans "classeur2.xlsm" et que je clique sur l'onglet "trigger", le code est bien lancé et il n'y a aucune erreur par la suite.
On dirait que "classeur1.xlsm" ne peut pas commander "classeur2.xlsm".
Je sais essayer de trifouiller dans les sécurités mais là je sais plus quoi faire
Help.

[nibledispo]

Bonjour,

De mémoire, l'appel d'une procédure d'un autre classeur se fait via "application run" .
"Sheets("trigger").Select" sélectionne la feuille mais pas la macro contenue dans le classeur 2.

Cordialement,

[Romain_8]

La méthode via sheets("trigger").select fonctionnait en 2003.
Cela étant je viens de tester via la ligne de code :
Application.Run "classeur2.xlsm'!lancement.launch"
et j'ai de nouveau l'erreur "Run-time error '438' Object doesn't support this property or method"

[casefayere]

Bonjour,
et si tu enlèves le"'" après "xlsm. Je viens de tester sur 2 fichiers bidons

Code :

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

1
2
3
Sub titi()
Application.Run "titi.xlsm!toto"
End Sub

sans problème