Parser un .xls ou .csv en plusieurs .txt

Bonjour,

Je souhaiterais parser/découper un fichier .csv ou .xls(x) en plusieurs .txt.

Et comme un shéma est toujours plus clair qu'un discours :

___A __ B

1| aa | 11

2| bb | 22

3| cc | 33

4| dd | 44

Avec colonne A = titre du .txt et colonne B = Contenu du txt

Soit dans l'exemple ci dessus 4 fichiers .txt : "aa.txt" "bb.txt" "cc.txt" "dd.txt"

Avec ou sans Maccro, j'ai pas de problème avec le poisson ( )

Avec toute mes excuses si la réponse est déjà dans le forum,

Cart'

Bonsoir,

voici une macro

bonne pêche, attention les fichiers créés écraseront les fichiers existant portant le même nom. (dans le répertoire contenant le document excel)

Sub createtxt()
i = 1

While Cells(i, 1) <> ""
 f = Cells(i, 1) & ".txt"
 Open f For Output As #1
 Print #1, Cells(i, 2)
 Close #1
 i = i + 1
Wend

End Sub

Merci pour la réponse h2so4 !

Ca tourne, seul petit bémol, cela m'insert des espaces au début et a la fin dans le contenu de mes .txt. Possible de les enlever ?

Exemple pour "bb.txt"

" 22 " au lieu de "22"

Merci,

Cart'

voici

Sub createtxt()
i = 1

While Cells(i, 1) <> ""
 f = Cells(i, 1) & ".txt"
 Open f For Output As #1
 Print #1, Cells(i, 2) & ""
 Close #1
 i = i + 1
Wend

End Sub

Après une toute petite retouche par un collègue :

Sub createtxt()
i = 1

While Cells(i, 1) <> ""
 f = ThisWorkbook.Path & "\" & Cells(i, 1) & ".txt"
 Open f For Output As #1
 Print #1, Cells(i, 2) & ""
 Close #1
 i = i + 1
Wend

End Sub

Merci encore !