Bonjour,

J'ai écris une macro qui me permet d'enregistrer le classeur ouvert dans un autre emplacement en format xlsm et sous un autre nom. Or quand j'ouvre le nouveau classeur les macros n'y sont pas.
Pouvez-vous m'indiquer la marche à suivre pour que le classeur et les modules soient sauvegarder en même temps, svp?
Merci d'avance.

Voici le code
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
Private Sub CommandButton2_Click()
'Macro qui permet de sauvegarder une copie du fichier
 
'je définie les 2 variables qui sont remplies par l'utilisateur
Dim BOST As String
 
Dim strPath As Variant
 
 
  'je sélectionne toutes les feuilles que je vais copier dans un nouveau classeur
  ActiveWorkbook.Worksheets.Copy
 
 
    'associe les valeurs rentré par l'utilisateur aux variables
   BOST = UserForm1.TextBoxBOST.Value
 
   strPath = "U:\Pl@net\" & BOST
   ChDrive strPath
   ChDir strPath
 
 
    strPath = Application.GetSaveAsFilename(InitialFileName:="Consummables  " & BOST, fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    If strPath <> False Then
         MsgBox "Save as " & strPath
    'message d'erreur en cas d'annulation
        If strPath = False Then
            MsgBox "Aucun fichier sauvegardé", vbInformation, "ANNULATION"
        End If
    End If
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs strPath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
 
    ActiveWorkbook.Close
 
    Workbooks("Create list").Close
    Application.DisplayAlerts = True
 
End Sub