Je vous écris car j'ai un petit soucis de programmation :
j'ai un classeur 1 qui a une macro s'appelant test dans le module 1
et dans le classeur 2 j'aimerai faire une macro lancant la macro test du classeur 1
j'ai essayé de faire ça :
Sub OuvreSiPasOuvert()
Dim Worbk As Workbook
On Error Resume Next
Set Worbk = Workbooks("Macro tps de cycle.xls")
On Error GoTo 0
If Worbk Is Nothing Then Workbooks.Open "R:\DH_SCE\Toutes SCE\Macros\Macro tps de cycle.xls" _
Else: Set Worbk = Nothing
Call Workbooks("Macro tps de cycle.xls").Module1.test
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 20233 303 Modifié par michel_m le 5/07/2011 à 12:31
bonjour
de mémoire
Application.Run ("Macro tps de cycle.xls!test")
edit: je viens d'essayer sur une maquette: c'est OK
En mettant cette ligne à la place de mon call il me met :
erreur 1004
impossible d'éxécuter la macro temps de cycle!test, il est possible qu'elle ne siot pas disponible dans ce classeur ou que toutes les macros soient désactivées
j'ai bien activé mes macros, et je sas que cette macro n'est pas dans mon classeur 2 vu qu'elle est dans le classeur 1 (macro tps de cycle)
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 20233 303 5 juil. 2011 à 13:53
test est le nom de la macro et toi tu me parles de:
la macro temps de cycle!test ???
d'autre part, d'après ton code, tu auras toujours appel de la macro test quelque soit l'état de worbk; je te laisse rechercher...
tu as fait un set worbk oK, très bien
alors pourquoi ne pas l'utiliser dans l'instruction d'appel de la macro?
Dsl, je mettais pas ce que tu dis en doute... juste j'ai mis la ligne de code et chez moi cela n'a pas marché, je ne commence qu'aujourd'hui à programmer donc j'ai sans doute pas vu quelque chose
concernant "macro temps de cyle" c'est le nom de mon classeur...c'est ptetre de la que vient la confusion, et la macro à l'intérieur s'appelle bien test.
Merci de votre aide
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 20233 303 Modifié par michel_m le 5/07/2011 à 15:17
envoie un extrait de ton classeur macro temps de cycle, je vais jeter un oeil
en attendant essaies ceci (pas sûr de moi)
Dim Worbk As Workbook
Set Worbk = Workbooks("Macro tps de cycle.xls")
On Error GoTo erreur
Workbooks.Open "R:\DH_SCE\Toutes SCE\Macros\Macro tps de cycle.xls"
Application.Run ("Macro tps de cycle.xls!test")
exit sub
erreur:
MsgBox "le classeur " & Worbk & "est inexistant dans le dossier indiqué", vbCritical
pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe (format XL97-2003) sur
http://cijoint.fr/
et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse
6 juil. 2011 à 13:56
6 juil. 2011 à 15:02
PS : t'as du les mettre dans ton fichier ms je n'arrivais pas à y accéder!^^
30 mars 2017 à 17:26
Avec des variables, ça donne :
Application.Run ("'" & Fichier.Name & "'!test")avec initialement :