test existence raccourci

[herve62]

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 :

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

 

[mutzik]

bonjour,un raccourci n'est ni plus ni moins qu'un fichier ... particulier avec extension .lnk (en principe) donc tester si ce raccourci (fichier) existe et si non, le créer