OVH Cloud OVH Cloud

Import csv et accent

13 réponses
Avatar
erwan.poudes
Bonjour,
Dans Excel 2000, avec VBA, j'essaye d=E9sesp=E9rement d'importer un
fichier CSV.
Quelque soit la m=E9thode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment =E0 court d'id=E9es!!!

10 réponses

1 2
Avatar
RGI
Bonjour,

Peut-être une idée ;-)
voir au niveau de la police employée

Salutations

RGI





Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!




Avatar
Papy Bernard
Slt,

De erwan.poudes


Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!


Si les caractères accentués sont transformés lors d'une importation dans
Excel, c'est que le fichier (texte) au format CSV est en ASCII (DOS) et non
en ANSI (Windows).

--
A+
Papy Bernard (RTCien malgré lui)

Avatar
erwan.poudes
Oui ....Bof!
J'ai essayé plusieurs police standard (time new roman, arial,
system...) mais rien n'y fait!
De plus même si j'impose la police ds mon fichier excel, elle est
changée automatiquement en arial au moment de l'import du csv :(((((

Je tiens à préciser qu'il s'agit d'accents tout à fait normaux (é,
è, à...) pas de caractères slaves et autres bizzarreries!

une autre idée ( ou zalors en m'expliquant mieux comment faire avec
les polices..)

Bonjour,

Peut-être une idée ;-)
voir au niveau de la police employée

Salutations

RGI





Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!






Avatar
DJ
Salut,

Tu peux essayer de changer la propriété .TextFilePlatform de ton
QueryTables.
Comme ceci:
QueryTables.TextFilePlatform = 1252 ' correspond à Windows(ANSI)

@++


"erwan.poudes" a écrit dans le message de
news:
Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!
Avatar
erwan.poudes
VB me répond "propriété ou méthode non gérée par cet objet"
...ouinnnnnnn!!
En fait je n'ai jamais utilisé de querytables...y a t il qq chose de
particulier à faire?
Faut il que j'utilise ça pour faire mon import?


Salut,

Tu peux essayer de changer la propriété .TextFilePlatform de ton
QueryTables.
Comme ceci:
QueryTables.TextFilePlatform = 1252 ' correspond à Windows(ANSI)

@++


"erwan.poudes" a écrit dans le message de
news:
Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!


Avatar
erwan.poudes
OK...y a t il un moyen de le vérifier..et surtout de le corriger?

Slt,

De erwan.poudes


Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!


Si les caractères accentués sont transformés lors d'une importation dans
Excel, c'est que le fichier (texte) au format CSV est en ASCII (DOS) et non
en ANSI (Windows).

--
A+
Papy Bernard (RTCien malgré lui)



Avatar
DJ
Re,

Donne nous le bout de code qui te permet de faire ton import
On verra si on peut le corriger ou faire autre chose

@++

"erwan.poudes" a écrit dans le message de
news:
VB me répond "propriété ou méthode non gérée par cet objet"
...ouinnnnnnn!!
En fait je n'ai jamais utilisé de querytables...y a t il qq chose de
particulier à faire?
Faut il que j'utilise ça pour faire mon import?


Salut,

Tu peux essayer de changer la propriété .TextFilePlatform de ton
QueryTables.
Comme ceci:
QueryTables.TextFilePlatform = 1252 ' correspond à Windows(ANSI)

@++


"erwan.poudes" a écrit dans le message de
news:
Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!


Avatar
erwan.poudes
Ok..voici ce qui me sert pour faire mon import pour le moment :

Ce n'est pas super beau (copier-coller)..mais bizzarrement c'est ce qui
se rapproche le plus de ce que je recherche:

With ThisWorkbook.Sheets("Data Oryx")

'_____________________________________________________________________
'RECUPERATION DES DONNEES DU CSV
'chemin du csv
CheminCsv =
ThisWorkbook.Sheets("Parametrage").Range("CheminCSV").Value
'ouverture du fichier .csv + création d'un pointeur vers ce
classeur'
Set WBCsv = Workbooks.Open(CheminCsv, False, True, , , , , , ,
False, , True, False)
'copie toutes les données
WBCsv.ActiveSheet.Cells.Copy
'colle les données dans la feuille "Data Oryx"
ThisWorkbook.Activate
.Select
.Range("A1").Select
Selection.PasteSpecial Paste:=xlValues
'vide le presse papier
Application.CutCopyMode = False
'Ferme le fichier csv
WBCsv.Close savechanges:úlse


VOilà!!







Re,

Donne nous le bout de code qui te permet de faire ton import
On verra si on peut le corriger ou faire autre chose

@++

"erwan.poudes" a écrit dans le message de
news:
VB me répond "propriété ou méthode non gérée par cet objet"
...ouinnnnnnn!!
En fait je n'ai jamais utilisé de querytables...y a t il qq chose de
particulier à faire?
Faut il que j'utilise ça pour faire mon import?


Salut,

Tu peux essayer de changer la propriété .TextFilePlatform de ton
QueryTables.
Comme ceci:
QueryTables.TextFilePlatform = 1252 ' correspond à Windows(ANSI)

@++


"erwan.poudes" a écrit dans le message de
news:
Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!




Avatar
DJ
Re,

Ok,

Essaye d'ouvrir ton fichier comme ceci:

Set WBCsv = Workbooks.OpenText(CheminCsv, xlWindows)

@++

"erwan.poudes" a écrit dans le message de
news:
Ok..voici ce qui me sert pour faire mon import pour le moment :

Ce n'est pas super beau (copier-coller)..mais bizzarrement c'est ce qui
se rapproche le plus de ce que je recherche:

With ThisWorkbook.Sheets("Data Oryx")

'_____________________________________________________________________
'RECUPERATION DES DONNEES DU CSV
'chemin du csv
CheminCsv ThisWorkbook.Sheets("Parametrage").Range("CheminCSV").Value
'ouverture du fichier .csv + création d'un pointeur vers ce
classeur'
Set WBCsv = Workbooks.Open(CheminCsv, False, True, , , , , , ,
False, , True, False)
'copie toutes les données
WBCsv.ActiveSheet.Cells.Copy
'colle les données dans la feuille "Data Oryx"
ThisWorkbook.Activate
.Select
.Range("A1").Select
Selection.PasteSpecial Paste:=xlValues
'vide le presse papier
Application.CutCopyMode = False
'Ferme le fichier csv
WBCsv.Close savechanges:úlse


VOilà!!







Re,

Donne nous le bout de code qui te permet de faire ton import
On verra si on peut le corriger ou faire autre chose

@++

"erwan.poudes" a écrit dans le message de
news:
VB me répond "propriété ou méthode non gérée par cet objet"
...ouinnnnnnn!!
En fait je n'ai jamais utilisé de querytables...y a t il qq chose de
particulier à faire?
Faut il que j'utilise ça pour faire mon import?


Salut,

Tu peux essayer de changer la propriété .TextFilePlatform de ton
QueryTables.
Comme ceci:
QueryTables.TextFilePlatform = 1252 ' correspond à Windows(ANSI)

@++


"erwan.poudes" a écrit dans le message de
news:
Bonjour,
Dans Excel 2000, avec VBA, j'essaye désespérement d'importer un
fichier CSV.
Quelque soit la méthode que j'emploie (open comme un fichier excel,
opentext, fso...) les accents du fichiers CSV se transforment en
n'importe quoi dans le fichier excel...

Comment importer exactement mon fichier csv???

Merci d'avance ...je suis vraiment à court d'idées!!!




Avatar
erwan.poudes
Il me répond "fonction ou variable attendue"..et le code pointe sur
opentext

Re,

Ok,

Essaye d'ouvrir ton fichier comme ceci:

Set WBCsv = Workbooks.OpenText(CheminCsv, xlWindows)

@++



1 2