Bonjour,

J'ai cherchez dans toutes les sources et tenté des modifications sans résultat:

Mon probleme: Je connais le nom de fichier, je voudrait un renvoie du chemin ou se trouve le fichier. Dès qu'il a trouvé il doit s'arrété et me renvoie UN SEUL RéSULTAT.

Tous les exemples sur le site crée des listes que je n'ai pas bessoin.

Quelqu'un a une ID.

Merci
Olivier

Ben à la place de créer une liste tu récupères le chemin et du sort du traitement (je suppose qu'il y a une boucle) T'as pas un exemple de ien sur le site dont tu as pu d'inspirer ?

Voici le lien de la source que j'ai voulu modifiez:

http://www.vbfrance.com/code.aspx?ID=8534
J'ai transformé en fonction
Dans la parite:

Do Until FFound = "" frmprincipal.lstCherche.AddItem DrivePath & FFound FFound = Dir Loop

J'ai enlevé la ligne 'addItem'
et ajouter:
FilesSearch=DrivePath & FFound
Exit function

Et j'obtient du "blanc" en retour.
Si je fait un debug.print DrivePath & FFound
Je recois bien mon chemin mais juste après un blanc
Et je ne vois pas pourquoi.

Merci de votre aide
Olivier

>>Je recois bien mon chemin mais juste après un blanc
Après quoi ?
Après le retour fonction, à la fin de la chaine ?? Sinon c'est vrai que c'est bizarre

FAudrait que je vois le code entier

Ne cherche plus, j'ai trouvé.

La solution avec la source mentionné:
1) Ne pas metre en fonction
2) Faire une variable public:
(Public strFileFound As String)

3) Metre dans la parite:

Do Until FFound = "" frmprincipal.lstCherche.AddItem DrivePath & FFound FFound = Dir Loop

Remplacé par:

Do Until FFound = "" strFileFound = DrivePath & FFound Exit Sub FFound = Dir Loop

Merci de ton aide
Olivier

Certes, mais c'est bizarre tout de même. Désolé de ne pas avoir pu t'aider plus masi heureux que tu t'en sois sorti !
++
moustachu