Discussion :

[bandit boy]

Bonjour,
Je souhaite charger un fichier csv à partir de mon application. En me basant sur les tutoriaux et les explications de Ricky81, j'ai fais le code suivant:

Code :

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

1
2
3
4
5
6
7
8
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vFileName = GetCurrentDir()+"Data\\"+nom_fichier+".csv"; //nom complet de l'emplacement
vNotUsed = Unassigned;
vSeparator = 4; //séparation par des ';'
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed, vSeparator);

Je me retrouve avec une erreur "Type de variable incorrecte" lors de l'éxécution de ce code.
Je ne vois pas d'où viens l'erreur ni quel est la variable incorrecte.
Si quelqun vois le soucis, je suis tout ouïe.
Merci d'avance

[Djob]

je pense que c'est ici :

Code :

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

vFileName = GetCurrentDir()+"Data\\"+nom_fichier+".csv"; //nom complet de l'emplacement

il faut d'abord convertir tout AnsiString ou String en chaine de caratere unicode (wchar_t*)
pour cela on utilise habituellement la fonction StringToOleStr(...)

[niglo]

il faut d'abord convertir tout AnsiString ou String en chaine de caratere unicode (wchar_t*) pour cela on utilise habituellement la fonction StringToOleStr(...)

Ou alors tu peux faire

Code :

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

WideString = "monAnsiString";

et tu auras un wchar_t* (enfin dans mes souvenirs)

[bandit boy]

Tout d'abord merci de m'avoir répondu.
J'ai essayé ces deux lignes suivantes mais aucune n'a d'effet bénéfique.

Code :

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

1
2
3
 
    chemin = GetCurrentDir()+"Data\\"+nom_fichier+".csv";
    vFileName = WideString (chemin); //nom complet de l'emplacement

ou

Code :

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

1
2
3
 
    chemin = GetCurrentDir()+"Data\\"+nom_fichier+".csv";
    vFileName = StringToOleStr(chemin); //nom complet de l'emplacement

En effet je n'ai plus la même erreur, maintenant j'ai "une exception s'est produite".
Lorsque je regarde dans le "sysvari.h" l'éxécution de la fonction appelée par OleFunction la variable arg possède une valeur à {????} alors que tous les paramètres sont renseignés.

[Ricky81]

Bonsoir,

j'ai reproduit ton problème. Il s'agit à priori du fichier qui n'existe pas.
En tout cas j'ai fais un test avec une adresse de fichier existant (ca passe) et un autre avec une mauvaise adresse (ca donne ton erreur).

Bon courage

Eric

[bandit boy]

En effet, j'avais un soucis de ce côté là , mais ce qui m'inquiète c'est que même ce point corrigé, je n'arrive toujours pas à ouvrir excel.
Il se produit la même erreur. :

[Ricky81]

Bonjour,

peux tu mettre ton code "complet" (enfin on se comprend j'espère) ?

Eric

[bandit boy]

Salut,
Voilà mon code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
    static bool excel;
/*
    try
    {
        vMSExcel = Variant::GetActiveObject("Excel.Application");
    }
    catch(...)
    {
        vMSExcel = Variant::CreateObject("Excel.Application");
    }
*/
    if(!excel)
    {
        vMSExcel = Variant::CreateObject("Excel.Application");
        vMSExcel.OlePropertySet("Visible", true);
        excel = true;
    }
    else
    {
        vMSExcel = Variant::GetActiveObject("Excel.Application");
        vMSExcel.OlePropertySet("Visible", true);
    }
/*    
    vFileName = "Data\\"+nom_fichier+".csv";
    vLink = Unassigned;
    vReadOnly = true;
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
    vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vLink, vReadOnly);
    Variant vFileName, vNotUsed, vSeparator;
*/
/*
    vFileName = GetCurrentDir()+"Data\\"+nom_fichier+".csv"; //nom complet de l'emplacement
    vNotUsed = Unassigned;
    vSeparator = 4; //séparation par des ';'
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
    vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed, vSeparator);
*/
    AnsiString chemin;
    chemin = GetCurrentDir()+"Data\\"+nom_fichier+".csv";
 
    vMSExcel.OlePropertySet("SheetsInNewWorkbook", 1); //1 feuille à l'ouverture
//    vFileName = WideString (chemin); //nom complet de l'emplacement
    vFileName = StringToOleStr(chemin); //nom complet de l'emplacement
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
    vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, Unassigned, Unassigned, 4);

En commentaire, tu peux voir les méthodes que j'ai essayé qui ne fonctionne pas.
Je n'ai pas non plus réussi à récupérer l'instance ouverte d'excel, ce qui explique mon booléen me permettant de me faire mon instance et de travailler dessus.

Si tu vois le problème, je t'acoute car j'aimerais bien comprendre pourquoi cela ne fonctionne pas.
Merci de t'inquiéter de mon problème

[bandit boy]

Vois-tu ce qui ne vas pas Ricky?

[Ricky81]

Rajoutes un

Code :

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

ShowMessage(chemin);

Quelque chose me dit que tu devrais plutôt écrire :

Code :

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

chemin = GetCurrentDir()+"\\Data\\"+nom_fichier+".csv";

Mais finalement, où se trouve ton fichier ?

Eric

[bandit boy]

Excuse moi pour le retard
Mon fichier se trouve dans un répertoire "Data" situé lui même dans le répertoire courrant de l'application.
J'ai modifié et rajouté le "\\" devant Data, et en effet ca ne devait pas arranger les chose, mais le problème est toujours présent.

[COLIN]

Bonjour,

J'ai eu le même pb en voulant charger des noms de fichier Excel
à partir d'un .INI

Le pb est le passage AnsiString->Variant

Voici comment je l'ai résolu (pgm simplifié):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 AnsiString FileName2 = "test.xls" ;
// en réalité c'était chargé à partir du .INI
AnsiString FileName1 = "C:\\DATA\\" ;
WideString = FileName = FileName1 + FileName2 ;
 
Variant VFileName = FileName.c_bstr() ; // il s'agit bien de c_bstr() !!!!
 
//Et à partir de là tu peux ouvrir avec un classique
 
vXLWorkbook = vXLWorkbooks.OleFunction("Open",vFileName,vLink)
// pour moi

J'espère que ça marchera aussi bien pour toi

A+

René