Afficher une PopUp avec la fenêtre du classeur réduite

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.

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 :cool:
 

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088