Transformer cellules excel en fichiers txt

Question

Bonjour, 

Je cherche à automatiser une tâche de la manière la plus simple possible, seulement je ne sais pas trop comment me lancer ni dans quel langage, étant novice dans le domaine.

Le principe :

- Un fichier Excel comportant deux colonnes : une avec un info X, l'autre Y.

- Chaque ligne de ce fichier comporte une information dans la colonne X et Y.

- La tâche devrait lire ligne après ligne le fichier Excel, et :

----- Pour chaque ligne, créer un fichier .txt nommé par le contenu de la cellule de la colonne X.

----- Inscrire dans le fichier tout juste créé deux lignes : Une avec la valeur X, l'autre avec la valeur Y.

----- Et faire ceci jusqu'a rencontrer une ligne dont les cellules sont vides.

Cela m'aiderait a gagner en efficacité lorsque je dois traiter un nombre important de lignes à la main...

Merci d'avance !



Configuration: Windows XP / Internet Explorer 8.0

Morgothal · Answer

Salut,   

Si j'ai bien saisi ton problème, tu veux un fichier texte par ligne remplie?  

Si c'est bien ça, il te suffit de coller ceci dans ton éditeur VBA (Alt+F11 dans Excel, puis double clique sur "ThisWorkbook" en haut à gauche) :  


Sub Prog_Pour_Shidy06()  

Dim nomfic, info As String  
Dim chemin As String  
Dim ligne, colonne As Integer  

'Initialisation des constantes  
Sheets("Feuil1").Select 'Remplace "Feuil1" par le nom de ta feuille Excel  
chemin = "C:\Users\Clément\Desktop\DossierTest\" 'Inscris le dossier ou tu veux que tes fichiers txt soient rangés  

'Initialisation des variables  
ligne = 0  
colonne = 1  

'Recherche du nombre de lignes  
Do  
    ligne = ligne + 1  
Loop Until Cells(ligne, 1) = ""  
ligne = ligne - 1  

'Ecriture dans les fichiers txt  
For i = 1 To ligne  

    nomfic = Cells(i, colonne)  
    info = Cells(i, colonne + 1)  

    Open chemin & nomfic & ".txt" For Append As i  
    Print #i, info  
    Close i  
      
Next  

End Sub  


Si tu veux des précisions, n'hésite pas :) 

A+

MrAkulyu · Answer

Bonjour. 
Cette manip permet de créer un fichier txt pour chaque ligne. 
cependant, seul le titre des fichiers txt contient la valeur de chaque ligne. 

Plus concrètement, dans mon fichier excel, j'ai une phrase par ligne. 

Quand je mets ce prog dans VBA, ça me crée les fichiers txt mais seul le titre du fichier contient la phrase. Quand j'ouvre le fichier, il n'y a rien. 

Comment peut-on y remédier ? 

Merci beaucoup !

Transformer cellules excel en fichiers txt

2 réponses

Votre réponse

Newsletters