Macro copier feuille Excel 2016

Résolu
domimeca Messages postés 36 Statut Membre -  
domimeca Messages postés 36 Statut Membre -
Bonjour,
Je prépare un fichier client. J'ai fais une macro pour créer une nouvelle feuille client. Sur cette nouvelles feuille il y a des boutons pour accéder à d'autre macros. Le problème est que lorsque je fais cette copie à l'aide de ma macro "copierfeuille", le texte de mes boutons disparait et est remplacé par "bouton1, bouton2...". Ceci dit si je fais la copie manuellement, aucun problème. Voici mon code: 

Sub copierfeuille()

    Sheets("ACCUEIL").Select
    Sheets("Feuil1").Visible = True
    Sheets("Feuil1").Select
    ActiveSheet.Buttons.Add(3, 33, 61.5, 35.25).Select
    ActiveSheet.Buttons.Add(72.75, 30.75, 123, 0).Select
    ActiveSheet.Buttons.Add(231.75, 36, 63.75, 28.5).Select
    ActiveSheet.Buttons.Add(315.75, 36, 63.75, 28.5).Select
    ActiveSheet.Buttons.Add(493.5, 36, 63.75, 28.5).Select
    ActiveSheet.Buttons.Add(594, 36, 63.75, 28.5).Select
    ActiveSheet.Buttons.Add(87.75, 36, 63.75, 28.5).Select
    Sheets("Feuil1").Copy Before:=Sheets(1)
    Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub


Quelqu'un peut-il m'aider?
Merci d'avance.


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

1 réponse

  1.
    domimeca Messages postés 36 Statut Membre 1
     
    Bonjour à tous,
    Je suis un peu idiot, j'avais utilisé la fonction automatique pour ma macro (pour en principe gagner du temps) mais je viens d'enlever toutes les sélection de boutons et apparemment ça marche. Voici le résultat: 
    Sub copierfeuille()

'
    Sheets("ACCUEIL").Select
    Sheets("Feuil1").Visible = True
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy After:=Sheets(3)
    Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub


    Merci à ceux qui ont commencer à se pencher sur mon problème.
    0