Discussion :

[payadz2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

peut on avoir 1 seul declenchement ?
Merci de vos lumières

[E KERGRESSE]

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.

[payadz2]

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

[E KERGRESSE]

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

[payadz2]

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

[E KERGRESSE]

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.

[iBenny]

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