Bonjour à tous
J'ai déjà réalisé plusieurs applis dans lesquelles j'ai mis un bouton permettant de créer un raccourci bureau et une icône perso.
Mais là j'ai un cas ou l'on ne voit que l'USF ( excel masqué) , j'ai pensé mettre le code dans Auto_open
Questions :
Va t-il créer systématiquement un raccourci à chaque utilisation ? ( même si ce n'est pas visible d'après mes essais)
Peut-on tester la présence de ce raccourci et shunter si déjà présent ?
Merci
Exemple de la Sub :
J'ai déjà réalisé plusieurs applis dans lesquelles j'ai mis un bouton permettant de créer un raccourci bureau et une icône perso.
Mais là j'ai un cas ou l'on ne voit que l'USF ( excel masqué) , j'ai pensé mettre le code dans Auto_open
Questions :
Va t-il créer systématiquement un raccourci à chaque utilisation ? ( même si ce n'est pas visible d'après mes essais)
Peut-on tester la présence de ce raccourci et shunter si déjà présent ?
Merci
Exemple de la Sub :
Code:
Private Sub CommandButton1_Click()
'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
With Raccourci
'Affecte l'icône (chemin à adapter)
.iconlocation = "\\SRVPROD\commun_mairie\conge.ico"
'Crée le raccourci sur le bureau Windows
.TargetPath = ActiveWorkbook.FullName ' le chemin est identifié
.Save
End With
Else
MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
End If
End With
End Sub