Bonsoir Julos08, le Forum.
Pour créer le raccourci directement sur le bureau, tu peux peut-être essayer :
Sub CreerRaccourci()
Dim Raccourci As Object
With CreateObject('WScript.Shell')
Set Raccourci = .CreateShortcut(.SpecialFolders('Desktop') & '\' & _
ThisWorkbook.Name & '.lnk')
End With
Raccourci.TargetPath = ThisWorkbook.FullName
Raccourci.Save
Set Raccourci = Nothing
End Sub
Cordialement.
Message édité par: myDearFriend!, à: 15/03/2005 19:22