Modifier donnée dans fichier csv par macro mais laisser fichier en csv

Version imprimable

05/11/2016, 09h42
Carambar

Modifier donnée dans fichier csv par macro mais laisser fichier en csv

Bonjour,

je cherche à modifier par macro une donnée dans un fichier csv, mais sans que le format ou quoique ce soit d'autre de ce fichier csv soit impacté.

Lorsque je modifie par macro, et que j'enregistre, soit excel modifie les dates (exemple : 30/10/16 dans fichier csv départ, devient 30/10/2016), et/ou il rajoute des " au début et à la fin de chaque ligne, et/ou il formate les colonnes ... enfin dans tous mes essais, le fichier csv ne se retrouve pas à l'identique du départ.

Si vous vous demandez le but :
- je reçois des fichiers csv d'un autre service (impossible de leur demander de modifier leur façon de les créer)
- ces fichiers servent à alimenter un logiciel spécifique
- or suite à un bug dans la nouvelle version de ce logiciel, il faut absolument que j'aille corriger quelques lignes dans les fichiers csv, mais cela sans en changer leur format, ni quoique ce soit d'autre, sinon l'importation de ces fichiers dans le logiciel plantera.

J'ai essayé de plusieurs façons, je n'y arrive pas en passant par excel.

A la main, je vais modifier par notepad, et là ça marche.
Mais je ne peux pas piloter notepad par macro, je peux juste faire ouvrir chaque fichier, donner la main à l'utilisateur (en l'occurence moi, le temps que le bug du logiciel soit corrigé) ...

J'ai plus de 100 lignes à corriger dans environ 60 fichiers, c'est la raison pour laquelle je souhaite faire une macro donc.

Je m’apprêtais à occuper mon week-end à les faire manuellement une par une (avec le risque d'erreur que cela comporte), mais j'aurais quand même bien voulu savoir si ce n'est vraiment pas faisable par macro ?

Si quelqu'un a une idée, je lui serais grandement reconnaissante !

Merci d'avance
05/11/2016, 11h07
unparia

Bonjour
Déjà :

Citation:

A la main, je vais modifier par notepad, et là ça marche.

di tu peux le faire via Notepad, tu peux le faire en utilisant l'instruction Open (rubrique Open, instruction de l'aide VBA)
Quels sont les gestes que tu fais avec NotePad ?
05/11/2016, 11h45
Carambar

Je sais ouvrir le fichier avec notepad depuis la macro.

Mais ensuite, je ne sais pas faire ceci dans notepad par macro :

- rechercher un texte (constant) dans les lignes
- pour chaque ligne où on trouve ce texte, aller changer la 13ième zone entre ";" : c'est une zone du type 0000012345.67 et je dois remplacer par : 00000123.4567 => (ça je sais le faire par macro) mais pas dans notepad, si je devais le faire sous excel, pas de soucis
- enregistrer le fichier csv via notepad
05/11/2016, 12h40
unparia

Si je te lis bien (si tu as bien exprimé les choses)

Citation:

- rechercher un texte (constant) dans les lignes

est ce qui te poserait problème ?
Quel "texte constant" ?
- L'instruction Open (dont je t'ai parlé plus haut et que je t'ai invité à lire) te permet de lire ligne par ligne le contenu toto d'une ligne
- La fonction Instr te permet de déterminer si toto contient une chaîne de caractères spécifiée
- la fonction split te permet d'éclater une chaîne de caractères par rapport à un délimitateur (ici : ton ";")
- la fonction replace te permet de changer un caractère (ici ton "," par ".")
je souhaite voir ce que tu fais (ou au moins tentes de faire) avec cela.
05/11/2016, 12h50
patricktoulon

re
re
bonjour
1. open for input....
2. ligne=split(resultat,vbcrlf)
3. pour récupérer ou modifier la 13 eme colonne c'est split (ligne(i),";")(12)dans la boucle sur les lignes
4. ensuite une derniere boucle for et retranscription en texte avec open for output
voila
05/11/2016, 13h54
Carambar

Merci pour vos conseils,

j'ai avancé, mais là je bloque parce qu'à la lecture de mon fichier input, il me lit tout le fichier comme une seule ligne, donc impossible de traiter comme je veux. Il est en EOF dès l& 1ére lecture.

Mais comme c'est un autre problème, je suis en train de chercher à le résoudre, je ne vous dérange pas plus longtemps.

Merci encore et je vous dis quand je suis au bout pour clore la discu

re
un exemple concret
dans cet exemple j'ouvre le csv en mémoire avec open for...
split les text par ligne
split la ligne par les ";" et remplace le 13 eme ( item 12)par "toto" dans chaque lignes
y a pas plus simple
on pourrait éventuellement faire une gestion d'erreur en cas de nombre de colonne insufisant sur la ligne
je te laisse cela a faire tu devrais t'en sortir
j'ai volontairement séparer les actions par fonction pour que tu puisse en comprendre le fonctionnement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Sub test() fichier = "C:\Users\polux\Desktop\Classeur1.csv" c = lecture_csv(fichier) lignes = Split(c, vbCrLf) For i = 0 To UBound(lignes) - 1 new_csv = new_csv & Replace(lignes(i), Split(lignes(i), ";")(12), "toto") & vbCrLf Next ecriture fichier, new_csv End Sub Function lecture_csv(fich) Dim laChaine As String, x, fichier As String x = FreeFile Open fich For Binary Access Read As #x laChaine = String(LOF(x), " ") Get #x, , laChaine Close #x lecture_csv = laChaine End Function Function ecriture(fich, fnew) x = FreeFile Open fich For Output As #x Print #x, fnew Close #x End Function
voila

05/11/2016, 16h04
Carambar

Oulala ... je n'en demandais pas tant !!!

En tout cas, merci beaucoup !!!

J'ai un peu adapté :

- vblf pour le split fin de ligne car vbcrlf ne marchait pas

Et le traitement de la correction à faire : ce n'était pas tout à fait ce que tu écrivais, mais ce n'est pas grave : si dans la ligne j'ai une constante "toto" en position x, je vais modifier la colonne 13, qui contient un nombre avec un "." pour décaler le "." de 2 chiffres (comme si je divisais par 100 donc ...). Mais cela c'est un détail par rapport au reste !

Habituée à traiter des fichiers csv via excel, je ne connaissais pas la lecture "for binary access read" !
Merci de m'avoir appris (encore) quelque chose aujourd'hui, je garde tout cela dans ma boite à outils !

MERCI A TOUS !

Bonjour Patrick.

Je te propose 3 modifications :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub test()
 
c = lecture_csv(fichier)
lignes = Split(c, vbCrLf)
 
For i = 0 To UBound(lignes) ' Modification 1
If i = UBound(lignes) Then separLigne = "" Else separLigne = vbCrLf
 new_csv = new_csv & Replace(lignes(i), Split(lignes(i), ",")(3), "toto") & separLigne ' Modification 2
Next
ecriture fichier, new_csv
End Sub
 
Function lecture_csv(fich)
Dim laChaine As String, x, fichier As String
x = FreeFile
 Open fich For Binary Access Read As #x
        laChaine = String(LOF(x), " ")
       Get #x, , laChaine
  Close #x
  lecture_csv = laChaine
  End Function
 
Function ecriture(fich, fnew)
x = FreeFile
Open fich For Output As #x
Print #x, fnew; ' Modification 3
Close #x
End Function

05/11/2016, 16h45
patricktoulon

re

re
j'ai oublié de préciser pourquoi j'ai opté pour binary acces read au lieu de input
avec inpout on a la lecture des caractères invisible et donc on a deux lignes supplémentaires tandis qu'avec acces read on coupe le texte par " " ( le 1 er espace après le dernier caractères ) dans la lecture
voila
docmarti je regarde cela
05/11/2016, 17h06
Carambar

Merci !

J'ai corrigé mes fichiers (en 5 secondes de traitement), je teste mardi que les nouveaux fichiers s'importent correctement dans le logiciel (qui est un peu chatouilleux ...), et si tout va bien, vous m'avez rendu un grand service !!!

Pour Docmarti,
oui, j'avais déjà fait la correction de moi-même dans mon code, pour ne pas ajouter le vbcrlf sur la dernière ligne !

Super en tout cas !

re
perso je fait comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    fichier = "C:\Users\polux\Desktop\Classeur1.csv"
    c = lecture_csv(fichier)
    lignes = Split(c, vbCrLf)
    For i = 0 To UBound(lignes) - 1
        If lignes(i) <> "" Then
            new_csv = new_csv & Replace(lignes(i), Split(lignes(i), ";")(12), "toto") & IIf(i = UBound(lignes)-1, "", vbCrLf)
        End If
    Next
    ecriture fichier, new_csv
End Sub

en ce qui concerne le test de la presence de "tto" par exemple a un emplacement x alors modifier la 13 eme colonne

exemple
si la colonne 3 de la ligne="toto" then la colonne 13 = toto

Code:

1
2
3
4
5
6
If lignes(i) <> "" and split(lignes(i),";")(3)="toto" Then
 new_csv = new_csv & Replace(lignes(i), Split(lignes(i), ";")(12), "toto") & IIf(i = UBound(lignes)-1, "", vbCrLf)
else 
new_csv = new_csv & lignes(i)
 
end if

voila

05/11/2016, 17h20
Carambar

Oui oui c'est déjà fait ... comme je l'ai dit, et ça marche !!

Merci