Ajouter une bouton qui va appeler une macro

Version imprimable

Boujour à tous,

Je suis bloqué sur l'ajout d'une bouton dans une feuille. Voici mon 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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub AjoutButton()
    ActiveSheet.Buttons.Add(650, 300, 50, 20).Select
    Selection.OnAction = "Exporter"
    Selection.Characters.Text = "Exporter"
    With Selection.Characters(Start:=1, Length:=8).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub
 
Sub Exporter()
    Dim year As String
    Dim quarter As String
    Dim Directory As String
    Dim Today As String
    Today = Date
    Today = Replace(Today, "/", "_")
    year = Range("Date!E3").Value
    quarter = Range("Date!D3").Value
    Directory = Range("Date!F2").Value
    If Right(Directory, 1) = "\" Then
    Else
        Directory = Directory & "\"
    End If
    Select Case ActiveSheet.Name
    Case "Graphique_Réorientation"
        Sheets(Array("Graphique_Réorientation", "Tableau_Réorientation")).Move
        ChDir Directory
        ActiveWorkbook.SaveAs Filename:=Directory & "Réorientation " & quarter & year & "_" & Today, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWorkbook.Close
    Case "Graphique_BudgetSalleBlanche"
        Sheets(Array("Graphique_BudgetSalleBlanche", "Tableau_BudgetSalleBlanche")).Move
        ChDir Directory
        ActiveWorkbook.SaveAs Filename:=Directory & "Budget " & quarter & year & "_" & Today, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWorkbook.Close
    Case "Graphique_Surnombres"
        Sheets(Array("Graphique_Surnombres", "Tableau_Surnombres")).Move
        ChDir Directory
        ActiveWorkbook.SaveAs Filename:=Directory & "Surnombres " & quarter & year & "_" & Today, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWorkbook.Close
    Case "Graphique_CoûtMoyenParAgent"
        Sheets(Array("Graphique_CoûtMoyenParAgent", "Tableau_CoûtMoyenParAgent")).Move
        ChDir Directory
        ActiveWorkbook.SaveAs Filename:=Directory & "Coût moyen par agent " & quarter & year & "_" & Today, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWorkbook.Close
    End Select
 
End Sub

Quand je lance la macro "AjoutButton", ça bloque toujours à la ligne suivante.
Selection.OnAction = "Exporter"

Donc Veuillez chercher des erreurs pour moi.
Merci d'avance.

22/05/2008, 10h18
ouskel'n'or

Place ta macro Exporter dans un module standard -> Menu outils -> Macros -> Vb editor -> Menu Insérer -> Module standard
Et là, tu colles ta macro.
Pense à l'enlever du code de ta feuille ;)
22/05/2008, 10h34
funkykid

Merci, ouskel'n'or,

En fait, les deux macro que j'ai mis en-dessus sont déjà dans le module1, mais pas dans une feuille.

:oops: Bien sûr !
J'ai lancé ta macro -> Même bug !
J'ai effacé les trois premières lignes et les ai ré-écrites... Ça fonctionne. Donc remplace ces trois lignes par les miennes
Code:

1 2 3 4 5 6 7 8 9 10 Sub AjoutButton() ActiveSheet.Buttons.Add(650, 300, 50, 20).Select Selection.OnAction = "Exporter" Selection.Characters.Text = "Exporter" With Selection.Characters(Start:=1, Length:=8).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 End With End Sub
Une explication ? Je n'en ai pas :( Sans doute une crotte de bit dans les caractères (???) )
Quant aux propriétés de ton bouton, tu peux supprimer toutes celles qui sont définies par défaut.

Citation:

.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic

Tu dis
A+

22/05/2008, 11h12
funkykid

ouskel'n'or,

J'ai essayé ta macro, mais ça marche pas non plus.
C'est vraiment un problème très étrange. Bon, laisse tomber le.
Je vais lancer la macro Exporter sans ajouter la bouton d'appel.
Ca me gêne pas beaucoup.
Remerci à toi!!!!!