erreur de syntaxe -2147221020 suite à changement adresse de fichier

[Domimart]

Bonjour le forum et meilleurs voeux à tous !

Voici mon souci,

Les serveurs locaux ayant été centralisés je me retrouve avec des problèmes de chemin de classeur :
avant je travaillais avec le code qui fonctionnais normalement :

  Dim PDL As Workbook
  Dim CP As Workbook
  Set CP = ActiveWorkbook
  
  Application.DisplayAlerts = False  ' supprimer les messages d'alerte pour demande de MAJ liaison ouverture pL
  'On Error Resume Next  supprimer pour test debug
  Application.Workbooks.Open "G:\Gestion bons bleus\Plan de ligne P3 v5.xls"  'ouvre le classeur
  Set PDL = GetObject("G:\Gestion bons bleus\Plan de ligne P3 v5.xls")    'indiquer le chemin réel du fichier  = ("G:\Gestion bons bleus\Plan de ligne P3 v5.xls")
  
  
  PDL.Sheets("Di pair").Range("B39:F49").Value = CP.Sheets("Suivi").Range("F422:J432").Value
  PDL.Sheets("Di pair").Range("B90:F100").Value = CP.Sheets("Suivi").Range("F435:J445").Value
  PDL.Sheets("Di pair").Range("B141:F151").Value = CP.Sheets("Suivi").Range("F448:J458").Value
  
  CP.Sheets("Suivi").Range("A392:D405").ClearContents ' effacer mémoire semaine précédament importée
  Application.DisplayAlerts = True
  PDL.Sheets("Di pair").Activate

End Sub

que j'ai du remplacer avec la nouvelle adresse sur l'intranet , ce qui me donne ceci:

  Dim PDL As Workbook
  Dim CP As Workbook
  Set CP = ActiveWorkbook
  
  Application.DisplayAlerts = False  ' supprimer les messages d'alerte pour demande de MAJ liaison ouverture pL
  'On Error Resume Next
  Application.Workbooks.Open "http://w3ld/sites/xxxxx/Gestion%20Bons%20Bleus/Semaines%20paires/Plan%20de%20ligne%20P3%20paire.xls"  'ouvre le classeur
  Set PDL = GetObject("http://w3ld/sites/xxxxx/Gestion%20Bons%20Bleus/Semaines%20paires/Plan%20de%20ligne%20P3%20paire.xls")    'indiquer le chemin réel du fichier CRF = ("G:\Gestion bons bleus\Plan de ligne P3 v5.xls")
  
  
  PDL.Sheets("Di pair").Range("B39:F49").Value = CP.Sheets("Suivi").Range("F422:J432").Value
  PDL.Sheets("Di pair").Range("B90:F100").Value = CP.Sheets("Suivi").Range("F435:J445").Value
  PDL.Sheets("Di pair").Range("B141:F151").Value = CP.Sheets("Suivi").Range("F448:J458").Value
  
  CP.Sheets("Suivi").Range("A392:D405").ClearContents ' effacer mémoire semaine précédament importée
  Application.DisplayAlerts = True
  PDL.Sheets("Di pair").Activate

End Sub

hors quand j'execute ce code j'ai une erreur qui apparait sur la ligne :

  Set PDL = GetObject("http://w3ld/sites/xxxxx/Gestion%20Bons%20Bleus/Semaines%20paires/Plan%20de%20ligne%20P3%20paire.xls")

le message d'erreur est "Automation error
Invalid syntax

je n'arrive plus à définir le deuxième classeur comme objet

Est ce que quelqu'un pourrais m' aider svp

Merci à vous
cordialement
Dom