Discussion :

[blondelle]

avec bcb pour ouvrir un fichier on peut utiliser la boite de dialogue ouverture de fichiers d'excel mais si c'est un fichier txt on a pas acces a la deuxieme boite de dialogue demandant les separateurs utilise.
par contre sous excel si on utilise ceci

Code :

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

1
2
3
4
 
Sub essai()
Application.Dialogs(xlDialogOpen).Show
End Sub

la on a acces a cette deuxieme boite
sous bcb comment faire pour obtenir le meme resultat

[bandit boy]

Salut,
Si tu simules l'ouverture d'un fichier csv, avec le code que tu m'avais passé, ou sans faire appel à la boite de dialogue d'excel, et que tu donnes ton fichier texte, est ce que ca passe?
COLIN avait donné un code permettant l'ouverture d'un CSV sur le post où vous m'avez aidé.
Je pense que si le fichier est de type texte, et que tu l'ouvre avec cette fonction, le séparateur est défini par le dernier paramètre. (ici 4 = ';')

[blondelle]

je suis d'accord mais l'interet de la macro excel c'est quelle nous supprime toute la gestion des Variants de plus la deuxieme boite de dialogue donne des possibilites supplementaires par exemple deux ou trois separateurs differents mes recherche sur cette fonction excel ma permis de constater que l'on pouvait charger aussi la deuxieme boite de dialogue ainsi que tout un catalogue de boites impression couleur....

Code :

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

1
2
 
Application.Dialogs(xlDialogTextToColumns).show

je vais regarder dans la vcl "Excel_2K_SRVR" peut etre qu'il y a quelque chose qui pourra aider je suis personnellement interesse pour mon travail je prefairerait passer sur bcb, visual basic et lent

[blondelle]

complement a mon precedent post
Dans excel_2k.h il y a des defintions des boites qui peuvent etre ouvertes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
typedef enum XlBuiltInDialog
{
 xlDialogOpen = 1,
 xlDialogOpenLinks = 2,
 xlDialogSaveAs = 5,
 xlDialogFileDelete = 6,
__
__
xlDialogWebOptionsEncoding = 686,,
xlDialogWebOptionsFonts = 687,
xlDialogPivotClientServerSet = 689
} XlBuiltInDialog;

puis

Code :

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

1
2
3
 
HRESULT STDMETHODCALLTYPE get_Item(Excel_2k::XlBuiltInDialog Index/*[in]*/, 
                                     Excel_2k::Dialog** RHS/*[out,retval]*/); // [170]

ou

[code]
HRESULT /*[VT_HRESULT:0]*/ __fastcall get__Default(Excel_2k::XlBuiltInDialog Index/*[in]*/,
Excel_2k:ialog** RHS/*[out,retval]*/);
[code]

Par contre je ne suis pas capable avec ces quelques exemples de savoir ecrire la fonction mais je pense que cela est possible

[bandit boy]

Chez moi, le fait d'inclure excel_2k.h me créé des erreurs d'ambiguité de déclaration de fonctions avec d'autres .h

Il existe aussi la fonction

Code :

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

1
2
 
virtual HRESULT STDMETHODCALLTYPE get_Dialogs(Excel_2k::Dialogs** RHS/*[out,retval]*/) = 0; // [761]

Par contre, je n'ai aucune idée de ce qu'est le Dialogs.

[blondelle]

Je n'ais que des notions de programmation c++ mais un programme ecrit j'arrive a le conprendre donc je sais que dans le fichier "excel_2k_srvr" il est inclus "excel_2k.h" donc je pense qu'il n'est pas necessaire de le redeclarer. Sous excel dialogs donne acces a toutes les boites de dialogue qu'excel gere
- ouverture fichier
- sauvegarde fichier
- choix des couleurs
- etc
- environ 600 possibilites de boites diverses
dans l'exemple suivant XLBuiltinDialog et la declaration de tous les Dialogs et Index le numero donne dans ces declarations decrit dans dans "Excel_2k.h"

Code :

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

1
2
3
 
<div style="text-align: left;">HRESULT STDMETHODCALLTYPE get_Item(Excel_2k::XlBuiltInDialog Index/*[in]*/, 
                                     Excel_2k::Dialog** RHS/*[out,retval]*/); // [170]</div>