[XL-2007] Import et conversion d'un fichier texte

[stefano]

Bonjour a tous,

J'ai des données qui proviennent d'un fichier texte avec comme séparateur des tabulations.

Au début de ma procédure j'ouvre une boite de dialogue pour rechercher le fichier texte si il n'as pas été trouver dans le répertoire de travail.

Code :

1
2
3
4
5
6
ChDir RepTravail 
fichier = Dir("") 
If fichier = "" Then
Application.Dialogs(xlDialogFindFile).Show
fichier = ActiveWorkbook.Name
Origine = ActiveWorkbook.FullName

Jusque là tout marche nickel (pour une fois )

Je me pose la question si il est possible d'avoir directement dans "types de fichiers" de la boite de dialogue le format *.txt proposer par défaut au lieu de *.xlsx ce qui me farai une manipulation en moins et un gain de temps

Après je me demande comment ( et si c'est possible ) d'éliminé la boite de dialogue pour la convertion du TXT en XLS. Sachant que les délimiteurs seront toujours des Tabulations. Car lorsque je clique sur ouvrir de la boite de dialogue et avant toute autre exécution du code j'ai la boite de conversion qui apparait.

Merci par avance pour votre aide

[Nako_lito]

salut,

je pense que tu trouvera ton bonheur par ici

[stefano]

ok je te remercie pour le lien, je suis passé a coté de celui là.

Je vais voir si je trouve mon bonheur dedans

[kiki29]

Salut, voir également http://www.developpez.net/forums/d11...xcel-possible/

[Nako_lito]

Envoyé par stefano

Bonjour a tous,

Code :

Merci par avance pour votre aide

Fais attention avec la méthode Activeworkbook, car elle se base sur le formulaire actif et pas forcement sur le formulaire qui exécute le programme. Du coup tu risque de te retrouver avec des données dans des classeurs qui ne vont pas du tout.
Préfère une méthode genre Thisworkbook ou Workbook(leNomDeMonFichier).

De plus le test que tu effectue est inutile car dans tous les cas ton test sera positif vu que tu initialise la variable testée juste avant le if (a moins qu'il n'y ai pas tout le code).