Discussion :

[Mabiche103]

Bonjour.

J'ai un probleme lorsque je souhaite appliquer un filtre pour les extension.
De cette facon, cela fonctionne tres bien pour le titre de la boite de dialogue

Code :

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

1
2
3
4
 vMSExcelSAP = Variant::GetActiveObject("Excel.Application");
ExcelApplication1->Connect();
titleSAP = StringToOleStr("Ouvrir un fichier de données SAP");
vFileNameSAP = ExcelApplication1->GetOpenFilename(EmptyParam, EmptyParam, titleSAP, EmptyParam, multiselect, 0);

Mais quand je fais

Code :

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

1
2
3
4
5
6
 
vMSExcelSAP = Variant::GetActiveObject("Excel.Application");
ExcelApplication1->Connect();
Variant titleSAP = StringToOleStr("Ouvrir un fichier de données SAP");
Variant FiltreSAP =StringToOleStr("*.xls;");
vFileNameSAP = ExcelApplication1->GetOpenFilename(EmptyParam, FiltreSAP , titleSAP, EmptyParam, multiselect, 0);

Cela ne fonctionne pas

Une idee?

Merci

[Mabiche103]

Avec les recherche que j'ai faite, il faudrait peut etre utiliser une structure OPENFILENAME, mais je n'en suis pas sur.


Dc si quelqu'un en sais plus merci à lui.

[lanonyme]

Bonjour,
Sous visual basic, les filtres sont declaré comme cela :
(en rapport avec le fait que cela soit avec excel )

Code :

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

1
2
 
OpenFileDialog1.Filter = "fichiers textes (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"

donc je pense que tu devrai essayer :

Code :

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

Variant FiltreSAP = StringToOleStr( "fichiers textes (*.txt)|*.txt|Tous les fichiers (*.*)|*.*");

lanonyme

[Mabiche103]

J'ai trouvé ce qu'il n'allait pas.

Il me manquait la commande

Code :

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

1
2
 
ExcelApplication1->Connect();

Donc voila, merci quand même a ceux qui se sont penchés sur le problème