OVH Cloud OVH Cloud

Ouvrir un CSV

13 réponses
Avatar
Alain Rousseau
Bonjour =E0 tous!

Je re=E7ois des fichiers CSV que je dois ouvrir en excel=20
pour travailler dessus.

Jusqu'=E0 maintenant avec EXCEL 97 pas de probleme le=20
fichier csv s'ouvre directement par fichier/ouvrir, et=20
l'on peut avoir une macro VB pour proc=E9der =E0 cette=20
ouverture.

Je suis maintenant sur Excel 2003 : pas de probleme pour=20
l'ouverture par fichier/ouvrir, et m=EAme par clic direct=20
sur l'icone (ce qui ne marchait pas avec 97) mais=20
catastrophe impossible de monter une macro donnant un=20
r=E9sultat correct (m=EAme par enregistrement tout b=EAte de la=20
manip d'ouverture)

Un grand merci =E0 celui qui me donnera une solution o=F9 au=20
moins une piste !!!

Alain Rousseau

3 réponses

1 2
Avatar
Alain Rousseau
Bonjour ...
mais tu dors quand ?

l'idée de te transmettre le fichier me plairait bien mais
il a vraiment un caractère confidentiel, il s'agit d'une
liste de locataires d'un organisme HLM....

Je vais tester un peu plus tard tes dernieres propositions

encore merci
Alain Rousseau mon mail:


-----Message d'origine-----
Bonjour,

Si les autres exemples ne fonctionnent pas mieux, et que
les documents

ne sont pas confidentiels, tu peux en déposer une partie
sur

http://www.cjoint.com puis revenir donner l'adresse que
le site

fournira après "le dépôt".


"Alain Rousseau" a
écrit dans le

message de news:500e01c522a0$9a775230$
Merci du tuyau, j'ai testé et celà marche
(honnetement je ne comprends pas bien le code !)
un seul inconvénient le temps, mes fichiers représentent
50 colonnes et 19000 lignes....je n'ai pas chronometré
mais cela doit bien largement dépasser les 5 minutes !

Encore merci et je suis preneur pour une solution +
rapide



alain rousseau




-----Message d'origine-----
Bonjour,

Juste à te passer des automatismes d'Excel.

http://groups.google.com/groups?
q=readline+excel+97+split+group:microsoft.public.fr.excel

+

author:clement.marcotte%
40sympatico.ca&hl=fr&lr=&scoring=d&selm=%23%24cKt%
2489DHA.2316%40TK2MSFTNGP11.phx.gbl&rnum=3



http://groups.google.com/groups?
q=readline+split+group:microsoft.public.fr.excel+author:c

l

ement.marcotte%
40sympatico.ca&hl=fr&lr=&selm=eRKOFgAoEHA.2304%
40TK2MSFTNGP14.phx.gbl&rnum=2

http://groups.google.com/groups?
hl=fr&lr=&c2coff=1&selm=eRKOFgAoEHA.2304%

40TK2MSFTNGP14.phx.gbl&rnum=6



"Alain Rousseau" a
écrit dans le

message de news:376f01c52278$a94f3ed0
$


Bonjour à tous!

Je reçois des fichiers CSV que je dois ouvrir en excel
pour travailler dessus.

Jusqu'à maintenant avec EXCEL 97 pas de probleme le
fichier csv s'ouvre directement par fichier/ouvrir, et
l'on peut avoir une macro VB pour procéder à cette
ouverture.

Je suis maintenant sur Excel 2003 : pas de probleme pour
l'ouverture par fichier/ouvrir, et même par clic direct
sur l'icone (ce qui ne marchait pas avec 97) mais
catastrophe impossible de monter une macro donnant un
résultat correct (même par enregistrement tout bête de
la


manip d'ouverture)

Un grand merci à celui qui me donnera une solution où au
moins une piste !!!

Alain Rousseau

.



.




Avatar
LSteph
bonjour,
?
coma:úlse

a écrit dans le message de news:
4c2101c522a1$ee9d9170$
en complément je viens de constater que cela bloque si
j'ai des virgules dans mes données...........

AR


-----Message d'origine-----


.... merveilleux et rapide mais mon fichier comporte 50
colonnes et seuls 17 sont traitées !! (à part sur la
première ligne ou je trouve bien mes 50 informations)

as tu une idée ?

Alain Rousseau

Ps j'ai testé les codes que m'a signalé Clement Marcotte
ça marche mais très très long il faut dire que mes
fichiers comportent + de 19000 lignes


-----Message d'origine-----
....et ainsi cela irait-il mieux? :
'***
Sub ouvrelecsv()

Workbooks.Open Filename:= _
"C:atest.csv"
Columns("A:A").Select
Selection.TextToColumns _
Destination:=Range("A1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, _
Tab:=True, _
Semicolon:=True
End Sub
'***

'lSteph

"alain Rousseau"
a


écrit dans le
message de news: 37d201c5228e$76db2160
$

Bonjour,


la macro est on ne peut plus simple

lefichier =nomdufichier.csv
lechemin=chemin d'acces
workbooks.open (lechemin & "" & lefichier)

resultat = ouverture du fichier à moitie fichier texte
avec des ";" de séparateur

d'ailleurs si je change le suffixe de csv en txt et que
je lance une ouverture opentext avec séparateur ";"
j'obtiens un résultat correcte.

en fait (c'est un peu farfelu) mais il faudrait que je
dispose d'une macro me permettant de changer le suffixe
de mon fichier ......... et je ne sais pas faire

merci de l'aide

Alain Rousseau


-----Message d'origine-----
Bonjour Alain,
Précise si tu veux la macro et par rapport à celle-ci
ce



qui ne serait pas
dans le résultat.

@+


'lSteph
"Alain Rousseau"
a



écrit dans le
message de news: 376f01c52278$a94f3ed0
$

Bonjour à tous!

Je reçois des fichiers CSV que je dois ouvrir en excel
pour travailler dessus.

Jusqu'à maintenant avec EXCEL 97 pas de probleme le
fichier csv s'ouvre directement par fichier/ouvrir, et
l'on peut avoir une macro VB pour procéder à cette
ouverture.

Je suis maintenant sur Excel 2003 : pas de probleme
pour



l'ouverture par fichier/ouvrir, et même par clic direct
sur l'icone (ce qui ne marchait pas avec 97) mais
catastrophe impossible de monter une macro donnant un
résultat correct (même par enregistrement tout bête de
la


manip d'ouverture)

Un grand merci à celui qui me donnera une solution où
au



moins une piste !!!

Alain Rousseau


.




.

.






Avatar
LSteph
Bonjour Alain,
A part quelque chose qui créerait une rupture au niveau des séparateurs ou
un retour de ligne malencontreux je ne vois pas.

Essaie de l'ouvrir par workbooks.open , simplement puis vérifie que tes 50
colonnes sont bien en A:A
ensuite sers toi de l'enregistreur de macro:
Nouvelle macro
Sélectionne la colonne A
Données Convertir
Délimiteurs Tab et Pointvirgule à vrai
suivant terminé.

@+

'lSteph



"Alain Rousseau" a écrit dans le
message de news: 384701c5229f$d71a32d0$


... merveilleux et rapide mais mon fichier comporte 50
colonnes et seuls 17 sont traitées !! (à part sur la
première ligne ou je trouve bien mes 50 informations)

as tu une idée ?

Alain Rousseau

Ps j'ai testé les codes que m'a signalé Clement Marcotte
ça marche mais très très long il faut dire que mes
fichiers comportent + de 19000 lignes


-----Message d'origine-----
....et ainsi cela irait-il mieux? :
'***
Sub ouvrelecsv()

Workbooks.Open Filename:= _
"C:atest.csv"
Columns("A:A").Select
Selection.TextToColumns _
Destination:=Range("A1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, _
Tab:=True, _
Semicolon:=True
End Sub
'***

'lSteph

"alain Rousseau" a
écrit dans le

message de news: 37d201c5228e$76db2160
$

Bonjour,


la macro est on ne peut plus simple

lefichier =nomdufichier.csv
lechemin=chemin d'acces
workbooks.open (lechemin & "" & lefichier)

resultat = ouverture du fichier à moitie fichier texte
avec des ";" de séparateur

d'ailleurs si je change le suffixe de csv en txt et que
je lance une ouverture opentext avec séparateur ";"
j'obtiens un résultat correcte.

en fait (c'est un peu farfelu) mais il faudrait que je
dispose d'une macro me permettant de changer le suffixe
de mon fichier ......... et je ne sais pas faire

merci de l'aide

Alain Rousseau


-----Message d'origine-----
Bonjour Alain,
Précise si tu veux la macro et par rapport à celle-ci ce
qui ne serait pas

dans le résultat.

@+


'lSteph
"Alain Rousseau" a
écrit dans le

message de news: 376f01c52278$a94f3ed0
$

Bonjour à tous!

Je reçois des fichiers CSV que je dois ouvrir en excel
pour travailler dessus.

Jusqu'à maintenant avec EXCEL 97 pas de probleme le
fichier csv s'ouvre directement par fichier/ouvrir, et
l'on peut avoir une macro VB pour procéder à cette
ouverture.

Je suis maintenant sur Excel 2003 : pas de probleme pour
l'ouverture par fichier/ouvrir, et même par clic direct
sur l'icone (ce qui ne marchait pas avec 97) mais
catastrophe impossible de monter une macro donnant un
résultat correct (même par enregistrement tout bête de
la


manip d'ouverture)

Un grand merci à celui qui me donnera une solution où au
moins une piste !!!

Alain Rousseau


.




.




1 2