M
MichelS
Guest
Bonsoir à tous.
Je sais que ce problème nen seras cdertainement pas un pour vous mais pour moi c'en est un
J'ai le code suivant :
Private Sub Workbook_Open()
Dim Nouveau As CommandBarControl
Dim Nouveau10 As CommandBarControl
Dim Nouveau11 As CommandBarControl, Nouveau12 As CommandBarControl, Nouveau13 As CommandBarControl, Nouveau14 As CommandBarControl, Nouveau15 As CommandBarControl
Dim Nouveau20 As CommandBarControl
Dim Nouveau21 As CommandBarControl, Nouveau22 As CommandBarControl, Nouveau23 As CommandBarControl, Nouveau24 As CommandBarControl
On Error Resume Next
Set Nouveau = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With Nouveau
.Caption = 'SIMA'
End With
Set Nouveau10 = Nouveau.Controls.Add(msoControlPopup, , , , True)
With Nouveau10
.Caption = 'Facture'
.Style = msoButtonIconAndCaption
End With
Set Nouveau11 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau11
.Caption = 'Nouvelle'
.OnAction = 'ouvrefact'
End With
Set Nouveau12 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau12
.Caption = 'Devis Facture'
.OnAction = 'COPIEFACT'
End With
Set Nouveau13 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau13
.Caption = 'Relevé'
.OnAction = 'openrelevefact'
End With
Set Nouveau14 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau14
.Caption = 'Copie'
.OnAction = 'COPIFACT'
End With
Set Nouveau15 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau15
.Caption = 'Recap Factures'
.OnAction = 'RECAPFACT'
End With
Set Nouveau20 = Nouveau.Controls.Add(msoControlButton, , , , True)
With Nouveau20
.Caption = 'Devis'
.Style = msoButtonIconAndCaption
End With
Set Nouveau21 = Nouveau20.Controls.Add(msoControlButton, , , , True)
With Nouveau21
.Caption = 'Nouveau'
.OnAction = 'DEVIS'
End With
Set Nouveau22 = Nouveau20.Controls.Add(msoControlButton, , , , True)
With Nouveau22
.Caption = 'Relevé'
.OnAction = 'openrelevdev'
End With
Set Nouveau23 = Nouveau20.Controls.Add(msoControlButton, , , , True)
With Nouveau23
.Caption = 'Copie Devis'
.OnAction = 'COPIEDEV'
End With
Set Nouveau24 = Nouveau20.Controls.Add(msoControlButton, , , , True)
With Nouveau24
.Caption = 'Recap Devis'
.OnAction = 'RECPADEV'
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars(1).Controls('SIMA').Delete
End Sub
Avec Facture j'ia bien le sous-menu, mais pas avec Devis
Que manque-t-il?
Merci de votre réponse
MichelS
Je sais que ce problème nen seras cdertainement pas un pour vous mais pour moi c'en est un
J'ai le code suivant :
Private Sub Workbook_Open()
Dim Nouveau As CommandBarControl
Dim Nouveau10 As CommandBarControl
Dim Nouveau11 As CommandBarControl, Nouveau12 As CommandBarControl, Nouveau13 As CommandBarControl, Nouveau14 As CommandBarControl, Nouveau15 As CommandBarControl
Dim Nouveau20 As CommandBarControl
Dim Nouveau21 As CommandBarControl, Nouveau22 As CommandBarControl, Nouveau23 As CommandBarControl, Nouveau24 As CommandBarControl
On Error Resume Next
Set Nouveau = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With Nouveau
.Caption = 'SIMA'
End With
Set Nouveau10 = Nouveau.Controls.Add(msoControlPopup, , , , True)
With Nouveau10
.Caption = 'Facture'
.Style = msoButtonIconAndCaption
End With
Set Nouveau11 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau11
.Caption = 'Nouvelle'
.OnAction = 'ouvrefact'
End With
Set Nouveau12 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau12
.Caption = 'Devis Facture'
.OnAction = 'COPIEFACT'
End With
Set Nouveau13 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau13
.Caption = 'Relevé'
.OnAction = 'openrelevefact'
End With
Set Nouveau14 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau14
.Caption = 'Copie'
.OnAction = 'COPIFACT'
End With
Set Nouveau15 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau15
.Caption = 'Recap Factures'
.OnAction = 'RECAPFACT'
End With
Set Nouveau20 = Nouveau.Controls.Add(msoControlButton, , , , True)
With Nouveau20
.Caption = 'Devis'
.Style = msoButtonIconAndCaption
End With
Set Nouveau21 = Nouveau20.Controls.Add(msoControlButton, , , , True)
With Nouveau21
.Caption = 'Nouveau'
.OnAction = 'DEVIS'
End With
Set Nouveau22 = Nouveau20.Controls.Add(msoControlButton, , , , True)
With Nouveau22
.Caption = 'Relevé'
.OnAction = 'openrelevdev'
End With
Set Nouveau23 = Nouveau20.Controls.Add(msoControlButton, , , , True)
With Nouveau23
.Caption = 'Copie Devis'
.OnAction = 'COPIEDEV'
End With
Set Nouveau24 = Nouveau20.Controls.Add(msoControlButton, , , , True)
With Nouveau24
.Caption = 'Recap Devis'
.OnAction = 'RECPADEV'
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars(1).Controls('SIMA').Delete
End Sub
Avec Facture j'ia bien le sous-menu, mais pas avec Devis
Que manque-t-il?
Merci de votre réponse
MichelS