Discussion :

[Djohn]

Bonjour,

Je dois créer une macro avec une interface utilisateur, dont la finalité sera de creer un fichier TXT, dont les champs sont séparés par des " ; " et la ligne se termine par " ; "
Avant de démarrer tete baissée, savez vous si il existe des objets, applications, astuces, ou autres tuyaux, permettant la créer ce genre de fichier en VBA excel ? (histoire de prendre le probleme a l 'envers)

Merci

[Krovax]

Tout ne sera pas automatisé mais voila un petit code vite fait (que je n'ai pas pu tester.
Enregistre ton fichier en .cvs (il met des ; pour séparer les cellule) il ne reste plus qu'a rajouter ; en fin de ligne

Voila un exemple de macro qui le fera pour toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
sub rajout()
dim ligne as string
'ouverture des deux fichier
Open "c:\tondossier\" & "ton_fichier.cvs" For Input As #1
Open "c:\tondossier\"& "ton_fichier.txt" For Output As #2
 
'boucle tant que la fin du fichier 1 nest pas atteinte
do
Line Input #1, ligne  
Print #2, ligne &";"
Loop While Not EOF(1)
 
end sub

j'ai pas le temps de tester mais ca devrai marcher
Si tu a un problème à l'ouverture de ton .csv essaye de le renommer en .txt puis e lancer la macro dessus

Je ne sais pas si celà corespond à ton attente c'est bien pratique si tu a un seul fichier mais si tu ne a plusieur ou que tu le fai réuglièrement il va peut être faloir automatiser l'enregistrement en .csv

[Djohn]

hello,
Je te remercie pour cet exemple,
admettons que je souhaite enregister un tableau CSV, pourrais je le faire au format txt ?
merci

[Krovax]

Je ne suis pas sure de bien te comprendre quand tu utilise enregistré sous en dessous de la zone ou tu tape ton nom tu choisi le type d'exention

[Djohn]

c'est nikel, ça ne m'étais pas venu à l'esprit



Merci