[Excel] Passer au premier plan pour l'affichage d'une boite de dialogue

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.

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

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

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:

---

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...

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:

---

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

---

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

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:

---

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:

---

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

---