Archiver plusieurs feuilles

Bonjour le forum

j'utilise cette macro pour archiver mes feuilles une par une :

Sub Archiver()

Dim nomfichier

Dim num As Integer

Dim no_client As String

ThisWorkbook.ActiveSheet.Copy

chemin = "C:\$Echange\"

nomfichier = Format(Now(), "dd mm yy à hh mm ss")

MsgBox "Sauvegarde de la feuille en cours le : " & nomfichier

With ActiveWorkbook

.SaveAs Filename:=chemin & nomfichier

.Close

End With

End Sub

Est il possible d'avoir une macro de même type mais qui archive plusieurs feuilles en même temps feuil1 feuil2 feuil3 feuil4 feuil5 ...

en pouvant nommer chaque feuille par son propre nom ?

Je vous remercie d'avance

Bonjour,

si çà peut t'aider :

ici on copie 2 feuilles dans un nouveau fichier que l'on nomme (= cellule D5)

Sub enregistre()
    Dim Wbk As String, NomFichier As String
    Wbk = ActiveWorkbook.Name
    NomFichier = Range("d5") 'récupère le nom fichier

    Sheets(Array("GOOD", "REJECT")).Select
    Sheets("REJECT").Activate
    Sheets(Array("GOOD", "REJECT")).Copy 'nouveau classeur avec les 2 feuilles

    '*******nomme et classe le fichier dans le répertoire c:\excel2000 **********
    '*******ci-dessous tu mets le chemin et le répertoire *******
    ActiveWorkbook.SaveAs "c:\excel2000\" & NomFichier
Workbooks(Wbk).Activate
    Sheets("STAT_GOOD").Activate
End Sub

à adapter

Claude.

Bonjour,

Ton code modifié, à tester :

Sub Archiver()
Dim sh As Worksheet
Dim nomfichier
Dim num As Integer
Dim no_client As String
For Each sh In ThisWorkbook.Worksheets
sh.Copy
chemin = "C:\Documents and Settings\Administrateur\Mes documents\"
nomfichier = Format(Now(), "dd mm yy à hh mm ss")
MsgBox "Sauvegarde de la feuille " & sh.Name & " le : " & nomfichier
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier & " " & sh.Name
.Close
End With
Next sh
End Sub

Copie toutes les feuilles du classeur en cours, chacune sur un fichier différent, avec le nom de la feuille à la fin.

Edit : chemin à modifier à ta convenance bien sûr, peut-être que "administrateur" ne marchera pas...

C'était pour ne pas mettre la pagaille chez moi...

merci à vous, je vais tester tout cela!