ecriture d'un chemin de raccourci

[stef]

bonjour à tous

voici le code que j'utilise pour creer un raccourci sur le bureau :

AccesBase = '\\\\Serveur\\Dossier1\\DossierBase\\'

Set scrHst = CreateObject('WScript.Shell')
emplacement = scrHst.SpecialFolders('Desktop')
Set Raccourci = scrHst.CreateShortcut(emplacement & '\\Base.lnk')
Raccourci.WorkingDirectory = emplacement
Raccourci.TargetPath = '''C:\\Program Files\\Microsoft Office\\OFFICE11\\MSACCESS.EXE'' ''' & AccesBase & 'LaBd.mdb'' /WRKGRP ''' & AccesBase & 'FichierSecuDb.mdw'''
Raccourci.Save
Set Raccourci = Nothing
Set scrHst = Nothing

La creation du raccourci fonctionne tres bien sauf .....que ....

La cible ecrite est la suivante :
(attention les differences sont minimes mais ca plante tout )

'C:\\Program Files\\Microsoft Office\\OFFICE11\\MSACCESS.EXE' '\\Serveur\\Dossier1\\DossierBase\\LaBd.mdb' \\WRKGRP '\\Serveur\\Dossier1\\DossierBase\\FichierSecuDb.mdw'''

1° Pas moyen de lui faire ecrire deux \\ à la suite (avant 'Serveur')
2° Pas moyen de lui faire ecrire /WRKGRP, il change automatiquement en \\WRKGRP

Messieurs les specialistes, je suis à votre ecoute.
J'ai essayer nombre d'artifices..... sans solution..... 🙁

Si qq'un connait le truc je lui en serait tres :woohoo:

 

[stef]

ben tiens j'viens de voir que j'ai aussi des probleme pour afficher l'antislash sur le forum :huh:

donc devant 'WRKGRP' , si il n'y a rien d'ecrit dans mon message precedent, ben en fait il devrait avoir un antislash !! :lol:

 

[Stef]

rhhaaaaa j'enrage... pôa moyen de trouvé une solution :angry: :angry:

@+Thierry au secour please

j'ai tant de fois vu la lumiere grace à toi ! :woohoo:

 

[Stef]

nan jmps, le #92 cela aurait ete trop facile ... 😉

j'avais egalement essayer le chr(92) sans resultat.

Mais... :huh:

MAIS... 😱hmy:

J'AI LA SOLUTION. :woohoo: donc j'en fait profiter tout le monde.
C'est en fait tres simple, il suffit de connaitre qu'un raccourci est composé d'une cible puis d'un, ou plusieurs, arguments.

Le code donne donc :

AccesBase = '\\\\Serveur\\Dossier1\\Dossier\\Base\\'

Set scrHst = CreateObject('WScript.Shell')
emplacement = scrHst.SpecialFolders('Desktop')
Set Raccourci = scrHst.CreateShortcut(emplacement & '\\Base.lnk')
Raccourci.TargetPath = '''C:\\Program Files\\Microsoft Office\\OFFICE11\\MSACCESS.EXE'''
Raccourci.Arguments = '''' & AccesBase& 'LaBD.mdb'' /WRKGRP ''' & AccesBase& 'FichierSecuBd.mdw'''
Raccourci.Save
Set Raccourci = Nothing
Set scrHst = Nothing :woohoo: :huh:

voilà ... des heures de recherche mais une solution valable 😛

@+