Discussion :

[Balbo]

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 :

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

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.

[Balbo]

J'ai mis ma macro dans Normal.dot puis utiliser l'événement AutoExec pour créer mon menu conextuel et voila ca fonctionne nickel mais un autre probleme survient j y suis presk je vais devoir fair un autre post lol