Rapport de message :*
 

Re: mdf_doublon non active sous excel 2007

Titre du sujet : Re: mdf_doublon non active sous excel 2007
par fred65200 le 21/11/2007 09:37:40

Citation :

MichelXld a écrit:
bonjour

Et est ce que cette simple macro permet d'afficher le complément ?
Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
    
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
    
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "l'image" qui va s'afficher sur le bouton
        .FaceId = 133
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "Macro1"
    End With
    
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 134
        .OnAction = "Macro2"
    End With
    
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
         .FaceId = 135
        .OnAction = "Macro3"
    End With
    
    CmdBar.Visible = True





pour supprimer ensuite la barre d'outils:
On Error Resume Next
    Application.CommandBars("MaBarrePerso").Delete



bonne journée
michel


Merci Michel,
Je n'ai pas testé donc code, je suis sur qu'il fonctionne.
Effectivement, nous avons travaillé avec myDearFriend hier soir et en sommes arrivés à la même conclusion que toi: le code pour l'affichage du bouton n'est pas adapté à Excel 2007.
Je m'acance peut être mais une correction devrait être apportée dans les semaines à venir.

cordialement