Créaton de classeurs Excel

[biba78]

Bonjour à tous,
j'ai besoin d'aide, est ce que possible de créer automatiquement a partir d'un fichier excel avec 10 feuilles, 10 fichiers excel séparé, sans de copier a chaque fois chaque feuille et l'enregistrer!!!
merci pour votre aide

 

[Compte Supprimé 979]

Re : Créaton de classeurs Excel

Bonjour Biba78,

Voici un code qui pourait t'aider

Sub ExtraireFeuille()
  Dim NSht As Integer, VPath As String, VFic As String
  ' Définir le chemin de sauvegarde
  VPath = ThisWorkbook.Path
  ' Pour chaque feuille contenu dans le classeur - 1
  For NSht = 1 To ActiveWorkbook.Sheets.Count
    ' Nom du fichier = nom de la feuille
    VFic = Sheets(NSht).Name
    ' Déplacer la feuille dans un nouveau classeur
    Sheets(NSht).Move
    ' Sauvegarder ce nouveau classeur
    ActiveWorkbook.SaveAs VPath & "\" & VFic
    ' Le fermer
    ActiveWorkbook.Close
  Next NSht
End Sub

A+

 

[Papou-net]

Re : Créaton de classeurs Excel

Bonsoir biba78,

Oui, c'est possible, et même de manière simple, avec une macro.

Par contre, je n'ai pas bien compris toute la question : veux-tu enregistrer chaque feuille, et si oui, comment faut-il les nommer et dans quel répertoire ?

Dans cette attente.

Cordialement.

Edit : bonsoir Bruno.