Discussion :

[Mabiche103]

J'ai un problème qui est assez genant.

A partir de mon application je lance une instance d'Excel. Ensuite j'ouvre la boite de dialogue d'Excel pour ouvrir un fichier. Le problème est que cette boite de dialogue reste au second plan. Je suis donc obligé de faire ALT+TAB afin de sélectionner la boite de dialogue.

Quelqu'un n'aurai pas une solution à me proposer???

Par avance merci.

[scorpion37]

Pourquoi n'utilise tu pas le "vFileName" pour spécifier le nom du fichier a ouvrir?

[mike600river]

salut, j'utilise le vFileName comme scorpion37 te l'indique ca revient au meme et ca resoud ton pb

[Mabiche103]

Je comprends pas où vous voulez en venir!!!

J'ouvre la boite de dialogue d'Excel afni de récupérer un fichier, car je ne connais ni son nom, ni son emplacement.

Voila ce que je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Interactive", false);
ExcelApplication1->Connect();
 
vTitle = StringToOleStr("Ouvrir un fichier");
vMultiselect=false;
vReadOnly=true;
 
vFileName = ExcelApplication1->GetOpenFilename(EmptyParam, EmptyParam, vTitle, EmptyParam, vMultiselect, 0);
 
vXLWorkbooks = vMSExcelLogiciel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, Unassigned, vReadOnly);

Et là ma boite de dialogue s'ouvre mais reste au second plan ce qui m'oblige à chaque fois à appuyé sur ALT+TAB.
Mais si j'ouvre la boite de dialogue une seconde fois alors elle se met au premier plan.

Donc voila...

[mike600river]

en fait tu ouvre un opendialog, tu recupere le nom du fichier et apres seulemen tu ouvre excel
voila le code que j'utilise

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
 //Pour ne voir que les fichiers cvs et xls
  OpenDialog1->Filter = "Fichiers excel (*.XLS) (*.xls)|*.xls|Fichiers CSV (*.CSV) (*.csv)|*.csv"; //|Tous les fichiers (*.*)|*.*");
  // si clic sur ouvrir
  if (OpenDialog1->Execute()){
    ///////////////// code ///////////////////
    Variant vMSExcel , vNotUsed, vSeparator, vXLWorkbooks, vXLWorkbook;
    String vFileName, chemin_macro;
    AnsiString Extension = ExtractFileExt(fichier_ouvrir).LowerCase();
    //  ShowMessage(Extension);
    // si c'est un fichier csv ou xls on traite sinon c'est un repertoire et on ne fait rien
    if (Extension==".csv" || Extension==".xls" ){
      // on ouvre une instance excel
      vMSExcel = Variant::CreateObject("Excel.Application");
      //vMSExcel.OlePropertySet("Visible", false); // on cache excel
      vMSExcel.OlePropertySet("DisplayFullScreen", true);
      vMSExcel.OlePropertySet("DisplayAlerts", false);
      // on donne a vFileName le nom du fichier a ouvrir
      vFileName = fichier_ouvrir;
      vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
      vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName.c_str());//, vNotUsed, vNotUsed,vSeparator);
      // access a la feuille
      Variant vWorksheet;
      Variant vWsPos = 1;  // position de la feuille a utiliser

[Galkir]

J'ai pas encore approché excel en programmation, mais uil n'y aurait pas un truc de enr TaBoiteDeDialogueExcel->Show();

[Mabiche103]

En faite, je n'utilise pas une biote de dialogue de builder, j'utilise celle intégrée à Excel

Excel s'ouvre en premier grace à la ligne

Code :

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

1
2
 
vMSExcel = Variant::CreateObject("Excel.Application");

C'est à cette ligne que la boite de dialogue est ouverte, mais elle n'apparait qu'au second plan

Code :

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

1
2
 
vFileName = ExcelApplication1->GetOpenFilename(EmptyParam, EmptyParam, vTitle, EmptyParam, vMultiselect, 0);