Export données Excel vers fichiers .txt
acherrier
Messages postés
127
Statut
Membre
-
jejelefou Messages postés 310 Statut Membre -
jejelefou Messages postés 310 Statut Membre -
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
A voir également:
- Export données Excel vers fichiers .txt
- Liste déroulante excel - Guide
- Trier des données excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
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
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
