une macro

Version imprimable

05/05/2008, 10h11
isis1be

une macro
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:

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

Citation:

'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 :

Citation:

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
05/05/2008, 13h11
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

salut zyhack

Merci pour tes infos ca marche nickel maintenant avec le code

Code:

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

06/05/2008, 12h19
SilkyRoad

bonjour

Citation:

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
06/05/2008, 12h32
isis1be

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

Code:

.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.

bonjour

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

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

Code:

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

07/05/2008, 14h32
isis1be

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