Macro pour exporter chaque feuille

[Celine]

Bonjour le forum,
Mon classeur contient plusieurs feuilles nommées respectivement nom1,nom2,...nom i,...nom z.
Je souhaite exporter chaque feuille dans un dossier nommé export ayant z classeurs nom1.xls,nom2.xls,...nomz.xls.
Quelqu'un a dejà ce macro sous les coudes?
Ceci m'interesse.
A très prochainement

 

[JPM]

Bonjour Céline, le forum,

Je te propose ci-dessous un code qui exporte chaque feuille de calul du classeur vers un noveau fichier excel et qui enregistre ce fichier dans un dossier spécifié au début de la macro.

Sub export_feuilles()
  'chemin d'accès complet pour le dossier de destination
  Const MON_DOSSIER As String = 'C:\\..\\...\\dossier\\'
  
  Dim f As Worksheet
  
  'export de toutes les feuilles de calcul
  For Each f In ActiveWorkbook.Worksheets
    'copie de la feuille vers un nouveau classeur
    f.Copy
    'enregistrement du nouveau classeur
    ActiveWorkbook.SaveAs MON_DOSSIER & ActiveSheet.Name
    'fermeture du classeur
    ActiveWorkbook.Close
  Next
  
End Sub

En espérant que cela puisse te servir

Bonne journée

Jean-Pierre