Discussion :

[bandit boy]

Bonjour,
J'ai testé le code suivant pour ouvrir un fichier csv dans Excel à partir de Builder:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    if(OpenDialog1->Execute())
    {
/*
    * 1 : tabulation
    * 2 : point virgule
    * 3 : espace
    * 4 : point virgule
    * 5 : aucun séparateur
*/
        AnsiString AFileName = OpenDialog1->FileName;
        WideString Fname  = WideString(AFileName);
        Variant VFileName = Fname.c_bstr() ;
        vMSExcel = vMSExcel.OleFunction("Open", VFileName, Unassigned, Unassigned, (RadioGroup1->ItemIndex-1));
    }
}

Le soucis est qu'à l'ouverture du fichier par la commande "Open", j'ai une erreur "Nom Inconnu" alors que le fichier existe puisqu'il est pointé par le Dialog et qu'il est bien en format variant.
J'ai vérifié à l'aide de VFileName.OleStr et la chaîne est bonne.

Si quelqun à une idée ou a déjà rencontré le problème...

[Xav++]

Salut Bandy Boy,

voici deux sujets auxquels j'avais participé qui pourraient t'aider.
Je regarderai ton code plus en détail ce soir qd je serai devant mon PC.

http://www.developpez.net/forums/sho...d.php?t=169835
http://www.developpez.net/forums/sho...d.php?t=194199

En espérant t'avoir aider

@+

Xav

[blondelle]

Salut bandit boy:
J'ai teste de cette facon, j'ai supprime "RadioGroup1->ItemIndex-1" je n'en vois pas l'utilitee.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   if(OpenDialog1->Execute())
    {
/*
    * 1 : tabulation
    * 2 : point virgule
    * 3 : espace
    * 4 : point virgule
    * 5 : aucun séparateur
*/
        AnsiString AFileName = OpenDialog1->FileName;
        WideString Fname  = WideString(AFileName);
        Variant VFileName = Fname.c_bstr() ;
//        vMSExcel = vMSExcel.OleFunction("Open", VFileName, Unassigned, Unassigned, (RadioGroup1->ItemIndex-1));
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", VFileName, Unassigned, Unassigned);
    }

[bandit boy]

Nikel, ca marche mieux maintenant.
Mais d'où venait le problème ? Je n'avais pas de feuille ?

[blondelle]

Salut bandit boy:
Premierement tu ne selectionnais pas le classeur
Deuxiemement c'est sur le classeur que l'on fait l'ouverture