Batch: remplir un fichier csv à partir d'un fichier txt

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

saidi oussama

XLDnaute Nouveau
Bonjour,
j'ai un fichier txt sous la forme suivante:
12 13 14 15
11 10 12 14.5
23 22 21.5 22
il existe 5 espace entre les colonnes
je souhaite connaitre la liste de commandes batch pour que ce fichier soit copier dans un fichier csv deja crée
 
Bonjour saidi oussama, bienvenue sur XLD,

Téléchargez les fichiers zippés joints dans le même dossier et exécutez cette macro en cliquant sur le bouton :
Code:
Sub Transfert_TXT_CSV()
Dim chemin$, fichier$, texte$, a$(), n&
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "Fichier TXT.txt" 'à adapter
Open chemin & fichier For Input As #1 'ouverture pour la lecture
Do While Not EOF(1) 'EndOfFile: fin du fichier
    Line Input #1, texte 'récupère la ligne
    ReDim Preserve a(n) 'tableau VBA, base 0
    a(n) = texte 'stocke le texte dans le tableau a
    n = n + 1
Loop
Close #1
fichier = "Fichier CSV.csv" 'à adapter
Open chemin & fichier For Output As #1 'ouverture pour l'écriture
For n = 0 To UBound(a)
    Print #1, Replace(a(n), " ", ";")
Next
Close #1
MsgBox n & " ligne" & IIf(n > 1, "s", "") & " transférée" & IIf(n > 1, "s", "")
End Sub
A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
972
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
978
Retour