Discussion :

[guidav]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonjour,

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

Hervé.

[guidav]

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

[PMO2017]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guidav]

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 ?