SmartFAQ is developed by The SmartFactory (http://www.smartfactory.ca), a division of InBox Solutions (http://www.inboxsolutions.net)

[VBA] Comment créer un raccourci du classeur actif sur le bureau Windows ?

Q&R publiée par MyDearFriend! le 21-02-2008 (7221 Lectures)

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 STANDARD
Sub 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

Si le classeur vient d'être créé et n'a jamais fait l'objet d'une sauvegarde sur le disque dur, vous êtes invité à le faire (sinon, à quoi servirait un raccourci pour un fichier qui n'existe pas sur le DD ?)

  Imprimer la Q&R Envoyer la Q&R