Enregistrer chaque feuille de calcul dans un autre fichier

[piobote]

Bonjour,

Mon classeur contient une trentaine de feuilles, et je voudrais pouvoir enregistrer chaque feuille de calcul dans un autre fichier en le nommant comme la feuille.

Merci pour votre aide

 

[RENAUDER]

Re : Enregistrer chaque feuille de calcul dans un autre fichier

Bonjour,
A affiner

Sub Exporte()
    Chemin = ActiveWorkbook.Path
    ' Calcul du nombre de feuilles à expédier
    NbSheets = ActiveWorkbook.Sheets.Count
    For i = 1 To NbSheets
        Sheets(i).Activate
        ' Chaque feuille est exportée individuellement
        Sheets(i).Copy
        LeNom = ActiveSheet.Name
        ActiveWorkbook.SaveAs Filename:=Chemin & "\" & LeNom & ".xls", FileFormat:=xlNormal, Password:="", _
                              WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWorkbook.Close savechanges:=False
    Next i
    Sheets(1).Activate
End Sub