Coucou, c'est encore moi

J'ai un classeur qui contient une macro. Je souhaiterais enregistrer ce classeur mais sans la macro qu'il contient. De ce fait, en lançant la sauvegarde, la macro n'y figure plus et le VB Editor est vide.


Pour le moment, j'ai ceci...merci d'avance

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
Private Sub CommandButton10_Click()
 
Dim Date1, Heure1 As String
 
Date1 = Format(Now, "ddmmyy")
Heure1 = Format(Now, "HhNn")
 
FichierSauvegarde = ("Fichier en cours " & Application.UserName & _
" " & Date1 & "-" & Heure1 & ".xls")
 
ChDrive ("W")
ChDir ("\Test\Sauvegarde\Fichiers en cours\")
 
Dim NomChoisi
 
NomChoisi = Application.GetSaveAsFilename(FichierSauvegarde)
If NomChoisi <> False Then
ThisWorkbook.SaveAs NomChoisi, FileFormat:=xlNormal
End If
 
End Sub