macro pour ouvrir un csv sans conversion numérique

Bonjour,

Je cherche à ouvrir un fichier csv depuis excel. évidemment le fichier contient quelques éléments perturbateur notamment:

• des retours charriots (dans des chaines de caractère bien délimité par des ")

• des champs texte ne contenant que des chiffres (comme 007 par exemple) - dans des chaines non délimitées par des "...

j'ai utilisé la fonction opentext de cette façon:

Code:

---

1 2 3 4 5 6 7 8

SourcFich = "C:\new 9.csv"   obj = Array(Array(1, 2), Array(2, 2), Array(3, 2))   Workbooks.OpenText Filename:=SourcFich, Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlTextQualifierDoubleQuote, Semicolon:=True, _ FieldInfo:=obj, Local:=True, TrailingMinusNumbers:=True

---

et... je récupère bien mes retours charriots, par contre excel converti les champs textes en numérique (007 devient 7) :?

si je change juste l'extension du fichier en ".txt" les champs textes ne sont pas convertis... mais j'ai des décalages dans tous les sens à cause des retours charriots 8O

une idée pour avoir les 2 qui marchent (sans modifier le csv)...??

Hello,

De mémoire le CSV est un format spécifique, et la fonction que tu utilise (Workbooks.OpenText) permet d'ouvrir un fichier texte.
As tu essayer de changer l'extension, et de relancer l'enregistreur de macro pour effectuer le découpage à ta convenance ? (qui tiendra compte des retrours charriot etc....)
Sinon il y a une autres methode pour convertir un fichier (la commande TextToColumns.)

En esperant t'avoir aidé.....

Et bien j'ai essayé avec TextToColumns, mais il semblerait que cette fonction n'aime pas du tout les retours charriots... en revanche on arrive bien à traiter les "chaines de caractères numériques".

J'avais oublié un détail... mes fichiers de test n'était pas en utf8 alors que mes fichiers de prod si... du coup je n'arrive plus du tout à traiter les retour charriots (à choisir je préfère traiter correctement les retours charriots et virer les zéros...)

...je vais craquer

ça avance petit à petit...
avec la fonction open j'arrive "à nouveau" à traiter les retours charriots (avec fichier utf8) mais toujours pas les zéros..

Code:

---

1 2 3

Workbooks.Open Filename:=SourcFich, Format:=4, Local:=True, _ Origin:=xlWindows

---

petit à petit l'oiseau fait son nid..