raccourci

F

FDI

Guest

• 16 Juillet 2004

• #2

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

 

Vote positif 0 Vote négatif

Y

yeahou

Guest

• 16 Juillet 2004

• #3

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+

 

Vote positif 0 Vote négatif

Y

yeahou

Guest

• 16 Juillet 2004

• #4

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

A+

 

Vote positif 0 Vote négatif

F

FDI

Guest

• 16 Juillet 2004

• #5

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

 

Vote positif 0 Vote négatif

Y

yeahou

Guest

• 16 Juillet 2004

• #6

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+

 

Vote positif 0 Vote négatif

D

David

Guest

• 16 Juillet 2004

• #7

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.

 

Vote positif 0 Vote négatif

J

jon

Guest

• 16 Juillet 2004

• #8

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>

 

Vote positif 0 Vote négatif

D

David

Guest

• 17 Juillet 2004

• #9

Bonjour jon, je ne connaissais pas ce site
Merci

 

Vote positif 0 Vote négatif