Lancer une macro d'un autre classeur excel

Résolu

Emic -
Soignisec - 30 mars 2017 à 17:26

Bonjour,

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

Mais... ça ne marche pas...

Merci de m'aider

Afficher la suite

3 réponses

Réponse 1 / 3

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
Emic

Problème résolu : il fallait pas oublié les '
Application.Run ("'Macro tps de cycle.xls'!test")
voila!!!
19
1. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  Bien vu pour les guillemets!
  
  0
2. Emic
  
  Merci de ton aide dans tous les cas!
  PS : t'as du les mettre dans ton fichier ms je n'arrivais pas à y accéder!^^
  
  0
3. Soignisec
  
  Merci !
  Avec des variables, ça donne :
  Application.Run ("'" & Fichier.Name & "'!test")
  
  avec initialement :
  Dim wb, Fichier As Workbook
  For Each wb In Workbooks
  If InStr(wb.Name, "Macro tps de cycle") = 1 Then
  Set Fichier = wb
  End If
  Next
  
  0
Réponse 2 / 3
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
bonjour

de mémoire
```
Application.Run ("Macro tps de cycle.xls!test")
```
edit: je viens d'essayer sur une maquette: c'est OK

Michel
0
Réponse 3 / 3
Emic

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)
0
1. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  Puisque tu me crois pas quand je te dis que j'ai testé avec succès
  voici une maquette
  https://www.cjoint.com/?3GfnRNSo8bP
  
  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?
  
  0
2. Emic
  
  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
  
  0
3. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  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
  
  0

Lancer une macro d'un autre classeur excel

3 réponses

Discussions similaires

Newsletters