raccourci

[David]

Bonjour le forum

Voilà, grâce aux excellentes infos que l'on trouve sur ce forum, je coince
sur ce petit truc.
En effect, en lançant la procédure, je me retrouve sur le bureau avec non
pas le nom du fichier que je voudrais mais avec :
(activeworkbook.name
mais, en cliquant sur le raccourci, le bon fichier est ouvert, la cible est la bonne
Merci de votre aide



Sub CreerRaccourci(CheminCible)

Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop &
"\(ActiveWorkbook.Name .lnk")
oShellLink.TargetPath = CheminCible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub

Sub TestRaccourci()

CreerRaccourci "C:\user\audit\" & ActiveWorkbook.Name
End Sub

 

[FDI]

Sub CreerRaccourci(CheminCible)

Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop &
"\(" & ActiveWorkbook.Name" & ".lnk")
oShellLink.TargetPath = CheminCible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub

Sub TestRaccourci()

CreerRaccourci "C:\user\audit\" & ActiveWorkbook.Name
End Sub

 

[yeahou]

Bonjour

le problème vient de ta ligne
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\(ActiveWorkbook.Name .lnk")
activeworkbook est considéré comme une chaine de caractères
pour régler, remplace par
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\(" & ActiveWorkbook.Name & ".lnk")

cordialement, A+

 

[yeahou]

grillé sur le fil, c'est le cas de le dire

A+

 

[FDI]

c'est juste; il me manquait encore un &...

 

[yeahou]

quand j'ai répondu, j'avais pas actualisé et c'est aprés que j'ai vu ta réponse. En survolant, j'ai vu que tu avais compris le probléme et je ne suis pas allé plus loin. Grillé sur le fil, c'était pour moi ;-o

A+

 

[David]

Eh bien je dois dire qu'avec toute cette rapidité et ce savoir faire que vous y avez tous mis, si je n'y arrive pas, je n'ai qu'à arrêter l'informatique.
Merci beaucoup à tous.

 

[jon]

sur le site de fréd il doit y avoir plusieurs solutions dont celle-ci citée ci-dessus
<http://perso.wanadoo.fr/frederic.sigonneau>

 

[David]

Bonjour jon, je ne connaissais pas ce site
Merci