Extraire plusieurs cellules dans des fichiers txt différents

[spoint]

Bonsoir à tous !
Grand débutant d'excel (quand je vois ce que certains d'entre vous arrivent à faire) voici ce que je souhaite faire.
J'ai un fichier avec diverses données mais tout une colonne avec des données textuelles. Disons de A1 à A800 !
J'aimerais extraire le texte de chacune des cellules (indépendamment), et que chaque cellule génère un fichier txt (exemple A1.txt pour la cellule A1... jusqu'à A800.txt pour A800 !).
Comme je n'y connais absolument rien en macro et VBA, pourriez-vous m'aider ?
Je vous serais très connaissant pour cela, car ma seule solution actuelle est de faire un copier coller manuel dans un fichier txt, et ce 800 fois pour créer mes 800 fichiers txt !
Merci.
Très cordialement,
sp

 

[JNP]

Re : Extraire plusieurs cellules dans des fichiers txt différents

Bonsoir Spoint et bienvenue 🙂,
Teste ce code

Sub test()
Dim Cellule As Range
For Each Cellule In Selection
Open Replace(Cellule.Address, "$", "") & ".txt" For Output As #1
Print #1, Cellule.Value
Close #1
Next
End Sub

Tu sélectionnes les cellules que tu veux exporter et chaque cellule sera exportée dans un fichier TXT du nom de la cellule, au même niveau que le classeur.
Bonne soirée 😎

 

[spoint]

Re : Extraire plusieurs cellules dans des fichiers txt différents

Bonsoir JNP,
Merci pour cette prompt réponse...
Et en plus cela fonctionne parfaitement bien !
Merci mille fois pour cette réactivité et cette aide précieuse...
Je viens d'économiser 10 heures de travail laborieux !
Merci JNP et merci les macros !
Très cordialement,
SP