Créer un raccourci d'un fichier Excel dans un répertoire

[richert90]

Bonjour à tous,

Voici mon problème: dans le répertoire "C:\Documents and Settings\Mes documents\Mes sources de données\IDLMS\version 1.0.2", j'ai un fichier Excel nommé "Statistics.xlsm". J'aimerais automatiquement créer en VBA un raccourci de ce fichier dans le répertoire: "C:\Documents and Settings\Mes documents\Raccourci".
J'ai trouvé ce code mais malheureusement, il créer un répertoire raccourci dans"C:\Documents and Settings\Mes documents\Mes sources de données\IDLMS\version 1.0.2\Statistics.lnk"" puis en ouvrant ce répertoire, ça m'envoie sur "C:\Documents and Settings\Mes documents\Raccourci\".

Sub monraccourci()
    Dim raccourci

    Set scrHst = CreateObject("WScript.Shell")
   ' emplacement = scrHst.SpecialFolders("Desktop")
    Set raccourci = scrHst.CreateShortcut("C:\Documents and Settings\Mes documents\Mes sources de données\IDLMS\version 1.0.2\Statistics.lnk")
    'raccourci.WorkingDirectory = emplacement
    raccourci.TargetPath = "C:\Documents and Settings\Mes documents\Raccourci\"
    raccourci.Save
    Set raccourci = Nothing
    Set scrHst = Nothing
    
End Sub

Or ce que je veux c'est que dans le répertoire "C:\Documents and Settings\Mes documents\Raccourci\", il y ait un fichier excel raccourci de "Statistics.xlsm" qui permet en cliquant dessus de lancer ce fichier qui est présent dans le répertoire:"C:\Documents and Settings\Mes documents\Mes sources de données\IDLMS\version 1.0.2"

Merci d'avance de votre aide,

 

[richert90]

Re : Créer un raccourci d'un fichier Excel dans un répertoire

Re,

Je pense m'être auto-corrigé. Voici le code (à peine modifié) qui me paraît juste pour ceux que ça pourrait intéressé:

Sub crée_raccourci()

    Dim raccourci

    'Création de l'objet pour faire des raccourcis:
    Set scrHst = CreateObject("WScript.Shell")
    
    'Emplacement du raccourci:
    emplacement = "C:\Documents and Settings\Mes documents\Mes sources de données"
    
    'Nom raccourci
    Set raccourci = scrHst.CreateShortcut(emplacement & "\Statistics_raccourci.lnk")
    raccourci.WorkingDirectory = emplacement
    
    'Pour savoir vers quel fichier pointe le raccourci:
    raccourci.TargetPath = "C:\Documents and Settings\Mes documents\Mes sources de données\IDLMS\version 1.0.2\Statistics.xlsm"
    
    raccourci.Save 'on sauvegarde le raccourci
    
    
    Set raccourci = Nothing
    Set scrHst = Nothing
    
End Sub

 

[MJ13]

Re : Créer un raccourci d'un fichier Excel dans un répertoire

Bonjour Richert

J'avais fait cela, pour tester sur un exemple simple, cela doit être pareil que toi au final 🙂.

Code VBA:
Sub Mon_Raccourci()
Dim Raccourci
Set scrHst = CreateObject("WScript.Shell")
Emplacement = scrHst.SpecialFolders("C:\Temp")


Set Raccourci = scrHst.CreateShortcut("C:\Temp\a.lnk")
Raccourci.WorkingDirectory = Emplacement
Raccourci.TargetPath = "C:\temp\a.xlsm"
Raccourci.Save

Set Raccourci = Nothing
Set scrHst = Nothing

End Sub

 

[richert90]

Re : Créer un raccourci d'un fichier Excel dans un répertoire

Oui en effet c'est la même chose 🙂

En fait, la première fois, ça ne marchait pas car j'avais mis en commentaire la ligne qui définit l'emplacement..

Merci 😉