Discussion :

[funkykid]

Boujour à tous,

Je suis bloqué sur l'ajout d'une bouton dans une feuille. Voici mon 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
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.

[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

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

[ouskel'n'or]

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 :

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

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.

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

Tu dis
A+

[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!!!!!