Création raccourci ?

[herve62]

Bonsoir
Je vais mettre en réseau une petite appli qui sera un utilitaire fréquent
Je sais créer en VBA la Sub du raccourci avec même icone personnalisée
Mon Pb : Comment faire pour que chacun puisse l'activer simplement ? la Première fois

 

[grisan29]

bonjour Hervé62
voici un code que notre ami viard utilise dans ses applications a adapter a ta situation

Option Explicit

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
            With Raccourci
                'Affecte l'icône (chemin à adapter)
                .iconlocation = "c:\DF2Sociétés\DF2Sociétes.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

je suis absent ces 2 jours mais je suis sur que quelqu'un d'autres saura t'aider
bonne fin d'année

 

[herve62]

Bonjour
Merci , mais j'ai dit

Je sais créer en VBA la Sub du raccourci avec même icone personnalisée

et en + c'est exactement la Sub que j'ai
Ce que j'aimerai savoir c'est : COMMENT chacun de son PC peut le créer SEUL la 1ére fois ??