Eclater un fichier Excel en plusieurs

Bonjour,

Voici mon problème,

J'ai actuellement un tableau Excel de x lignes (environ 200 à 400 lignes) . Il faudrait que ce fichier s'éclate en X fichiers en reprennant comme nom de fichier la Colonne A ligne 1 pour le premier, la colonne A ligne 2 pour le second, etc... et que chaque fichiers reprennent uniquement la ligne correspondant à son titre. En résumé il s'agit de créer un fichier par ligne du fichier de départ.

Est-possible ?

Merci de vos réponses.

Bonjour

Les spécialistes VBA n'étant pas là, une XL4 sur le fichier joint.(Tu peux toujours la tester)

Cordialement

Bonjour à tous,

En VBA, çà donnerait:

Sub CréationFichiers() 'au format .xls
Dim Chemin$, NomFichier$, Lg%, i%
        Application.ScreenUpdating = False
        Chemin = ThisWorkbook.Path
    With ActiveSheet
        Lg = .Range("a65536").End(xlUp).Row

        Application.DisplayAlerts = False
    '--- Attention: écrase le fichier si existe déjà à ce nom ---
        For i = 1 To Lg
            NomFichier = .Cells(i, "a") & ".xls"
            Workbooks.Add
            .Rows(i).Copy Destination:=Range("a1")
            ActiveWorkbook.SaveAs Filename:=Chemin & "\" & _
            NomFichier, FileFormat:=xlNormal
            ActiveWorkbook.Close Savechanges:=False
        Next i
    End With
End Sub

Amicalement

Claude

Bonjour,

Tout d'abord un grand merci pour ce qui est de vos réponses concernant mon problème, la solution XL4 fonctionne très bien.

Par contre je voulais savoir si il était possible d'ajouter des paramètre supplémentaires, les paramètres étant les suivants:

• Appliquer un logo en A1 sur tous les fichiers créés
• Conserver la ligne 2 sur chaque fichiers créés comme descriptif des colonnes

Voir le fichier joint.

Cordialement,

Bonjour

Macro modifiée

Cordialement

Bonjour,

je vous remercis pour l'ensemble des messages, la dernière réponse répond entièrement aux critères que je recherchai, merci encore et bonne continuation, ce forum est exemplaire.

Cordialement

Bonjour,