macro chercher dossier sur serveur

[cookie57]

Bonjour,
J'ai une macro qui va ouvrir des fichiers excel se trouvant dans un dossier sur le disque dur (fonction ChDir). hors apparement ca ne marche pas quand ce meme dossier n'est pas sur le disque dur (en l'occurence il est sur un serveur). Y-a -t-il moyen de faire en sorte que la macro cherche partout et pas seulement sur le c: ???
D'avance merci.
Thomas

 

[Spitnolan08]

Re : macro chercher dossier sur serveur

Bonjour,
Il faudrait que tu précises ta question et donnes ton code car ChDir permet aussi de chercher sur un serveur... Si son nom est W par exemple :

ChDir "W:\Repertoire\Dossier"

fonctionne...
Cordialement

 

[Bebere]

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