Bonjour,
je sait qu'un sujet du forum à déjà parler de ce cas mais en le lisant je ne comprends toujours pas comment faire pour que ma macro soit éxecuter sur tous les documents words que j'ouvre, de plus je dois la déployer au sein de mon entreprise donc je suis obliger de faire quelque chose de propre.
voila mon code :
De plus je trouve pas l'évenement similaire à WordbookOpen dans Excel. J'ai vu qu'il fallait créer une macro AutoExec mais j'ai pas compris comment.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Private Sub CreationMenuOuvertureWord() 'Réinitialise la barre de commandes "text" CommandBars("text").Reset Set menu = Application.CommandBars("Text").Controls. _ Add(Type:=msoControlButton) menu.Caption = "Ouvrir FFT avec Quality Center" menu.OnAction = "OuvrirFFT" End Sub Sub OuvrirFFT() Dim check As Boolean check = IsNumeric(Selection) If check = True And Len(RTrim(LTrim(Selection))) = 5 Then Shell ("C:\Program Files\Internet Explorer\iexplore.exe testdirector:qc.eic.intra/qcbin,ACR,TD_ACR,%5bAnyUser%5d;2:" & Selection) Else MsgBox "Veuillez sélectionner un numéro de FFT" End If End Sub
Partager