Voici un code qui fonctionne très bien pour ouvrir un fichier placé sur un serveur.

Dim strURL As String
strURL = "http://adresse serveur/Fichier B.xls"
Workbooks.Open Filename:=strURL
Workbooks("Fichier B.xls").Worksheets("Listing").Range("A1:Q100").Copy _
    Workbooks("Fichier A.xls").Worksheets("Listing").Range("A6")
Workbooks("Liste membres.xls").Close False
 
End Sub