Extraction d'Excel vers txt

Bonjour,

Je suis nouvelle sur ce forum, et graphiste. Pour moi, Excel, c'est une calculette perfectionnée!

Cependant j'ai un problème avec un dossier.

J'ai un fichier de 2000 lignes sur 3 colonnes.

Je dois extraire chaque ligne et en faire un fichier texte.

A la main c'est très long. Il doit bien exister une procédure (l'équivalent des scrips sous Photoshop) pour automatiser la chose.

Pouvez-vous m'aider ? J'ai cherché sur ce forum, mais c'est toujours dans l'autre sens, de .txt vers Excel...

PS. je ne sais pas comment fonctionnent les macro avec Excel, j'ai essayé plein de trucs, ça ne marche jamais !!

Je vous joins un bout de fichier excel et quelques fichiers txt pour vous monter la chose...

Merci! Mille merci à celui ou celle qui pourra/voudra m'aider

Becassine (comme son nom l'indique!)

Bonjour,

Testes ceci pour voir si ça te convient !

Les fichiers sont créés dans le dossier du classeur et les valeurs sont séparées par des tabulations :

Sub Test()

    Dim Plage As Range
    Dim Dossier As String
    Dim I As Long

    Dossier = ThisWorkbook.Path & "\"

    'défini la plage sur la colonne A de la feuille "Feuille1" à partir de A2
    With Worksheets("Feuille1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For I = 1 To Plage.Count

        Open Dossier & Plage(I, 1).Value & ".txt" For Output As #1

            Print #1, Plage(I, 1).Value & vbTab & Plage(I, 2).Value & vbTab & Plage(I, 3).Value

        Close #1

    Next I

End Sub

Bonjour

Vois ce fichier

Dis si cela te convient

A+

Bonjour Patty5046,

Tout d'abord, merci de votre réponse rapide !

Lorsque j'ouvre le fichier et demande l’exécution de la macro je reçois un message "Erreur d'écution "76"

Chemin d'accès introuvable...

Qu'est ce que ça veut dire ??

Bonjour et merci Theze

mais comme je l'ai expliqué, je ne comprends pas la logique d'Excel !

Où dois-je coller vos instructions??

Bécassine, et oui !!

Bonsoir Bécassine ma cousine

Tu fais alt F11 et tu arrives dans la partie vb, dans module1 tu verras mon code:

Sub Creation_texte()
    Dim numfich As Long, c As Range
    numfich = FreeFile
    Chemin = "C:\Fich\"
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        ligfich = Cells(i, 1) & " " & Cells(i, 2) & " " & Cells(i, 3)
        Open Chemin & Cells(i, 1) & ".txt" For Output As #numfich
        Print #numfich, ligfich & vbCrLf;
        Close #numfich
    Next i
End Sub

Normal que cela ne marche pas chez toi , il faut que tu remplaces C:\Fich par ton chemin

A+

YESSSS!!!

Merci, Patty

ça marche!!

Vous êtes génial !!

merci, merci, merci!!!

Bécassine, un peu moins, ce soir (j'ai trouvé comment écrire le chemin, toute seule !)