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

[blondelle]

Pour que cela fonctionne il faut que ton fichiers soit sauver sous " texte Unicode " avec Excel et la il tient compte des tabulations ","

[Mercusyo]

Bonjour,
Je vais peut être dire une bêtise, (donc mea culpa par avance ), mais avez-vous vérifier la valeur de "sDecimal" dans la base de registre (HKEY_CURRENT_USER) ?
Le séparateur décimal est peut être positionné à "," ...

[Traxsilver]

Mon séparateur de décimal est bien ",", comme sur tout pc FR.

Je ne vois pas pourquoi excel prendrais ça en compte. Lorsque une cellule est de type monétaire OK, mais dans le traitement de fichier CSV cela n'aurais pas de sens. Si excel ce ne fait qu'as ca le paramètre vSeparator n'as pas de raison d’être.

Avec Office 2003 j'utilise la fonction présente dans "Données" qui s’appelle "Convertir". Cela me donne le choix de dire a excel de lire les "," comme séparateur et non pas les ";". Je pourrais toujours trouver comment utiliser cette fonction via OLE....

[blondelle]

Tu n'a pas lu mon dernier Post

Pour que cela fonctionne il faut que ton fichiers soit sauver sous " texte Unicode " avec Excel et la il tient compte des tabulations ","

[Traxsilver]

Sisi j'avais lu ! Mais pas eu le temps de tester, je viens d'essayer et tu as raison ... ça fonctionne. Je me l'explique pas d’ailleurs ...

Code :

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

1
2
3
	Variant vNotUsed = Unassigned;
	vSeparator = 2 ;
	vXLWorkbook = vXLWorkbooks.OleFunction(L"Open", vFileName, vNotUsed, vNotUsed, vSeparator);

Avec un fichier .txt enregistré au format Unicode ...

Merci beaucoup pour votre coup de main !

[blondelle]

Il faut bien que ce soit un peu complique ou on finirait par s'ennuyer