Discussion :

[grisan29]

bonjour a vous tous
voici un code a mettre derrière un bouton qui permet de créer un raccourci sur le bureau par l'instruction d'appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub CreerRaccourci()
'myDearFriend! 
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
 
                .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

et si voulez affecter une icône en même temps intégrer ces lignes après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

with raccourci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Affecte l'icône (chemin à adapter)
                .iconlocation = "c:\truc\image(6) .ico"
                'Crée le raccourci sur le bureau Windows

Pascal