Enregistrer une copie sans VBA

Bonjour
J'enregistre une copie d'un fichier sans macros avec le code bien connu suivant, puis je rouvre le fichier original tout en gardant la copie d'archive ouverte :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

'Première sauvegarde ActiveWorkbook.Save ActiveWorkbook.SaveAs s 'Suppression des modules et des lignes de code Set VBComps = ActiveWorkbook.VBProject.VBComponents For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp ActiveWorkbook.VBProject.References.Remove ActiveWorkbook.VBProject.References("maref") ActiveWorkbook.Save Workbooks.Open Filename:=nomRepertoireSource & "\" & nomWindowSource, Local:=True Windows(nomWindowSource).Activate Application.DisplayAlerts = True

---

Cependant, il apparaît que ni mon fichier ni sa copie ne sont enregistrés : la ligne de code en gras ne s'exécute tout simplement pas. Conséquence, le fichier d'archive a encore du code (mais pas tout).
Quelqu'un aurait-il une idée sur la question ?

Merci

Bonjour,

Tu as quelle version d'Excel ? A partir de 2007, tu peux l'enregistrer sous .xlsx donc, classeur sans macro.

Hervé.

J'ai oublié de préciser : c'est excel 2003. Merci.

Bonjour,

Une piste avec le code suivant qui est à aménager car il est issu d'une réponse à une demande d'il y a longtemps. Je joins l'exemple en pièce jointe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Sub ExportXLT2XLS() Dim W1 As Workbook Dim W2 As Workbook Dim i& Dim Suggere As Variant Dim Reponse As Variant On Error GoTo Erreur Application.ScreenUpdating = False '---- Votre classeur instance de xlt ---- Set W1 = ThisWorkbook '---- Classeur cible à enregistrer ---- Set W2 = Workbooks.Add(xlWBATWorksheet) '---- Nom feuille bidon pour éviter conflit ---- W2.Sheets(1).Name = "_tEmPo_" '---- Copie de toutes les feuilles avec leurs ---- '---- formats et mise en page d'impression ---- For i& = 1 To W1.Sheets.Count W1.Sheets(i&).Copy after:=W2.Sheets(W2.Sheets.Count) Next i& '---- Destruction de la feuille bidon ---- Application.DisplayAlerts = False W2.Sheets(1).Delete '---- Sauvegarde du classeur cible ---- Suggere = "A remplacer par votre variable nom" Reponse = Application.GetSaveAsFilename( _ InitialFilename:=Suggere, _ fileFilter:="Classeur Microsoft Excel (*.xls), *.xls") If Reponse <> False Then W2.SaveAs Filename:=Reponse '#### LIGNES A OCCULTER SELON VOTRE GRE #### '---- Ferme sans sauvegarder votre instance de xlt ---- W1.Saved = True W1.Close '########################################### '---- Pseudo traitement d'erreur ---- '---- Si plantage on remet les choses en place ---- Erreur: Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

---

Merci, mais j'aimerais bien éviter de faire des copies de feuilles/zones ou autres.
Il n'y a vraiment pas de solution pour faire un bête enregistrement comme dans mon code ?