Lancer une macro d'un autre classeur excel

Résolu/Fermé

Emic - 5 juil. 2011 à 11:39
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

A voir également:

Vba appeler une macro d'un autre module
Appeler en privé - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Manque cam module ✓ - Forum Téléviseurs
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Macro word - Guide

3 réponses

Réponse 1 / 3

Emic
6 juil. 2011 à 13:11

Problème résolu : il fallait pas oublié les '
Application.Run ("'Macro tps de cycle.xls'!test")
voila!!!

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
6 juil. 2011 à 13:56

Bien vu pour les guillemets!

Emic
6 juil. 2011 à 15:02

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!^^

Soignisec
30 mars 2017 à 17:26

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

Réponse 3 / 3

Emic
5 juil. 2011 à 13:33

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és 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
5 juil. 2011 à 13:53

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?

Emic
5 juil. 2011 à 14:17

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és 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
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

Discussions similaires

Impossibilité enregistrement macro Excel 2010

Enregistrement Fichier Excel avec des Macros

Excel Macro Extraction Données

VBA fermer un fichier Excel

Comment supprimer certaines macro perso

macro dans classeur macro personnelles