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