Discussion :

[damfury]

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...

[DMboup]

Est ce que le nom du fichier comporte le chemin du répertoir aussi?

Si tu as

- un répertoire monrep="Lecteur:\dossiser\sousdos\"
- des fichiers (test.xls, toto.txt, tuto.html)

qu'est ce que tu cherches?

[helas]

et ceci

Code :

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

1
2
 
 chercherFichier  = Mid$(tempstr, InStr(1, tempstr, NomFichier),len(NomFichier)-4 )

[damfury]

Ce que je cherche c'est que je possede le nom partiel de mon fichier qui devrait normalement etre suffisant pour l'identifier.

Ce nom est de la forme: LIC-240-A11-A il peut y avoir quelquechose apres mais ce ne sont que des details.

Je voudrais pouvoir rechercher ce nom de fichier dans un repertoire et enregistrer le chemin du fichier trouve dans ma base.

A savoir que je ne peut pas utiliser l'extension du fichier qui peut etre de type different suivant le fichier.

[damfury]

Merci pour ta reponse Helas mais ca ne fonctionne toujours pas.

Merci quand meme.

[DMboup]

Je voudrais pouvoir rechercher ce nom de fichier dans un repertoire et enregistrer le chemin du fichier trouve dans ma base.

A savoir que je ne peut pas utiliser l'extension du fichier qui peut etre de type different suivant le fichier.

A supposer que tu connais le repertoire de recherche, il faut le parcourir et sur chaque fichier trouvé, faire un Instr et tester le résultat

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
16
17
18
19
20
21
22
23
24
 
    Dim TonRepertoire As String, NomFichier As String, FichierTrouve As String
    Dim MonRes As Variant, Resultat As String, i As Integer
 
    TonRepertoire = "C:\Page\"
    NomFichier = "Index"
    FichierTrouve = ""
    FichierTrouve = Dir(TonRepertoire, vbNormal)
 
MonRes = 0
i = 0
Do While i = 0
      MonRes = InStr(1, FichierTrouve, NomFichier, 1)
      If MonRes <> 0 Then
           Resultat = FichierTrouve
           i = 1
      End If
      FichierTrouve = Dir ' Fichier Suivant
Loop
If i = 0 Then
    MsgBox "Aucun fichier trouvé"
Else
    MsgBox "un fichier trouvé. Nom du fichier : " & Resultat & " Nom complet : " & TonRepertoire & Resultat
End If

[Access Newbie]

Ou encore :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
Function SearchFile(strDir As String, Optional strExt = "*.*") As String
'Retourne le nom des fichiers presents dans un dossier passe en parametre(strDir),
'en fonction de l'extension recherchée (strExt)
'La recherche ne se fait pas dans les sous répertoires
'Ex : filesToSearch = SearchFile("C:\","*.xls") -> on recherche toous les fichiers excel presents dans c:
'retourne un resultat de la forme fichier1;fichier2;....
 
On Error GoTo ErrSearchFile
 
Dim i As Integer
Dim file As String
 
    With Application.FileSearch
        .NewSearch
        .LookIn = strDir
        .FileName = strExt
 
            If .Execute > 0 Then
                For i = 1 To .FoundFiles.Count
                    file = FileName(.FoundFiles(i))
                    SearchFile = SearchFile & strDir & file & ";"
                Next i
                SearchFile = Left(SearchFile, Len(SearchFile) - 1)
            End If
 
    End With
 
    Exit Function
 
ErrSearchFile:
    SearchFile = Null
    MsgBox err.Number & vbCrLf & vbCrLf & err.Description, vbCritical
 
End Function

Ce code renvoie la liste des elements trouvés séparés par des ";". A adapter pour ton cas.

En esperant t'avoir aidé