Diviser 1 fichier contenant des onglet en plusieurs fichier

bonjour,

je suis sous excel2010 et je souhaiterai a partir d'un fichier contenant 60 onglet créer automatiquement 60 fichiers contenant 1 des onglets

Bonjour,

Essaie ce code à placer dans un module en VBE

Il serait bon peut être de savoir où tu veux stocker l'info. De base j'ai supposé que tu dois faire la sauvegarde dans le même répertoire.

Sub test()
'Macro Dan le 20/12/11
Dim i As Byte
Dim chemin As String
For i = 1 To Sheets.Count
Workbooks.Add
chemin = ThisWorkbook.Path & "\"
With ActiveWorkbook
    .SaveAs Filename:=chemin & Sheets(i).Name & ".xlsx"
    .Close
End With
Next
End Sub

Amicalement

Edit Dan : modifié extension du fichier et ajouté une instruction(merci à Banzai64 de me l'avoir signalé.)

Sub test()
'Macro Dan le 20/12/11
Dim i As Byte
Dim chemin As String
  chemin = ThisWorkbook.Path & "\"
  For i = 1 To Sheets.Count
    Sheets(i).Copy
    With ActiveWorkbook
      .SaveAs Filename:=chemin & Sheets(1).Name & ".xlsx"
      .Close
    End With
  Next
End Sub

Amicalement