Chemin en réseau VBA

Bonjour,

Grâce à votre forum je suis parvenue à créer une macro qui me permet de copier/coller les colonnes de BàI de 4 classeurs identiques. Les classeurs sources et le classeur destinataire sont tous dans le même dossier.
La macro marche très bien quand je suis sur le bureau, par contre quand je copie le dossier sur le réseau pour le rendre accessible à mes collègues la macro ne marche plus. Je n'ai aucun message d'erreur mais elle ne copie/colle rien.

<Option Explicit
'------
Sub compiler_BaJ()
Dim Chemin As String, Fich As String
Dim Derlig As Integer, Ligvid As Long, Tampon

'fige le défilement de l'écran
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Synthèse Globale").Range("B2:J1000").ClearContents

Chemin = ThisWorkbook.Path
'se déplace dans le dossier de travail
ChDir Chemin
Fich = Dir("classeur" & "*.xlsm")
While Fich <> ""
'ouverture d'un classeurX.xlsm
Workbooks.Open Filename:=Fich 'ouvre le classeur
With Sheets("saisie")
Derlig = .Columns("B:J").Find(what:="*", searchdirection:=xlPrevious).Row
Tampon = .Range("B2:J" & Derlig) 'mémorise les données à compiler dans Base de données
End With
Workbooks(Fich).Close
'restitution
With ThisWorkbook.Sheets("Synthèse Globale")
Ligvid = .Columns("B:J").Find(what:="*", searchdirection:=xlPrevious).Row + 1
Cells(Ligvid, "B").Resize(UBound(Tampon), 9) = Tampon
End With
'affecte le fichier suivant (utilisation du joker " * " )
Fich = Dir
Wend

Sheets("Synthèse Globale").Activate
MsgBox "compilation terminée"
End Sub>

Merci pour votre aide.