Discussion :

[ericdev67]

Bonjour,

J'ai créé sous c:\ un ensemble de répertoires.
Lors de la création, j'ai utilisé le code :

Code :

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

MkDir ....

, tout fonctionne

J'aurais aimé savoir, si par macro, on peut créer un raccourcis sur le bureau vers ces répertoires :

c'est à dire automatiser le processus :
aller sous c:, clic droit, "créer un nouveau raccourcis", et déplacer le raccourcis vers le bureau....

J'ai regardé sur les forum, mais rien pour excel VBA et en s'aidant de la création de macro d'excel, aucun résultats....

Merci,
A+

[ouskel'n'or]

Tu as ça dans la FAQ Excel, au chapitre "Comment créer un raccourci"

[ericdev67]

Merci ouskel'n'or,

J'avais vu ce forum, mais je coinçais car il me fallait un lien sur un dossier, mais j'ai trouvé : ci joint le code :

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
Sub creerRaccourciBureau()
    'Nécessite d'activer la référence "Windows Script Host Object Model"
    Dim xShell As IWshRuntimeLibrary.wshShell
    Dim Raccourci As IWshRuntimeLibrary.wshShortcut
    Dim dirBureau As String
 
    Set xShell = CreateObject("WScript.Shell")
    'Récupère le chemin du bureau
    dirBureau = xShell.specialFolders("Desktop")
    'Crée le raccourci
    Set Raccourci = xShell.createShortcut(dirBureau & "\monFichier.lnk")
    'Attribue le chemin du classeur contenant cette macro
    Raccourci.targetPath = "c:\essai\er"
    Raccourci.windowStyle = 1
    'attribue un icône
    'Raccourci.iconLocation = "C:\BOOK\GUIDE.ICO"
    Raccourci.Save
End Sub

= crée un raccourcis vers le dossier c:\essai\er

Voilà, c'est tout bête, (mais pas évident pour moi)
Merci une fois de plus ouskel'n'or,

A la prochaine....
A+