VBA macro à chaque ouverture, c'est possible ?

Bonjour
Je sais comment faire une macro lancée automatiquement à l'ouverture d'un document.
Mais cette macro doit etre intégrée à ce document.
Comment déclencher une macro à l'ouverture de n'importe quel document ?
Donc sans inclure de code dans ce document...
J'ai adapté pour les tests la solution:
https://heureuxoli.developpez.com/of...ba-word/#LII-C

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public WithEvents App As word.Application   'Private Sub App_DocumentOpen(ByVal Doc As Document) 'MsgBox "Automatique lancé par OPEN" 'End Sub   Private Sub App_WindowActivate(ByVal Doc As Document, ByVal Wn As Window) MsgBox "Automatique lancé par winactivate" End Sub   Sub document_open() Set App = word.Application End Sub

---

Mais j'ai un déclenchement pour chaque document présent!
cad:
j'ouvre un premier doc > tout va bien un seul message (open ou winactivate)
j'ouvre un deuxieme doc > a nouveau affichage de msgbox mais 2 fois !
j'ouvre un troisieme doc > 3 msgbox successifs...

si on fait:

Code:

---

1 2 3

Private Sub App_WindowActivate(ByVal Doc As Document, ByVal Wn As Window) MsgBox ActiveDocument & "Automatique lancé par winactivate" End Sub

---

si on a n documents on a n fois le bon nom de la fenetre en premier plan!
c'est normal ?
ex, avec 3 documents:
Pièce jointe 637032
peut on avoir 1 seul declenchement ?
Merci de vos lumières

Bonjour,

Le plus simple serait de générer vos nouveaux fichiers à partir de modèles .dotm qui contiendraient le lancement de votre macro à l'ouverture.

c'est bien le problème, la macro ci dessus est dans normal.dotm !

Citation:

---

Envoyé par payadz2

---

Je ne faisais pas référence à Normal.dotm.

bonjour
merci pour la réponse, même si je ne la comprends pas
en fait j'ai écrit un script complémentaire en AHK qui scrute l ouverture de nouvelle fenetre de word et qui met a jour un fichier indiquant la fenetre active (c'est ce dont j ai besoin)
ca marche
mais si vous avez plus d explications sur votre solution, je suis preneur

Citation:

---

Envoyé par payadz2

en fait j'ai écrit un script complémentaire en AHK qui scrute l ouverture de nouvelle fenetre de word et qui met a jour un fichier indiquant la fenetre active (c'est ce dont j ai besoin)
ca marche

---

Si cela marche, c'est suffisant.

Bonjour,

Si vous voulez que votre code soit général quelque soit le document ouvert et qu'il soit exécuté à l'ouverture du premier document mais pas à l'ouverture des autres documents, ce code doit être écrit dans Normal | NewMacro | Autoexec () dans la fenêtre Visual Basic et non sous Project (nom du document) plus bas.

Pour ouvrir la fenêtre VB taper Alt-F11 et pour faire apparaître la liste des codes, cliquer sur l'icône outil "Explorateur de projets". La liste des codes est à gauche. (Procédure WD-2007)

Dans Normal | NewMacro vous pouvez coder :
Sub Autoexec () : s'exécute une fois à l'ouverture de Word
Sub AutoOpen () : s'exécute à chaque ouverture de document
Sub AutoClose () : s'exécute à chaque fermeture de document

Salutations cordiales
iBenny

bonjour
avec beaucoup de retard, je repasse par ce post.
merci de ces explications
marqué comme résolu donc