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