Enregistrer chaque feuille de calcul dans un autre fichier

piobote

XLDnaute Nouveau
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

Nous a quitté
Repose en paix
Re : Enregistrer chaque feuille de calcul dans un autre fichier

Bonjour,
A affiner
Code:
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 963
Messages
2 093 996
Membres
105 906
dernier inscrit
aifa