Créer un fichier sur une ligne à partir d'un fichier séquentiel
Résolu/Fermé
carmella
-
20 sept. 2013 à 16:21
f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 - 24 sept. 2013 à 16:00
f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 - 24 sept. 2013 à 16:00
A voir également:
- Créer un fichier sur une ligne à partir d'un fichier séquentiel
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Ouvrir un fichier .bin - Guide
3 réponses
Iama
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
21 sept. 2013 à 11:08
21 sept. 2013 à 11:08
Bonjour
peux-tu préciser svp
Quel type de fichier Excel .....?
Tu voudrais le faire de façon ponctuel?
Le volume 0 traiter...
Iama
peux-tu préciser svp
Quel type de fichier Excel .....?
Tu voudrais le faire de façon ponctuel?
Le volume 0 traiter...
Iama
mtcarmella
Messages postés
2
Date d'inscription
vendredi 23 décembre 2005
Statut
Membre
Dernière intervention
23 septembre 2013
23 sept. 2013 à 15:07
23 sept. 2013 à 15:07
Il s'agit d'un fichier texte à créer à partir d'un autre fichier texte séquentiel et cela de façon ponctuel.
f894009
Messages postés
17215
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 décembre 2024
1 711
24 sept. 2013 à 16:00
24 sept. 2013 à 16:00
Bonjour,
VBA:
A vous d'adapter le chemin et non de fichier:
VBA:
A vous d'adapter le chemin et non de fichier:
Sub seq_line()
'ferme tous les fichiers
Close
'ouvre le fichier sequentiel
Open "d:\_cles\txt_seq.txt" For Input As #1
'boucle sur les enregistrements
Do While Not EOF(1)
Input #1, buffer
'ecriture de la variable globale
buffer2 = buffer2 & buffer & ";"
Loop
'enleve le dernier ";"
buffer2 = Left(buffer2, Len(buffer2) - 1)
'ouvre le fichier ligne
Open "d:\_cles\txt_line.txt" For Output As #2
Print #2, buffer2
'fermeture de tous les fichiers
Close
End Sub