Discussion :

[isis1be]

Salut à tous
J'ai créé un classeur modèle.xlt,
J'ai créé un bouton personnel dans la barre d'outils d'Excel qui fait appel à une macro qui ouvre une application que j'ai réalisée.

Code :

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

1
2
3
Sub Macro_Ouvre()
accueil.show
End Sub

Mais le problème c'est qu'à la création d'un nouveau classeur "Dupont.xls" apparemment il créerai une macro relier à ce nouveau classeur

'Dupont.xls'!Module1.Macro_ouvre

Le problème c'est que quand je veut réouvrir l'application avec mon bouton à partir de mon classeur d'origine il veut en même temps ouvrir mon classeur "Dupont.xls"
Comment faire pour que cela n'arrive pas car si j'efface mon classeur Dupont.xls il me dit que :

le fichier que je tente d'ouvrir a peut-être été renommer ou supprimer

alors que je veux ouvrir uniquement mon application et faire apparaitre l'accueil
Je vous remercie de votre aide et désolé si il manque des infos. A bientôt

[zyhack]

Bonjour

A mon avis il faudrait que ce soit le classeur que tu ouvres qui crée ce bouton personnel.
En événement Workbook_Open tu le crées et en Workbook_BeforeClose tu l’enlèves.

En faisant une recherche sur la création de menu sur le site tu devrait trouver ton bonheur, j’ai vu quelques post passer sur le sujet.

bonne journée

[isis1be]

salut zyhack

Merci pour tes infos ca marche nickel maintenant avec le code

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
Private Sub Workbook_Open()
    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 = 140
        '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
 
    CmdBar.Visible = True
End Sub

mais pour changer les images du bouton est-que tu sais ou trouver les code correspondant aux différents boutons?
Un grand merci à toi et à bientôt

[SilkyRoad]

bonjour

mais pour changer les images du bouton est-que tu sais ou trouver les code correspondant aux différents boutons?

Comment lister les FaceID dans la feuille de calcul ?


bonne journée
michel

[isis1be]

encore une question, dans le code j'ai déjà rajouter le nom que je voulais pour un bouton

Code :

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

.Caption = "calcul honoraires"

mais comment faire pour que le texte s'affiche également sur le bouton? car quand je le fait par le menu personnaliser il ne garde pas les modification.
Je vous remercie tous et à bientôt.

[zyhack]

bonjour

un peu long à repondre mais c'est bon j'ai trouvé

il faut utiliser la propriété .style
ce qui donne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    With Bouton
        'Définit "l'image" qui va s'afficher sur le bouton
        .FaceId = 140
        'nom du bouton
        .Caption = "calcul honoraires"
        'Style du bouton affichage image + texte
        .Style = msoButtonIconAndCaption
        '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

[isis1be]

Je te remercie, j'avais essayer beaucoup de chose mais rien ne marchait
Mais maintenant c'est nickel , un grand merci à vous tous.