Re : macro chercher dossier sur serveur
bonjour Cookie
essaye le code suivant,créateur inconnu au bataillon
merçi à lui
Sub test()
Dim s As String
s = TrouveFichier("devis.xls")
If s = "" Then
MsgBox "Fichier non trouvé"
Else
MsgBox s
End If
End Sub
'la fonction renvoie le chemin complet et le nom du fichier cherché
'entrer le Nom en paramètre sous la forme nomFichier.extension
Function TrouveFichier(ByVal Nom As String)
Dim Fso As Object, Lecteur, Lecteurs, l, s As String, x
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Lecteurs = Fso.drives
Application.FileSearch.NewSearch
TrouveFichier = ""
'récupère les lecteurs locaux (type 2) ou réseau (type 3)
For Each l In Lecteurs
If (l.DriveType = 2 Or l.DriveType = 3) Then
s = s & l.driveletter
End If
Next l
'parcourt les lecteurs
For x = 1 To Len(s)
Lecteur = Mid(s, x, 1) & ":\"
With Application.FileSearch
.NewSearch
.LookIn = Lecteur
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles Or msoFileTypeOfficeFiles
.Filename = Nom
If .Execute = 1 Then
TrouveFichier = .FoundFiles(1)
Exit Function
End If
End With
Next x
End Function