Lancement d'une marco appartenant à un autre fichier (Word VBA)Résolu

Question

Voila mon probl&#232;me :

J'ai d&#233;velopper une macro qui ouvre un doc Word copy et met en forme du texte et des tableau (ca &#231;a roule 
)
J'ai &#233;galement besoin de r&#233;cup&#233;rer des information contenue dans un fichier Excel (ca &#231;a roule aussi , il copy les donn&#233;es dans un nouveau doc Word)

Je veut cr&#233;e un bouton (dans une nouvelle barre d'outils) qui ex&#233;cute la seconde macro. Bouton qui est cr&#233;e &#224; la fin de la premierre macro (et ca &#231;a roule  aussi)

Probl&#232;me elle est contenu (la macro) dans un fichier (Word) diff&#233;rant du fichier du bouton du coup lorsque je click sur mon bouton Word m'affiche un message d'erreur : "La marco est introuvable ou a &#233;t&#233; d&#233;sactiv&#233;e &#224; cause de vos param&#232;tres de s&#233;curit&#233; des macros.". En fouillan l'aide j'ai d&#233;couver que seul les marco du doc actif peuve &#234;tre executer?????? Ca &#231;a c'est pas cool  !

Ca fait deux heure que je fait des test et "rien y veut"

J'ai tenter de faire par exemple :
-> CommandBars("Barre").Controls(1).OnAction = "Documents(Documents.Count).Application.Run ""test"""                                   (Le doc qui contien la macro est toujours le dernier de la liste)
-> CommandBars("Barre").Controls(1).OnAction = "Documents(Documents.Count).Activate: Documents.Application.Run ""test"""
-> CommandBars("Barre").Controls(1).OnAction = "Application.Run """!Fichier.doc!Project.Traitement.Test"""                               (avec ou sans Project.)

Rien y marche 

Au secours!!! J'en ais mare!

rvblog · Accepted Answer

Pfiou, j'avais une misère, scuse. Public WithEvents wdApplication As Word.Application Public cbPerso As Office.CommandBar Public WithEvents docHote As Word.Document Sub testAction() MsgBox "ok" End Sub Sub OuvrirDoc() Set docHote = wdApplication.Documents.Open("Doc2.doc", , , , , , , , , , True) ThisDocument.Activate End Sub Private Sub NettoyerBarresPersos() Dim cbTemp As Office.CommandBar For Each cbTemp In Application.CommandBars If cbTemp.Name = "Nouvelle1" Then cbTemp.Delete End If Next cbTemp End Sub Private Sub Document_Open() Dim cbcTemp As Office.CommandBarControl 'référence application Set wdApplication = Application 'nettoyage NettoyerBarresPersos 'installe la barre perso Set cbPerso = wdApplication.CommandBars.Add("Nouvelle1", msoBarFloating, , True) cbPerso.Visible = True 'ajoute le bouton ouvrir 2ème doc Set cbcTemp = cbPerso.Controls.Add(msoControlButton, , , , True) cbcTemp.FaceId = 23 cbcTemp.OnAction = "OuvrirDoc" cbcTemp.DescriptionText = "Ouvrir le 2ème document" cbcTemp.Enabled = True End Sub Private Sub wdApplication_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean) Dim cbcTemp As Office.CommandBarControl 'supprime le bouton du 2ème doc If cbPerso.Controls.Count > 1 Then Set cbcTemp = cbPerso.Controls(2) cbcTemp.Delete End If 'dégrise le bouton du 1er doc Set cbcTemp = cbPerso.Controls(1) cbcTemp.Enabled = True End Sub Private Sub wdApplication_DocumentOpen(ByVal Doc As Document) Dim cbcTemp As Office.CommandBarControl If Doc.Name <> ThisDocument.Name Then 'grise le bouton du 1er doc Set cbcTemp = cbPerso.Controls(1) cbcTemp.Enabled = False 'ajoute le bouton du 2ème doc Set cbcTemp = cbPerso.Controls.Add(msoControlButton, , , , True) cbcTemp.FaceId = 2 cbcTemp.OnAction = "testAction" cbcTemp.DescriptionText = "Tester le 2ème document" End If End Sub Private Sub wdApplication_WindowActivate(ByVal Doc As Document, ByVal Wn As Window) If Doc.Name = ThisDocument.Name Then If cbPerso.Controls.Count > 1 Then cbPerso.Controls(2).Enabled = True End If End If End Sub Private Sub wdApplication_WindowDeactivate(ByVal Doc As Document, ByVal Wn As Window) If Doc.Name = ThisDocument.Name Then cbPerso.Controls(1).Enabled = False If cbPerso.Controls.Count > 1 Then cbPerso.Controls(2).Enabled = False End If End If End Sub Evidemment, ce code correspond au fonctionnement que je te décrivait, c'est à dire que je n'exécute pas une macro qui se trouve dans le 2ème document, mais dans le 1er, par contre, quand le 2ème document est actif, il ne peut pas exécuter la macro. à+, bon appétit. rvblogn^{Je veux ton bien... et je l'aurais}

cs_jordinette · Answer

bonjour, si je comprends bien tu à 1 .doc sur lequel tu as le bouton1 qui déclenche ta macro, un .xls sur lequel tu récupère des données que tu colles sur ton .doc dans celui ci apparai un bouton2 dans la barre d'outil qui te permet de lancer une 2ème macro se trouvant dans un autre fichier Word qui n'est jamais ouvert au cour du déroulement du programme?
Si c'est bien ça:
1- je comprends pas l'intéret d'un bouton apparaissant dans la barre d'outil...
2- le message d'erreur, viens selon moi que dans tes paramètres de sécurités le niveau est haut donc il blque l'exécusion de toutes macros... (pour le changer, dans word Outils/macro/sécurité)

Après j'ai peut etre mal compris
Jordinette

Polack77 · Answer

Pardon je n'ai pas &#233;t&#233; tres claire dans cette partie :
"Probl&#232;me elle est contenu (la macro) dans un fichier (Word) diff&#233;rant du fichier du bouton du coup lorsque je click sur mon bouton Word m'affiche un message d'erreur : "La marco est introuvable ou a &#233;t&#233; d&#233;sactiv&#233;e &#224; cause de vos param&#232;tres de s&#233;curit&#233; des macros.". En fouillan l'aide j'ai d&#233;couver que seul les marco du doc actif peuve &#234;tre executer?????? Ca &#231;a c'est pas cool  !"

La seconde macro est dans le m&#234;me fichier que la 1&#233;r (donc le fichier est ouvert d&#233; le d&#233;but de l'execution, mais ce n'est pas le fichier ou se trouve le bouton) fichier sur le quel aucune modif ne se passe.

Toute les donn&#233;e sont mit sur un nouveau doc (cr&#233;e avec "Documents.Add DocumentType:=wdNewBlankDocument")

Une solution serait de cr&#233;e une macro (en code) qui m'active le documents ou se trouve les macros (les macro dont je parlais au d&#233;but) et lance l'execution de la seconde macro. Probl&#233;me je n'ai pas le droit de modifier les fichier .dot ("normal.dot") ni d'en cr&#233;e d'autre! Donc je devrais cr&#233;e en code une macro dans un nouveau document.

Le fait que je souaite ce bouton sur le nouveau fichier est simplement d&#249; &#224; un probl&#233;me de pr&#233;sentation.

 Faut pas s'enerver

Polack77 · Answer

En r&#233;sumer mon code :

-> Ouvre un fichier .doc
-> Selectione tout, le copie
-> Cr&#233;e un nouveau document &#224; partir de normal.dot "Documents.Add DocumentType:=wdNewBlankDocument"
-> Cole les don&#233;es dans ce document
-> Ferme sans sauvgarde le fichier d'origine
-> Met en forme les donn&#233;es
-> Cr&#233;e un bouton sur ce document

Sur click bouton :
-> Ouvre un fichier excel
-> Copie les donn&#233;e de tout les onglet et les cole dans encor un nouveau document Word "Documents.Add DocumentType:=wdNewBlankDocument"
-> Met en forme

Par la suite je place les fenaitre en mosaique vertical pour faire de copier coller manuel

Mon seul probl&#233;me est de faire executer le deusieme code &#224; partir d'un bouton

Le fichier contenant les macro n'est jamais fermer!

 Faut pas s'enerver

Polack77 · Answer

Ha oui j'oubliais les option de s&#233;curit&#233; son bien configurer! (En moyen comme ne bas &#231;a ne marche pas! )


 

 Faut pas s'enerver

rvblog · Answer

Salut Polack, salut jordinette, Polack, qu'est-ce qui t'empêche de créer le nouveau bouton, dans la barre d'outil existante, puisqu'elle est dépendante du classeur des macros, qui reste toujours ouvert? Ce bouton aurait ainsi accès à l'exécution d'une macro, qui se trouverait, dans le classeur des macros (oui, mais faudrait encore piloter un autre document, eh..., pas de mais, trouves une boone raison pour ne pas le faire, ou fais-le :) ). Ensuite, pour faire "classe", tu apprens même à la barre d'outil à se rendre compte que le classeur final (données doc et données xl) vient de se fermer, et à griser (ou enlever) le bouton (dont on ne connait pas la fonction). t'es sur la bonne voie, à+ rvblogn^{Je veux ton bien... et je l'aurais}

Polack77 · Answer

Hee, les macro sont sur Word (donc pas dans un classeur, je ne pense pas que cela change grand chose, mais on sait jamais)

   Je vient de tenter de mettre mon bouton sur un barre d'outils existante (Standard) mais toujours le m&#234;me message d'erreur! (Je vais quand m&#234;me faire des testes dans ce sens)

   Rvblog, tu dis que "la barre d'outil est d&#233;pendante du classeur des macros" ? C'est vrais dans tout les cas ou faut t'il le forcer (les barre d'outils ne sont pas sauvegarder dans "Normal.dot", a vrais dire je n'en sais rien  peut &#234;tre que je dit des inepties)?
   Et peut tu me dire qu'elle code je doit mettre dans mon bouton (ou barre d'outils, je n'en sait rien ) pour qu'il r&#233;agisse &#224; l'&#233;nervement (fermeture de "documents(NumDoc)")

   Si non es ce que qu'un sait comment cr&#233;e une macro dans un autre fichier (et &#231;a en code) !

   Si non je vais peut &#234;tre n&#233;goci&#233; avec ma hi&#233;rarchie pour m&#232;tre des macro dans un model (".dot").

   En tout cas je suis toujours bloquer (et &#231;a c'est vraiment pas agr&#233;able), mais bon, une nouvelle journ&#233;e commence (pour une fois &#224; Paris on &#224; du soleil , et &#231;a c'est cool)


   En tout les cas merci &#224; tousse d'essayer de m&#146;aid&#233; (vraiment sympa)

 Faut pas s'enerver

rvblog · Answer

Salut Polack, bien dormi? bon, ça vaut mieux :) au temps pour moi, c'est bien évidemment pas dans un classeur, mais bien dans un doc! j'ai jeté un oeil, et pour l'instant, ça marche. Questions : ton 2ème document à le focus une fois ouvert, non? version de Word? si tu réponds, dans les 5 minutes, je t'envoie le code, sinon... bonjour aux parisiennes! rvblogn^{Je veux ton bien... et je l'aurais}

Polack77 · Answer

Salut alor c'est la version office 2003


Oui le 2eme doc &#224; le focus (et c'est l&#224; mon probl&#233;me)

 Faut pas s'enerver

Polack77 · Answer

Je vais manger et je test &#231;a dans l'apr&#232;s midi. Dans tout les cas merci d'avance.

 Faut pas s'enerver

Polack77 · Answer

Ce n'est pas ce que j'avais en t&#234;te au d&#233;but mais c'est vraiment pas mal du tout!
De toute fa&#231;on je commance &#224; penser qu'executer une macro qui n'appartient pas au doc actif ce n'est pas possible. Ton code est vraiment tres bien (en plus ca me donne des id&#233;es).
De plus si je cr&#233;e une macro dans le model sur le quel je base mon nouveau document implique que mon fichier mis en page aura cette macro aussi (et &#231;a y faut pas si non moi ). Je pense que je vais faire comme &#231;a (activer d&#233;sactiver les bouton).

   En r&#233;sumer merci, merci et merci.

   Tu &#224; fait du bien rvblogn (m&#234;me si ce n'est pas vraiment ce que tu veut semble t'il )

 Faut pas s'enerver

rvblog · Answer

Ravi de t'avoir aidé, à+ rvblogn^{Je veux ton bien... et je l'aurais}

Polack77 · Answer

Heeeeeeeeeeee, je sais que tu &#224; d&#233;ja r&#233;pondu &#224; cette question rvblog mais si tu pouvais me re-filer un coup de main.
Je n'arrive plus &#224; faire fonctionner ce code.
???????????????????????????
Alors je le met dans un module de classe, je d&#233;fini une variable avec "public test as classe1" dans un module (variable global) fait un "set test = new classe1" et appr&#233;s ba je sais pas???? Quand je change de fichier rien????????? Ha comprend pas????? Il me semble pourtant que c'est ce que j'avias fait??????? HELPPPPPPPPPPPPPPP!!!! merci

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

Salut Polack77, pteu, ouh lala (avec l'accent Omerien) que mets-tu exactement dans le module de classe (quelles fonctions, et quelles déclarations)? tu auras sûrement noté que, par exemple, "Private Sub Document_Open()", tu ne peux pas le déplacer! du coup, le membre "Public WithEvents wdApplication As Word.Application", n'est pas déplacable tel quel. à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Polack77 · Answer

heeeeeeeeee, ba ja met tout!

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Voila mon module de classe si tu pr&#233;faire.
'----------------------
Public WithEvents wdApplication As Word.Application
Public cbPerso As Office.CommandBar
Public WithEvents docHote As Word.Document Sub testAction()
    MsgBox "ok"
End Sub

 Sub OuvrirDoc()
    Set docHote = wdApplication.Documents.Open("Doc2.doc", , , , , , , , , , True)
    ThisDocument.Activate
End Sub

 Private Sub NettoyerBarresPersos()
Dim cbTemp As Office.CommandBar
    For Each cbTemp In Application.CommandBars
        If cbTemp.Name = "Nouvelle1" Then
            cbTemp.Delete
        End If
    Next cbTemp
End Sub

 Private Sub Document_Open()
Dim cbcTemp As Office.CommandBarControl
    'r&#233;f&#233;rence application
    Set wdApplication = Application
    'nettoyage
    NettoyerBarresPersos
    'installe la barre perso
    Set cbPerso = wdApplication.CommandBars.Add("Nouvelle1", msoBarFloating, , True)
    cbPerso.Visible = True
    'ajoute le bouton ouvrir 2&#232;me doc
    Set cbcTemp = cbPerso.Controls.Add(msoControlButton, , , , True)
    cbcTemp.FaceId = 23
    cbcTemp.OnAction = "OuvrirDoc"
    cbcTemp.DescriptionText = "Ouvrir le 2&#232;me document"
    cbcTemp.Enabled = True
End Sub

 Private Sub wdApplication_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
Dim cbcTemp As Office.CommandBarControl
    'supprime le bouton du 2&#232;me doc
    If cbPerso.Controls.Count > 1 Then
        Set cbcTemp = cbPerso.Controls(2)
        cbcTemp.Delete
    End If
    'd&#233;grise le bouton du 1er doc
    Set cbcTemp = cbPerso.Controls(1)
    cbcTemp.Enabled = True
End Sub

 Private Sub wdApplication_DocumentOpen(ByVal Doc As Document)
Dim cbcTemp As Office.CommandBarControl
    If Doc.Name <> ThisDocument.Name Then
    'grise le bouton du 1er doc
        Set cbcTemp = cbPerso.Controls(1)
        cbcTemp.Enabled = False
        'ajoute le bouton du 2&#232;me doc
        Set cbcTemp = cbPerso.Controls.Add(msoControlButton, , , , True)
        cbcTemp.FaceId = 2
        cbcTemp.OnAction = "testAction"
        cbcTemp.DescriptionText = "Tester le 2&#232;me document"
    End If

 End Sub

 Private Sub wdApplication_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)
    If Doc.Name = ThisDocument.Name Then
        If cbPerso.Controls.Count > 1 Then
            cbPerso.Controls(2).Enabled = True
        End If
    End If
End Sub

 Private Sub wdApplication_WindowDeactivate(ByVal Doc As Document, ByVal Wn As Window)
    If Doc.Name = ThisDocument.Name Then
        cbPerso.Controls(1).Enabled = False
        If cbPerso.Controls.Count > 1 Then
            cbPerso.Controls(2).Enabled = False
        End If
    End If
End Sub
'-----------------------
Soi le code que tu &#224; mit plus haut

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

on ne s'est pas compris! la procédure "Private Sub Document_Open()" est exécutée automatiquement, par Excel, au démarrage du classeur. Donc, tout ce code (confirmes STP) doit être placé dans la classe par défaut ThisDocument. si tu confirmes, alors que veux tu dire par : "Alors je le met dans un module de classe, je défini une variable avec "public test as " dans un module (variable global) fait un "set test = new classe1 " à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Polack77 · Answer

Ce que j'entant par :
"Alors je le met dans un module de classe, je d&#233;fini une variable avec "public test as " dans un module (variable global) fait un "set test = new classe1 "
C'est que le code que tu m'a donn&#233;e est dans un module de classe (nom du module de classe : "Classe1")
Dans un module (nom du module : "DelarVarGlob") je d&#233;clar en variable global "public test sa Classe1"
Dans "Microsof word object", "ThisDocument", "Document_Open", je fait "set test = new Classe1"

Voila je crois que je ne peut pas &#234;tre plus pr&#233;cis.
Bonne journ&#233;e (d&#233;sol de ne pas avoir r&#233;pondu plus t&#244;t)

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

OK je n'avais pas compris  qu'il falait tout m&#233;tre dans "Microsof word object", "ThisDocument", "Document_Open", je vien de faire le test et &#231;a marche! Donc plus de module de classe "Classe1" plus de d&#233;claration d'objet "public test as Classe1" ni m&#234;me de "set test = new Classe1".
Encor d&#233;sol d'avoir oublier un "truc" si simple!
Merci

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Heee non (erreur de copier coller) il faut mettre ton code dans "Microsof word object", "ThisDocument" (et pas dans "Document_Open").

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

Salut 727152 Polack77, merci pour toutes ces informations :) Ce qu'il y a de bien avec toi, c'est que, au moins, tu sais te débrouiller (et en faire part à la Communauté). Tu sais, c'est une vraie double-compétence dans le domaine professionnel. Si, si, un technicien qui se débrouille, utilise son savoir-faire, un cadre qui publie une réussite, utilise son faire-savoir ! PS: je suis navré, moi aussi, de ne pas être plus prompt à la réponse, mais il y a des fois où je suis très occupé, et où je peux prendre du temps pour un bon suivi, mais là, je suis très occupé :) (en plus, je prépare un petit jouet pour VBF) à+ =727152 Polack77 rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Polack77 · Answer

Merci
Ca fait tr&#233;s plaisir &#224; lire!

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Lancement d'une marco appartenant à un autre fichier (Word VBA)

22 réponses

Discussions similaires