Discussion :

[Pascalou2008]

Bonsoir tout le monde,
J'ai créé une macro à laquelle j'ai associé un bouton dans la barre des menus. J'enregistre mon travail.

Je réouvre le classeur auquel sont liés ces macros et d'une part le bouton ne s'affiche pas et d'autre part, je dois réactiver la macro.

Pourriez - vous m'aider à faire en sorte qu'à l'ouverture du fichier, il n'y ai qu'à cliquer sur ce bouton pour voir apparaître le résultat?

Un tout grand merci!
Pascale

[Abed_H]

Bonsoir
Tu fais comme ceci :
si tu veux que la macro soit en application à l'ouverture de ton fichier :
Dans le ThisWorkbook de ton classeur :

Code :

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

1
2
3
Private Sub Workbook_Open()
    ta macro
End Sub

Abed_H

[Pascalou2008]

Merci pour votre réponse mais je n'arrive pas à ce qu'en ouvrant le fichier, le bouton apparaisse...
Voici 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Workbook_Open()
Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook
 
    Set Wb = Workbooks.Add(1)
    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\Administrateur\Bureau\Rapport de stage\Comptes.doc", ReadOnly:=True)
 
    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With
 
 
    Wb.ActiveSheet.Range("A1").Select
    Wb.ActiveSheet.Paste
    WordApp.Application.Quit
    Application.CutCopyMode = False
    Wb.SaveAs "C:\Documents and Settings\Administrateur\Bureau\Rapport de stage\ImportWord.xls"
 
 
    Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    'Création de la barre d'outils nommée 'BarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="Barre", Position:=msoBarTop, Temporary:=True)
 
    'Ajout de 1 bouton dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "Ajout" qui va créer une nouvelle feuille
        .FaceId = 101
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "Transfert"
    End With
 
End Sub

Merci à vous et au passage à tous ceux qui m'ont aidée!
Pascale

[Abed_H]

Pour rendre ta barre visible tu fait comme ceci

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
Sub CreerBarreBouton()
Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
    On Error Resume Next
 Application.CommandBars("Barre").Delete
    'Création de la barre d'outils nommée 'BarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="Barre", Position:=msoBarTop, Temporary:=True)
    
    'Ajout de 1 bouton dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "Ajout" qui va créer une nouvelle feuille
        .FaceId = 101
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "Transfert"
    End With
CmdBar.Visible = True
End Sub

Bonne soirée

Abed_H