Discussion :

[Godzestla]

Salut,

j'ai créé une barre d'outils perso via VBA, mais quand je ferme et que je rouvre Word, oops, elle est partie et bien partie.

Ci-dessous le lien ou mon code est visible (autre post pour problème d'appel macro)
http://www.developpez.net/forums/sho...d.php?t=571364

Si quelqu'un pouvait m'aider, je deviens chèvre avec ce truc.

[Heureux-oli]

Tu peux toujours la mettre sur AutoExec de Word.
Dans le normal.dot, tu fais une routine AutoExec qui charge ta barre d'outils.

C'est surprenant, je viens de faire un test et ma barre d'outils reste visible même après fermeture de Word.

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
18
19
20
21
22
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 = "Mon bouton"
        .OnAction = "MaRoutine"
    End With
    End With
End With
 
 
 
End Sub
Sub maroutine()
MsgBox "Hello "
End Sub

Essaie

[Godzestla]

Salut et merci.

j'essaie comme tu dit et je tiens au courant du résultat.

Mon problème actuellement est de peindre une image sur le bouton.

Pour Excel j'ai eu de ouskerlnor le code qui fait :

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
18
19
20
21
    'Insère l'image du bouton dans la feuille Excel
    ActiveSheet.Pictures.Insert(CheminEtNomImage).Select


    'Copie l'image en vue de son application au bouton
    Selection.Copy

    Set labarre = CutePdf_WordApp.CommandBars(NomDeLaBarre)

    'Ajoute le bouton à la barre d'outils personnalisée
    Set LeBouton = labarre.Controls.Add(Type:=msoControlButton)
        LeBouton.FaceId = 0
        LeBouton.Caption = ActionDubouton 'info-bulle du bouton
        LeBouton.OnAction = NomClasseur & "." & NomMacro
        
        'Collage de l'image sur le bouton
        LeBouton.PasteFace
        
        'Suppression de l'image dans la feuille de calculs
        Selection.Delete

ou les instructions en gras collent l'image sur le bouton.
Mais je ne sais pas comment faire en Word.

J'ai trouvé ceci pour remplacer la première ligne en gras:

Code :

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

1
2
3
4
 
    Selection.InlineShapes.AddPicture FileName:= _
        CheminEtNomImage _
        , LinkToFile:=False, SaveWithDocument:=True

mais je cherche actuellement pour faire le copy juste après et puis le delete.

Si tu peux m'expliquer, cela m'aiderait beaucoup.

[Invité]

Bonjour

Deux articles à lire sur les barres de commandes :

http://starec.developpez.com/tuto/barrecommande/
http://fring.developpez.com/vba/excel/barremenu/

Comme les applications Office utilisent une référence commune, tu devrais y trouver ton bonheur.

Starec

[Godzestla]

Merci Starec.

je fonce lire.

[Godzestla]

Starec, ma barre est maintenant comme je la veux.

heureux-oli, via Model.dot et autoexec cela marche, évidement.

Il me reste maintenant à insérer par VBA mon code qui crée ma barre perso dans Model.dot.

Je fais cela comment ?

J'ai repéré que le model.dot utilisé (don a modifier) est à C:\Documents and Settings\a477453\Application Data\Microsoft\Templates

C'est possible de retrouver ce chemin ?
C'est possible de copier du code VBA vers model.dot (en supprimant avant si doublon) ?

[Heureux-oli]

une piste

http://word.developpez.com/faq/index...emplacer_macro

[Godzestla]

Salut,

merci pour cette piste. Génial ce code.

je suis en train de me casser la tête pour repérer par mon code VBA quels sont les macros de mon code source pour pouvoir supprimer et remplacer ces mêmes macros dna sle fichier cible.

Si tu as encore une piste ou un exemple de code qui liste les macros des modules, ce serait top.

Autre question : Si le Module n'existe pas dans le fichier cible, il est créé automatiquement où il faut le créer ? (et comment s'il faut le créer)

Et encore merci pour ton aide.

[Godzestla]

Voir autre post avec barre d'outil qui se réplique pour la solution.