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

Daniel Desch

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

XLDnaute Barbatruc
Supporter XLD
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()


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

Pièces jointes

  • Daniel Desch- test- v1.xlsm
    17.7 KB · Affichages: 7

mapomme

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Daniel Desch- test- v1a.xlsm
    17.6 KB · Affichages: 3
Dernière édition:

Staple1600

XLDnaute Barbatruc
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
;)
 

Discussions similaires