Discussion :

[Traxsilver]

Bonjour tout le monde,


J'utilise RAD Studio XE2, et j'ai l'impression que certaine ligne de code de la faq ne lui plaise pas beaucoup.

J'essaye d'ouvrir un fichier CSV ou le caractére séparateur est "," et non pas ";".

Je me suis basé sur la FAQ

(Ou d'ailleurs je ne comprend pas pourquoi le 2 et la valeur 4 sont toutes les 2 attribué au caractère ";". )

Et donc avec cette fonction peux importe la valeur de vSeparator excel ne me prend comme caractère séparateur seulement le ";" ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
vSeparator = L"2" ; // ou
vSeparator = "2" ; //ou
vSeparator = 2 ; // ou la même chose avec 4 
	vXLWorkbook = vXLWorkbooks.OleFunction(L"Open", vFileName, vNotUsed, vNotUsed, vSeparator);

Une idée ?

[ShaiLeTroll]

MSDN - Méthode Workbooks.Open (Excel)

Valeur = Séparateur
1 = Tabulations
2 = Virgules
3 = Espaces
4 = Points-virgules
5 = Aucun
6 = Caractère personnalisé (voir l’argument Delimiter)

Tu semble modifier le 4eme paramètre donc Format,
Delimiter est lui en 9eme position, tente un 6 dans Format et , dans Delimiter

Possible que les options régionales force le ; sur un Excel français et ignore la virgule car déjà utilisé comme séparateur décimal


A savoir le BDE avec un TTable peut ouvrir des CSV en virgule, ttASCII
ADO permet aussi d'ouvrir des CSV via un TADOConnection et TADODataSet

[blondelle]

Salut Traxsilver
Quelle est la version d'Excel que tu utilise

[Traxsilver]

Bonjour ,


Merci pour vos réponses.

Blondelle, j'utilise office 2003 SP3.
ShaiLeTroll, la FAQ est donc a modifié avec ces valeur potentielle de séparateur. Je médite sur le reste de ta réponse.

[Traxsilver]

Sur les conseils de ShaiLeTroll ( qui ne troll pas tant que ca) voici le nouveau code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
	Variant vNotUsed = Unassigned;
	vSeparator = 6 ;
	vXLWorkbook = vXLWorkbooks.OleFunction(L"Open", vFileName, vNotUsed, vNotUsed, vSeparator,vNotUsed,vNotUsed,vNotUsed,L",");
// original de la faq : vWorkbook = vWorkbooks.OleFunction("Open", vFileName, Unassigned, Unassigned, vSeparator);

La j’obtiens l'erreur : "La méthode Open de la classe Workbooks a échoué"

La fonction n'accepte comme valeur pour vSeparator que de 1 a 5, au delà j'ai l'erreur.

Ceci ne change rien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
	vXLWorkbook = vXLWorkbooks.OleFunction(L"Open", vFileName, Unassigned, Unassigned, vSeparator,Unassigned,Unassigned,Unassigned,L",");
//ceci ne fonctionne pas mieu 
	vXLWorkbook = vXLWorkbooks.OleFunction(L"Open", vFileName, Unassigned, Unassigned, vSeparator);

[ShaiLeTroll]

Le lien MSDN est sur Office 2013 !
Possible que ton office soit trop ancien !

Ton Ficher à quel extension ?
Si CSV, cela le perturbe peut-être !
Si TXT ou DAT, étrange qu'il ne respecte pas ta demande de virgule !

[Traxsilver]

Mon fichier est un CSV, je viens d'essayer en les renommant en TXT même résultat.

Avant l'ouverture de mon fichier je viens d'implémenté un tampon avec un TMemo dans le quel je remplace toute les "," par des ";" ... et forcément la ça fonctionne. Et ce peut importe la valeur de vSeparator.

Conclusion, office comprend le paramètre puisque si je met 6 il me retourne une erreur, mais il ne prend comme caractère que ";" ... en gros il en fait qu'a sa tète ...

[blondelle]

J'ai fais l'essai d'ouvrir avec Excel sans passer par OLe un fichier avec "," en separateur et Excel traite la chaine comme un seul mot, quand tu fais enregistrer sous il te donne le choix de la tabulation du ";" et l'espace donc avec Ole ca ne marchera pas non plus
essai realise avec la version 2003