Code VBA Supprimer un bouton quand j'enregistre sous un autre nom

[Phiphi27700]

Bonjour a tous
Dans mon fichier joint j'ai un bouton qui m'enregistre la feuille sous un répertoire et un nom définit dans ma macro.
Je souhaiterai que dans la copie le bouton "Enregistrer" avec son code soit supprimé
Merci

 

[camarchepas]

Re : Code VBA Supprimer un bouton quand j'enregistre sous un autre nom

Bonjour ,

Dans ce classeur , est-ce qu'il n'y a que l'onglet Liste de diffusion ,


si oui ,Comme le code lié au bouton est dans un module , il suffit d'enlever le bouton et tu sauvegardes simplement ton onglet et pas le classeur.

Les codes auto modifiant ne sont pas toujours accepté par les systèmes de sécurité et cela pose des problème de portabilité

 

[Phiphi27700]

Re : Code VBA Supprimer un bouton quand j'enregistre sous un autre nom

Bonjour
Dans le fichier sauvegarde il y a 3 feuilles dont "Liste de diffusion" quand je clic sur le bouton "enregistrer" il me sauvegarde que la feuille "Liste de diffusion" avec juste le bouton "Diffuser par e-mail" avec son code mais plus le bouton "Enregistrer" ainsi que son code.
Mais le fichier d'origine "Sauvegarde.xlsm" reste complet boutons et macro.
Merci

 

[camarchepas]

Re : Code VBA Supprimer un bouton quand j'enregistre sous un autre nom

Regardes en modifiant le code de la sorte

Sub EnregisterECN()
'enregister la liste de distribution dans un autre fichier qui contient la macro email
    Dim SaveFileName As String
    Dim Feuille As Worksheet
    
    'enregistre le fichier en cours
    ThisWorkbook.Save
    SaveFileName = "DIF-FED-" & Range("L2") & "_" & Format(Date, "dd_mm_yyyy")
    'enregistre une copie
    Sheets("Liste de diffusion").Copy
    
    ActiveWorkbook.ActiveSheet.Shapes.Range(Array("Button 1")).Delete
    ActiveWorkbook.BreakLink Name:=ThisWorkbook.Name, Type:=xlExcelLinks
    ActiveWorkbook.SaveAs Filename:="C:\Tempo\" & SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveWorkbook.Close False
   
     
End Sub

 

[Phiphi27700]

Re : Code VBA Supprimer un bouton quand j'enregistre sous un autre nom

J'ai adapté ce code merci cela fonctionne
Merci