Transformer onglet en fichier

Bonjour,

j'ai un dossier Excel avec 800 onglets que j'aimerai transformer en 800 fichiers Excel 2007.

Est-ce que qq'un a une idée ?

Merci,

Michel

Salut,

Mets ce code dans un module et lance la macro:

Sub test()
'déclarations des variables.
Dim feuille As Sheets
Dim i As Long
Dim j As Long
Dim chemin As String
Dim nomFichier As String

i = Application.ThisWorkbook.Sheets.Count
chemin = ThisWorkbook.Path & "\"

'boucle qui dit:
si le numéro de la feuille > numéro de la dernière feuille alors on sort de la macro sinon on copie la feuille dans un nouveau classeur, on enregistre et on ferme. On passe à la feuille suivante tant que j <= i
j = 0
Do
j = j + 1
If j > i Then
Exit Sub
Else
Sheets(j).Select
nomFichier = ActiveSheet.Name
    Sheets(j).Copy
        ChDir chemin
            ActiveWorkbook.SaveAs Filename:= _
                chemin & nomFichier, FileFormat:= _
                xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
                , CreateBackup:=False
                    ActiveWindow.Close

End If
Loop
End Sub

Bonsoir,

Bonsoir, Souri84

un autre code :

Sub Macro1()
Dim LeNom, S As Integer
LeNom = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4)
For S = 1 To Sheets.Count
    Sheets(S).Copy
    With ActiveWorkbook
        .SaveAs LeNom & "_" & S & ".xls"
        .Close
    End With
Next S
End Sub

Merci, sympa de votre part