Si tu recopie ce code dans un fichier. Il s'ouvrira une barre de menu appeler"photos"
Cette barre décline des actions ("wiever,uneimage...) qui sont autant de macro contenu dans le reste du projet.
-Cette barre est temporaire, c'est à dire quelle disparait à la fermeture d'excel et se réinstalle à chaque ouverture du fichier.
- Je n'utilise ici que des msocontrolpopup, mais il existe bien dautres possibilité.
Cette exemple peut peut-être d'aider à y voir plus clair.
Sub auto_open()
Set mabarre = CommandBars.Add(Name:="Photos", temporary:=True)
With mabarre
.Position = 4
.Left = 100
.Top = 100
.Visible = True
With .Controls.Add(Type:=msoControlPopup)
.Caption = "Photos"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Charger des images"
.OnAction = "viewer"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Indexer une image sélectionnée"
.OnAction = "uneimage"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Effacer la page"
.OnAction = "détruit"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Agrandir une image"
.OnAction = "Agrandir"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Restaurer l'image"
.OnAction = "Revenir"
End With
With .Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.Caption = "Rechercher !"
.OnAction = "Exploration"
End With
With .Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.Caption = "Sauvegarder la base"
.OnAction = "sauvgarde"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Initialisation"
.OnAction = "init"
End With
End With
End With
End Sub
