Problème de bouton parasitant une macro

  • Initiateur de la discussion Initiateur de la discussion Satcho
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Satcho

XLDnaute Nouveau
Bonjour !
J'ai créé une macro pour générer un nouveau fichier à partir d'un autre en ne conservant que les données.
Cette macro est tout simplement activée par un bouton.
Mais lorsque je lance cette macro, le nouveau fichier créé (de même que le nouveau !) se voient pollués par un nouveau nom de bouton qui vient se superposer à l'ancien !

Par ailleurs le bouton qui arrive sur le nouveau fichier ne me sert à rien ...
Merci pour l'aide ...🙂

Satcho.

Sub Macro1()
'
' Macro1 Macro
'

'
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Pascal\Desktop\Retour info Client.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Windows("Test suivi1.xlsm").Activate
Sheets("Retour Client").Select
ActiveSheet.Buttons.Add(153.75, 12, 189, 23.25).Select
Sheets("Retour Client").Copy Before:=Workbooks("Retour info Client.xlsm"). _
Sheets(1)
Range("B5:B10").Select
Selection.ClearContents
Windows("Test suivi1.xlsm").Activate
Range("B5:B10").Select
Selection.Copy
Windows("Retour info Client.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub
 

Pièces jointes

Re : Problème de bouton parasitant une macro

Bonjour à tous
essaye ceci
Code:
Sub Exporter_Feuille()
    Application.ScreenUpdating = False
    Sheets("Retour Client").Copy
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete
    ActiveWorkbook.Close savechanges:=True, Filename:="C:\Users\Pascal.BERZAN\Desktop\Retour info Client.xlsx"
    Range("B5:B10").ClearContents
    Application.ScreenUpdating = True
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
864
Réponses
5
Affichages
485
Réponses
5
Affichages
636
Retour