Discussion :

[Balbo]

En effet , j avais pas percuté a ca le faite de cliquer sur le bouton déselectionne mon texte merci beaucoup. Un deuxieme problème survient j ai fais une macro pour excel que je suis entrain de transposé pour word mais je ne sait pas comment faire un menu conextuel sous word et je voudrais aussi creer ce menu a l install de ma macro complémentaire ci joint mon code d'excel que je voudrais transposer pour Word

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_AddinInstall()
 
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Ouvrir FFT avec Quality Center"
.BeginGroup = True
.OnAction = "OuvrirFFT"
End With
MsgBox "Workbook_AddinInstall()"
End Sub

Merci d'avance

[JackOuYA]

En effet , j avais pas percuté a ca le faite de cliquer sur le bouton déselectionne mon texte merci beaucoup. Un deuxieme problème survient j ai fais une macro pour excel que je suis entrain de transposé pour word mais je ne sait pas comment faire un menu conextuel sous word et je voudrais aussi creer ce menu a l install de ma macro complémentaire ci joint mon code d'excel que je voudrais transposer pour Word

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_AddinInstall()
 
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Ouvrir FFT avec Quality Center"
.BeginGroup = True
.
End With
MsgBox "Workbook_AddinInstall()"
End Sub

Merci d'avance

... il c'est où le début ?

[Balbo]

c bon j'ai résolu le problème avec ce code tout simple

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_AddinInstall()
    '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

Merci à tous lol