Comment rendre la macro active ?

Version imprimable

11/03/2008, 22h59
Pascalou2008

Comment rendre la macro active ?

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
11/03/2008, 23h19
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:

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

Merci pour votre réponse mais je n'arrive pas à ce qu'en ouvrant le fichier, le bouton apparaisse...
Voici le code,

Code:

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

Pour rendre ta barre visible tu fait comme ceci

Code:

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