archiver un fichier sans bouton

[minoustar]

salut tout le monde

j'ai un problème dans mon fichier

lorsque j'archive mon fichier (bouton archive) dans son emplacement .

j'ai constater qu'il archive le fichier avec les boutons!!! par contre il doit l'archiver sans bouton

s'il ya une possibilité d'ajouter ce code au macros archiver afin que le fichier s'archive sans bouttons? je vous remercie beaucoup.
le code qu il se peut ajouter .ki peux le rectifier
Set wkbSource = ThisWorkbook



'wkbSource.SaveCopyAs PathA & FileName1 & "_" & FileName2 & ".xlsm" ', FileFormatvalue = 52
'ActiveWorkbook.Close savechanges:=False

Application.DisplayAlerts = False
wkbSource.Worksheets(1).Copy
ActiveSheet.Shapes.Range(Array("Button 1")).Delete
ActiveSheet.Shapes.Range(Array("Button 2")).Delete
ActiveSheet.Shapes.Range(Array("Button 3")).Delete
ActiveWorkbook.SaveAs PathA & FileName1 & "_" & FileName2 & ".xlsx", xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False

End Sub

 

[vgendron]

hello

sans ouvrir ton fichier, juste en regardant le code que tu as posté
ActiveSheet.Shapes.Range(Array("Button 1")).Delete
ActiveSheet.Shapes.Range(Array("Button 2")).Delete
ActiveSheet.Shapes.Range(Array("Button 3")).Delete

tu sembles bien supprimer les boutons qui ont été copiés

et ensuite:
ActiveWorkbook.Close savechanges:=False
tu annules tout ce que tu viens de faire..
essaie plutot
ActiveWorkbook.Close savechanges:=true

 

[minoustar]

Salut
Si tu peux l'appliquer dans mon fichier svo

Merci a toi frere

 

[JCGL]

Bonjour à tous,

Il est préférable d'utiliser :

 ActiveSheet.DrawingObjects.Delete

car tu as un nombre impressionnant de formes dans ta feuille.

A+ à tous