Problème le programme ne s'ouvre pas

bonjour; actuellement je me confronte a un problème : je dois faire un programme qui demande a ouvrir un fichier ou un autre mais problème 1 : c'est sur un emplacement réseau : réglé; problème 2 le chemain d'acces contient des espaces : réglé, mais quand j'execute mon code rien ne se passe donc voila mon code avec les noms censurés :


voila merci c'est très urgent j'ai peu de temps pour résoudre ce problème

Dim code
code = MsgBox("Voulez vous ouvrir le fichier : ficher1.pdf ?" , attribut-bouton+vbQuestion+vbYesNo)
if reponce=vbYes then
 Dim MyParam1
 Dim ObjShell
 Dim RunIt
 
 If Wscript.Arguments.Count <> 1 Then
     Wscript.echo "Incorrect Parameters.  One required."
 Else
     MyParam1 = Wscript.Arguments.Item(0)
     Wscript.Echo "Params: " & MyParam1
 End If
 
 Function qq(strIn)
     qq = Chr(34) & strIn & Chr(34)
 End Function
 
 Set objShell = CreateObject("WScript.Shell")
 RunIt = ("""\\emplacement_reseau\ville_Datas\donnees\B_doc\log\Com\FOURNITURES BUREAU\BORDEREAU FOURNITURES BUREAU - A IMPRIMER.pdf""") & MyParam1
 MsgBox qq(RunIt),64,"RunIt"
 objshell.Run qq(RunIt)
 
End if

merci d'avence