Création de fichiers textes suivant un tableau Excel

Bonjour,

Je souhaite récupérer les données d'un tableau EXCEL dans plusieurs fichiers textes.

J'ai un tableau EXCEL qui ressemble à celui-ci :

et j'aimerais en faire plusieurs document .txt nommés selon la colonne A contenant les données correspondantes de la case en colonne B.

Merci

Je n'ai pas compris grand-chose. Est-ce que tu veux créer le fichier ART1.txt avec "Vis M12" dedans (c'est tout ?) et le fichier ART2.txt avec "Ecrou M12" dedans ?

C'est très facile à faire, mais un fichier aurait été le bienvenu. Avec le peu que tu donnes, on est sûr de taper à côté ou presque.

Sub Macro1()
    Dim i As Integer, nbLignes As Integer
    Dim fichier As String, dossier As String

    dossier = ThisWorkbook.Path & "\"
    nbLignes = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To nbLignes
        fichier = dossier & Cells(i, 1) & ".txt"
        Open fichier For Output As #1
            Print #1, Cells(i, 2)
        Close #1
    Next i
    MsgBox "Les fichiers ont été enregistrés dans le dossier contenant le document Excel."
End Sub

C'est exactement ça,

Je ne savais pas quoi ajouter de plus je ne pensais pas avoir besoin de détaillé plus que ça
Dans tous les cas vous avez répondu dans le mille et je vous en remercie

Et bien je vais aller chercher un ticket de loto.
Bon vent.