Lone-wolf
XLDnaute Barbatruc
Bonjour le forum,
j'ai un souci pour afficher une barre popup avec la fenêtre réduite. Voci le code pris sur le site de Jacques Boigontier.
Est-ce qu'il y a possibilité d'afficher celui-ci sans avoir le classeur en fenêtre normale?
Merci pour votre aide.
Amicalement Lone-wolf
j'ai un souci pour afficher une barre popup avec la fenêtre réduite. Voci le code pris sur le site de Jacques Boigontier.
Code:
Private Sub Label10_Click()
Chemin = ThisWorkbook.Path & "\Images\"
Sheets("Feuil2").Activate
Sheets("Feuil2").Visible = True
On Error Resume Next
CommandBars("BarrePopup").Delete
Set MaBarre = Application.CommandBars.Add(Name:="BarrePopup", Position:=msoBarPopup)
Set bouton = CommandBars("BarrePopup").Controls.Add(Type:=msoControlButton)
With ActiveSheet
bouton.OnAction = "Supprimer"
bouton.Caption = "Effacer toutes les catégories"
Set bouton = CommandBars("BarrePopup").Controls.Add(Type:=msoControlButton)
bouton.Caption = "-----------------------------"
Set bouton = CommandBars("BarrePopup").Controls.Add(Type:=msoControlButton)
bouton.OnAction = "Cat_Rouge"
bouton.Caption = "Catégorie rouge"
Set Img = .Pictures.Insert(Chemin & "cat-rg.gif")
Img.Copy
bouton.PasteFace
Img.Delete
Est-ce qu'il y a possibilité d'afficher celui-ci sans avoir le classeur en fenêtre normale?
Merci pour votre aide.
Amicalement Lone-wolf