Où est l'errreur ?

[MichelS]

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

 

[Celeda]

Bonsoir,


hé bhé je me permets une intrusion chez mes amis les vébéaistes: je pensais que le côté obscur de certaines questions étaient réservées à certains TCD mais je vois que non !!

good luck les boys!!

franchement MichelS, heureusement que tu t'adresses à une Hot Line payante et gay ...euh non Gaie!!! car sinon je ne sais pas ce que l'on fait avec ta macro et quelques explications pour le petit peuple des tcdéennes dont je fais partie aurait apprécié!!

Que la fin de l'année arrive vite pour que l'on en recommence une ...plus explicite!!!

Vba je vous aime!!


Celeda

 

[myDearFriend!]

Bonsoir MichelS, mes hommages Celeda ,

Je pense avoir compris la devinette.....

Set Nouveau20 = Nouveau.Controls.Add(msoControlPopup, , , , True)
With Nouveau20
.Caption = 'Devis'
.Style = msoButtonIconAndCaption
End With

msoControlPopup et non msoControlButton à cet endroit.

Bonnes fêtes de fin d'année.

 

[MichelS]

Bonsoir,

Cette macro sert à créer un menu qui me permet de naviguer dans un classeur

J'ai l'impression d'avoir soumis une montruosité,
j' présente mes excuses si tel est le cas.

A force de vouloir comprendre, on peut devenir casse-pieds parfois, mais je n'aime pas être devant un problème et ne pas trouver de solution, alors je demande,
Merci à ceux qui réponde.

 

[MichelS]

Merci My dear Friend
Tu merites bien ton nom.
A force de garder le nez dans le guidon on ne vois pas les erreurs.
Cela sert à ça la communication et le partage

Merci encore pour ton aide
Ca marche mais tu t'en doutais

Merci
MichelS

 

[Celeda]

Bonsoir,

Je vous remercie de vos hommages du soir, Seigneur mDF et à mi-genoux, je vous retourne une révérence de gros bisous.

Non, non je te rassure MichelS, tu n'as commis aucun impair, je fais partie de ce peuple non vébéaiste qui cherche en vain à la lueur de certains posts d'agrandir sa connaissance et je pense souvent qu'il faut que l'on soit plus clair dans nos demandes autant que dans nos réponses. Et j'ai sauté -non pas sur toi, je te rassure - sur l'occasion pour rappeler que ce forum étant ouvert (d'ailleurs David pense à faire remplacer certaines fenêtres des toilettes des XLDéennes car on se les géle les ...pieds!! ) au monde entier, chaque post est un exemple d'apprendre.
Ce que tu ne sais point, charmant MichelS (ici tous les Michels sont charmants donc tu feras partie si tu le souhaites de la confrérie des Michels) c'est que ton exemple de macro va servir à une multitudes d'excelnautes qui vont s'en emparer pour mieux la digérer, la régurgiter à leurs petits et enfin essayer de se l'approprier!! et toc

Vive XLD et merci mDF

olé!!!

Celeda