Créer un raccourci vers un dossier

Bonjour,

J'ai un fichier excel avec du code VBA qui me crée un fichier PDF dans un dossier sur le bureau. (ça fonctionne très bien)

Je voudrais également créer dans mon dossier sur le bureau un raccourci vers un autre dossier existant mais j n'y arrive pas.

Merci pour votre aide

Nico

Bonjour Nico90 et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

Ainsi que sur les fonctionnalités (Nouveau Forum au bas de page notamment)

En ce qui concerne votre demande, voici une possibilité

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

Merci de votre participation

Cordialement

Bonjour et merci pour le code mais ce n'est pas exactement ce que je recherche.

Ici le code me crée un raccourci du fichier .xlsm que j'utilise.

Je souhaiterais créer un raccourci vers un répertoire (exemple raccourci vers le dossier téléchargement)

Merci de votre aide

Je suis passé également par la case présentation.

Nico

Finalement après recherche sur le forum j'ai trouvé ce que je cherchais

Creation raccourci vers un repertoire au choix (excel-pratique.com)

Re

Désolé, je n'ai pas lu correctement la demande