Discussion :

[vaucluseimmo]

Bonjour a toutes et a tous

je cherche en vain a adapter cette macro, afin d'y ajouter d'autres boutons
mais j'y arrive pas

Voici cette macro, pris sur ce site

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub AjouterCmdBar()
Dim cmd As CommandBar
Dim ctrl As CommandBarButton
Set cmd = Application.CommandBars.Add("MaBarre")
With cmd
    .Visible = True
    With .Controls
    Set ctrl = .Add(msoControlButton)
    With ctrl
        .Style = msoButtonCaption
        .Caption = "Usf1"
        .OnAction = "Usf1"
     End With
      End With
    End With
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Usf1()
UserForm1.Show
End Sub

merci a l'avance pour votre aide
Cordialement

[ouskel'n'or]

Deux adresses : Celle d'un tuto et celle de questions posées sur le tuto et leurs réponses
Le tuto
Les questions
Et si ça fonctionne pour Excel, ce ne sera pas difficile d'adapter pour Word
Confie-nous tes difficultés

[vaucluseimmo]

Bonsoir
Merci de ta réponse

J'ai bien lu les Tutos

J'y suis arrivé,mais impossible de pouvoir attribuer un Faceid
ça bug
a cette ligne,en vert

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton, ID:=280)
With Cbut
    .Style = msoButtonIconAndCaption '<-- bouton avec texte uniquement
    .Caption = "Usf1" '<-- label du bouton
    .OnAction = "Usf1" '<-- procédure à exécuter
    .Tag = "sm1cbut1" '<-- étiquette
End With

Comprends pas

Bonne soirée
Cdlt

[ouskel'n'or]

Bon, je ne vais pas chercher ce qui ne fonctionne pas, voici un code testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
Dim MaBarre As Object, MonBouton As Object
    Application.CommandBars.Add(Name:="MaBarreAmoi").Visible = True
    Set MaBarre = CommandBars("MaBarreAmoi")
        MaBarre.Visible = True
    Set MonBouton = MaBarre.Controls.Add(Type:=msoControlButton, Id:=280, Before:=1)
        MonBouton.Caption = "Supprime la barre d'outils"
        MonBouton.OnAction = "MacroQuiSupprime"
    Set MonBouton = Nothing
    Set MaBarre = Nothing
End Sub
 
Public Sub MacroQuiSupprime()
    If MsgBox("Tu veux vraiment la supprimer la nouvelle barre d'outils ?", vbYesNo, "SUPPRIMER LA BARRE TOUTE NEUVE") = vbYes Then _
    Application.CommandBars("MaBarreAmoi").Delete
End Sub

Tu testes et si ça fonctionne chez toi c'est que tu as bien l'appareil photo
A+

[vaucluseimmo]

Bonsoir

Merci de ton aide
Mais ,désolé ça fonctionne pas
J'ai Word XP 2002
En piéce jointe la copy du message erreur

Bonne soirée

[Heureux-oli]

Salut,

Voilà le code un peu modifié.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
Dim MaBarre As CommandBar, MonBouton As CommandBarButton
    Application.CommandBars.Add Name:="MaBarreAmoi"
    Set MaBarre = CommandBars("MaBarreAmoi")
        MaBarre.Visible = True
    Set MonBouton = MaBarre.Controls.Add(Type:=msoControlButton)
        MonBouton.Caption = "Supprime la barre d'outils"
        MonBouton.FaceId = 280
        MonBouton.OnAction = "MacroQuiSupprime"
    Set MonBouton = Nothing
    Set MaBarre = Nothing
End Sub
'**************************************
Public Sub MacroQuiSupprime()
    If MsgBox("Tu veux vraiment la supprimer la nouvelle barre d'outils ?", vbYesNo, "SUPPRIMER LA BARRE TOUTE NEUVE") = vbYes Then _
    Application.CommandBars("MaBarreAmoi").Delete
End Sub

[vaucluseimmo]

Bonsoir Heureux Oli

merci
Ce Code fonctionne trés bien

En fait suite a ce code j'ai trouvé pour modifier le mien
Comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set Cbut = Cpop1.Controls.Add (msoControlButton)
With Cbut
    .Caption = "Usf1" '<-- label du bouton
    .Faceid = 286
    .OnAction = "Usf1" '<-- procédure à exécuter
    .Tag = "sm1cbut1" '<-- étiquette
End With

Bonne nuit
Cordialement

[vaucluseimmo]

Bonjour Olivier

Depuis hier soir j'essai de créer un sous menu
mais j'y arrive pas du tout

Pourrais-tu me donner une piste

Merci beaucoup
Bonne journée
Cordialement

PS: Au fait comment fait-on pour insérer une Signature dans les Message????