D
David
Guest
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
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