Probleme Dir (VBA) sur intranet

Bonjour,

je dois, pour mon travail, aller chercher des fichiers sur l'intranet de l'entreprise afin d'en recopier le contenu dan un fichier global et je désir le faire via Excel et VBA.

En cherchant j'ai donc atteri sur la fonction Dir() qui est très efficace mais ne marche pas avec un chemin intranet.
Je m'explique, dans le code suivant si le chemin est par exemple "C:\Documents and Settings\My Documents" La fonction marche très bien mais si je mets une adresse intranet cela m'affiche le message "Run Time Error 52. Bad File Name or Number"
Je précise que le répertoire existe bien, j'ai copié/collé a partir des propriétés d'un fichier.

Sub LoopThroughDirectory()

Dim Path As String
Dim FileName As String
Dim x As Integer

Path = "http://solecentral/sites/Environmental%20Affairs/Documents/ENVIRONMENTAL%20AFFAIRS/DriveSurvey"
'Path = "C:\Documents and Settings\My Documents"
FileName = Dir(strPath & "/*.xls*")

While FileName <> ""
x = x + 1
FileName = Dir
Wend
MsgBox (x & " File(s) found.")
End Sub

Une petite suggestion peut-etre ??
Merci
Mimi