Bonjour a tous,

J'essaie de recuperer le chemin de mon fichier et de l'incorporer a ma table a partir du nom partiel du fichier.

Il faut que je recherche ce nom de fichier sans son extension dans un repertoire connu.

J'ai trouver ce code mais il ne fonctionne pas. Si vous pouviez jeter un coup d'oeil et m'aider a l'ameliorer. Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Declare Function SearchTreeForFile _
Lib "imagehlp" (ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
 
Public Function chercherFichier(NomFichier As String, _
  Root As String)
Dim Resultat As Long
'Creer un buffer
tempStr = String(260, 0)
'Lance la recherche
Resultat = SearchTreeForFile(Root, NomFichier, Temp)
If Resultat <> 0 Then _
  chercherFichier = Left$(NomFichier, InStr(1, NomFichier, Chr$(0)) - 1) 'ca plante ici
End Function
J'utilise access 2007...