Ouverture CSV par Workbooks.open

Salut tous,


Désolé de vous solliciter pour un pb aussi simple, mais j'avoue être à court d'idée. Je suis bloqué sur le point suivant :

- J'ouvre un .csv par un "dblclick", il s'affiche bien comme il faut (colonnes bien formatées et le retour chariot est bien conservé dans les cellules)
- Si je fais la mm chose par du code (Workbooks.Open *.csv), le seul caractère qui est interprété est le retour chariot et du coup, les lignes sont mal découpées et les séparateurs "," non interprétés. Il y a le mm pb en faisant une ouverture normale par le menu /Fichier/Ouvrir/*.csv ou par "drag and drop".


Je pourrais m'amuser à reconstruire le fichier par la fonction TextToColumns ou fonction Conversion, mais ca me parait bien saoulant (surtt s'il y a des retours chariot) ! :)

Y-a-t'il une solution ou est-ce un bug Excel 97 identifié?
Merci d'avance,

Cdlt,
PoP

Curieux ! Je n'ai qu'un petit pb avec cette commande

Code:

---

1 2	Workbooks.Open FileName:= _ "\\Pinea\finance\TELECOM\Extraction_2004_B6\001646384_TAGRCF.csv"

---

Le pb mineur vient des points dans les nombres décimaux (vite remplacés dans toute la feuille)
Ex des données texte dans le csv ouvert dans Word :

001646384;200411;69134;9154576;11440.05;
001646384;200412;68083;8918251;11811.05;

Sinon, as-tu essayé de changer l'extension en txt (.?.) ?

A+

Citation:

---

Envoyé par PoPmiSiR

Salut tous,


Désolé de vous solliciter pour un pb aussi simple, mais j'avoue être à court d'idée. Je suis bloqué sur le point suivant :

- J'ouvre un .csv par un "dblclick", il s'affiche bien comme il faut (colonnes bien formatées et le retour chariot est bien conservé dans les cellules)
- Si je fais la mm chose par du code (Workbooks.Open *.csv), le seul caractère qui est interprété est le retour chariot et du coup, les lignes sont mal découpées et les séparateurs "," non interprétés. Il y a le mm pb en faisant une ouverture normale par le menu /Fichier/Ouvrir/*.csv ou par "drag and drop".


Je pourrais m'amuser à reconstruire le fichier par la fonction TextToColumns ou fonction Conversion, mais ca me parait bien saoulant (surtt s'il y a des retours chariot) ! :)

Y-a-t'il une solution ou est-ce un bug Excel 97 identifié?
Merci d'avance,

Cdlt,
PoP

---

:recherch:

La réponse y est car on a traité ce problème récemment

Théo

Je suis désolé mais je ne retrouve pas le post que j'ai fait à ce propos .... :oops:

Alors pour travailler les csv et les mettre dans Excel avec VBA.

J'ai eu le même problème avec mes fichiers csv... ouverture normale et mise en forme automatique avec Excel et aucune mise en forme avec le code...

1ère solution :

utiliser la fonction Split pour chaque ligne que tu lis dans ton fichier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim monTab Dim maChaine as String   'tu ouvres ton fichier csv comme un fichier texte 'tu lis une ligne maChaine = fichier.readline monTab = Split(maChaine,delimiter:=";") ' ";" pour le format français ou "," pour l'international   For maColonne = 1 to UBound(monTab) Cells(maLigne,maColonne) = monTab(maColonne) Next maColonne   ' Et tu boucles sur les lignes jusqu'à la fin du fichier

---

Pour la 2nde, je ne me rappelle plus très bien

Je la recherche ce soir et je la mets sur le forum

@+

Théo

Ok, donc en gros, on est obligés de retraiter le texte. Pas moyen d'utiliser directement la fonctionnalité csv d'Excel, qui est sensé faire tout bien? :)

Comme je suis sur VBA 97, que tu es sur VBA 97, Thierry n'aura rien à me dire :wink: si je te demande si tu as essayé ave cette synaxe :

"Workbooks.Open FileName:= TonFichier"

Parce qu'il est curieux que je n'ai pas de pb pour ouvrir les csv, même si j'en ai avec les décimales... et que je fais comme ça depuis que je me suis aperçu que ta syntaxe... "elle marchait pas toujours"... :wink:
ouskel'n'oradi :

Citation:

---

Dans le doute, j'essaie toujours...

---

:lol:
A+

Salut,

J'ai retrouvé la 2nde solution que j'ai utilisée par le passé.

Voici le code

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

NomFichier = "File.csv"   '.....   Set xlApp = CreateObject("excel.application") xlApp.Visible = False   Set xlBook = xlApp.Workbooks.Open(FileName:=RepCsv & NomFichier, Format:=2) Set xlSheet = xlBook.Worksheets(1)   xlSheet.Range("A:A").TextToColumns DataType:=xlDelimited, Comma:=True, DecimalSeparator:=","   xlApp.DisplayAlerts = False   TestFexist = fs.FileExists(RepXls & receplace(NomFichier, ".csv", ".xls"))   If TestFexist Then fs.DeleteFile RepGT1TrendExcel & receplace(NomFichier, ".csv", ".xls"), force:=True End If   xlBook.SaveAs FileName:=RepGT1TrendExcel & receplace(NomFichier, ".csv", ".xls"), FileFormat:=xlNormal, CreateBackup:=False   xlBook.Save xlApp.DisplayAlerts = True   xlBook.Close SaveChanges:=False xlApp.Quit Set xlApp = Nothing

---

Remarque : mon fichier csv avait pour délimiteur de colonne une virgule

Ce code permet d'ouvrir en fenêtre cachée un fichier csv et de l'enregistrer au format xls (avec vérification d'existense et suppression de l'existant)

Voilà

Bonne continuation

Théo

Bonjour,

En fait, il a vraissemblablement deux cas:

1/ le fichier CSV est séparé par des virgules
Le double click l'ouvrira avec séparation correcte de colonne
Via VBA avec cette procédure:

Code:

---

1 2 3 4

Sub TestCSV() Const FICHIER = "MonFichierVirgule.csv" Workbooks.Open Filename:="C:\Documents and Settings\Argyronet\Bureau\" & FICHIER End Sub

---

Le fichier est incorrectement formaté

2/ le fichier CSV est séparé par des points-virgule
Le double click l'ouvrira avec séparation incorrecte de colonne
Via VBA avec cette procédure:

Code:

---

1 2 3 4

Sub TestCSV() Const FICHIER = "MonFichierPointVirgule.csv" Workbooks.Open Filename:="C:\Documents and Settings\Argyronet\Bureau\" & FICHIER End Sub

---

Le fichier est correctement formaté

Conclusion
Selon le cas, si l'on veut passer par VBA pour l'ouvrir, il faut préalablement nettoyer le fichier avec un TextStream par exemple...

Argy