Bonjour,

J'ai fait une macro de sauvergarde qui est la suivante :

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
Sub enregistrementFeuilledeContrôle()
 
Application.ScreenUpdating = False
 
    'Copie de la feuille FDS dans un nouveau classeur
    Sheets("Feuille de contrôle").Copy
 
  'Choix du répertoire
    monrépertoire = ThisWorkbook.Path
 
 
       'Enregistrement incrémentée de la date du jour
    With ActiveWorkbook
    .SaveAs Filename:=monrépertoire & Application.PathSeparator & "Feuille de contrôle_" & Format(Date, "ddmmyy") & ".xls"
    .Close
    End With
 
 
 
    Call Module5.Findejournée
 
 
 
End Sub
Elle fonctionen à merveille ! Mais je voudrai enregistrer dans ce classeur de sauvegarde une deuxième feuille, mais je ne sais pas du tout où intervenir dans mon code :s


Merci d'avance,