Discussion :

[zougna]

Bonjour,

J'ai créé une fonction basique d'import csv en vba qui fonctionne bien mais j'aimerais améliorer la chose.
Pour le moment, l'action n'importe qu'un seul fichier qui se trouve dans un répertoire prédéfini.
Pour ce qui est du répertoire, je ne prévois pas de changement, par contre, il est possible qu'il y ait plusieurs fichiers ayant un nom différent (import_département_rang) et dont le département et le rang peuvent varier.

Pour donner un exemple, j'ai deux fichiers nommés comme cela :
import_023_48.xls
import_024_48.xls
Comment faire pour sélectionner le département et le rang via une boîte de dialogue et importer le fichier correspondant ?

Merci...

[kdestine]

Si j'ai bien compris, tu veux pouvoir choisir le nom du fichier avant de l'importer. Deux possiblitéss sont possibles (une simple et l'autre assez pénible à coder):

1) Tu mets en place deux listes déroulantes statiques dans lesquelles tu renseignes respectivement tous les départements et rangs possibles. Puis, après la sélection, tu formates le nom de fichier en faisant:

Code vba :

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

1
2
Dim nomFichier as String
nomFichier = "import_" & me.listeDpt & "_" & me.listeRg & ".xls"

Où listeDpt et listeRg représentent respectivement tes listes déroulantes de numéro de département et de rang.
Après à toi de faire tous les tests indispensables;

2) Tu listes tous les fichiers import_* présents dans ton répertoire et pour chacun d'eux tu remplis dynamiquement une table contenant les numéros de départements présents (fichiers existants) et pour chacun des départements les rangs également disponibles. C'est un peut plus dur mais au moins ts les fichiers existeront (ce qui n'est pas le cas dans la première solution)

En espérant que çà te soit utile...

[zougna]

Ca roule avec la première solution, merci pour le tuyau !