Macro copier feuille Excel 2016 Résolu

Question

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.


Configuration: Windows / Firefox 57.0
        EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

domimeca · Answer

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.

Macro copier feuille Excel 2016

1 réponse

Votre réponse

Discussions similaires