XL 2013 Sauvegarde intermédiaire d'un classeur sous un autre nom

[Daniel Desch]

Bonjour

Je voudrais lors de l'exécution d'une macro excel d'un classeur excel créer une copie sous un autre nom du classeur dans son état actuel avec toutes les feuilles mais sans les macros puis revenir à l'exécution de ma macro.

Quelle est la méthode la plus simple ?

Vous remerciant par avance pour vos réponses

 

[mapomme]

Bonsoir @Daniel Desch,

Voir un exemple dans le fichier joint - macro Sub CopieSansMacro()

Si le fichier s'appelle toto.xslm, alors le fichier sans macro aura pour nom : toto (copie).xlsx
Le fichier sans macro sera sauvegardé dans le même répertoire que le fichier original toto.xslm

La macro Test (bouton Hop!) montre comment utiliser Sub CopieSansMacro()

Sub CopieSansMacro()
Dim newName1, newname2, oldStatus
   newName1 = Replace(ThisWorkbook.FullName, ".xlsm", " (copie).xlsm")
   oldStatus = Application.ScreenUpdating: Application.ScreenUpdating = False
   Application.DisplayAlerts = False: On Error Resume Next
   Kill newName1: ThisWorkbook.SaveCopyAs newName1
   Workbooks.Open newName1
   newname2 = Replace(newName1, ".xlsm", ".xlsx"): Kill newname2
   ActiveWorkbook.SaveAs Filename:=newname2, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
   ActiveWorkbook.Close: Kill newName1
   On Error GoTo 0: Application.DisplayAlerts = oldStatus
   If Dir(newname2) <> "" Then
      MsgBox "Fichier sauvegardé sans macro sous :" & vbLf & newname2, vbInformation
   Else
      MsgBox "Fichier sauvegardé sans macro ==> Echec ! ", vbCritical
   End If
End Sub

 

[Daniel Desch]

Bonjour mapomme,

Merci beaucoup pour votre macro qui fonctionne très bien sur l'exemple.
Reste pour moi à l'adapter dans mes scripts, mais à priori pas de problème

Merci encore et bonne journée

Daniel

 

[mapomme]

Bonjour @Daniel Desch ,

Une étourderie m'a fait commettre une petite bourde.

Dans le fichier v1, il faut remplacer la ligne On Error GoTo 0: Application.DisplayAlerts = oldStatus par la ligne :
On Error GoTo 0: Application.DisplayAlerts = True: Application.ScreenUpdating = oldStatus

C'est ce qui a été fait dans version v1a ci-jointe.

 

[Staple1600]

Bonsoir le fil,

[aparté]

La macro Test (bouton Hop!) montre comment utiliser Sub CopieSansMacro()

Monsieur mapomme,
Merci de préciser si votre acte de prosélytisme à peine masqué qui se cache derrière ce bouton concerne:
1) un Ce lien n'existe plus du pays de France (enfin c'est ce qu'on dit dans la presse spécialisée)
2) ou son exact contraire (niveau philosophie et éthique )


Au passage, je vous félicite pour ce petit bout de code et vous souhaite une bonne fin de dimanche

 

[Daniel Desch]

Bonjour mapomme

Et merci beaucoup pour cette précision

Bonne journée

Daniel