Macro de sauvegarde

Version imprimable

Macro de sauvegarde

Bonjour,

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

Code:

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,

Exemple pour enregistrer les feuilles "Feuille de contrôle" et "toto" dans un nouveau classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub enregistrementFeuilledeContrôle()
Dim monRep As String
 
Application.ScreenUpdating = False
'Choix du répertoire
monRep = ThisWorkbook.Path
'Copie de la feuille FDS dans un nouveau classeur
Sheets(Array("Feuille de contrôle", "toto")).Copy
With ActiveWorkbook
    'Enregistrement incrémentée de la date du jour
    .SaveAs Filename:=monRep & Application.PathSeparator & "Feuille de contrôle_" & Format(Date, "ddmmyy") & ".xls"
    .Close
End With
End Sub

01/07/2011, 11h14
Edaine

d'acccord ! ^^

Merci :)