Export données Excel vers fichiers .txt
Bonjour,
J'ai la problèmatique suivante : Je dispose d'un fichier Excel avec deux colonnes dans lesquelles on a un login et un mot de passe.
Je souhaiterais faire une exportation vers un fichier texte se nommant login.txt contenant sur 2 lignes le login et le mot de passe.
J'ai environ 600 login dans mon fichier excel, je souhaite automatiser la création du fichier .TXT pour tous les utilisateurs. En clair je souhaite la création d'un fichier .TXT pour chacun de mes utilisateurs.
Merci de votre aide
Cordialement.
Arnaud
J'ai la problèmatique suivante : Je dispose d'un fichier Excel avec deux colonnes dans lesquelles on a un login et un mot de passe.
Je souhaiterais faire une exportation vers un fichier texte se nommant login.txt contenant sur 2 lignes le login et le mot de passe.
J'ai environ 600 login dans mon fichier excel, je souhaite automatiser la création du fichier .TXT pour tous les utilisateurs. En clair je souhaite la création d'un fichier .TXT pour chacun de mes utilisateurs.
Merci de votre aide
Cordialement.
Arnaud
1 réponse
-
bonjour,
la galère mais voici ce que j'ai fait :
Sub nouveautxtbis()
MkDir ("c:\test")
For i = 1 To 1000
Cells(i, 4).Value = "c:\test\" & Cells(i, 1) & ".txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Cells(i, 4).Value, True)
a.WriteLine (Cells(i, 1))
a.WriteLine (Cells(i, 2))
a.Close
Next
End Sub
