[VBA] Comment créer un raccourci du classeur actif sur le bureau Windows ?
Pour créer automatiquement un raccourci du classeur actif sur le bureau Windows de l'utilisateur, vous pouvez utiliser la procédure suivante :
DANS UN MODULE DE CODE STANDARDSub CreerRaccourci()
'myDearFriend! - www.mdf-xlpages.com
Dim Raccourci As Object
With ActiveWorkbook
'Vérifie l'existence d'un chemin pour le classeur
If .Name <> .FullName Then
'Défini le raccourci
With CreateObject("WScript.Shell")
Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") _
& "\" & ActiveWorkbook.Name & ".lnk")
End With
'Crée le raccourci sur le bureau Windows
Raccourci.TargetPath = .FullName
Raccourci.Save
Else
MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
End If
End With
End Sub
Cette Q&R a été trouvée sur myDearFriend! Excel Pages : https://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=30