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)