Création de raccourci vers des fichiers Excels

[Sly le globe trotter]

Bonjour tout le monde !

En parcourant le forum, j'ai trouvé comment à partir d'une macro créer un raccourci vers un fichier Excel.
https://www.excel-downloads.com/threads/creation-raccourci-fichier-excel.34219/

Mon problème vient du fait que je cherche à créer mon raccourci sur un lecteur réseau (que j'ai connecté en utilisant la lettre P) et non pas sur mon disque en local. Quelqu'un pourrait-il m'apporter un peu d'aide dans cette démarche svp ?
Comment accéder à ce lecteur autrement que par son adresse "classique" : P:\.... ?

Merci pour votre aide !
Sylvain

 

[PascalXLD]

Re : Création de raccourci vers des fichiers Excels

Bonjour

au lieu d'utiliser le p:\

tu mets

\\monserveur\

où mon servuer correspond à ta connexion p:

Bonne journée

 

[Sly le globe trotter]

Re : Création de raccourci vers des fichiers Excels

Bonjour Pascal76,

J'ai tenté ta méthode mais rien ne se passe... Mon code s'éxécute convenablement, sans erreur, mais aucun raccourci ne se créé.

As-tu une idée de ce qui peut se passer ?

Merci pour ton aide
Sylvain

 

[PascalXLD]

Re : Création de raccourci vers des fichiers Excels

Re

en modifiant ainsi

Sub CreerRaccourci()
Dim MonFichier As String
Dim Raccourci As Object
   With CreateObject("WScript.Shell")
        Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") & "\" & ThisWorkbook.Name & ".lnk")
   End With
   MonFichier = "\\serveur" & Right(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 2)
   
   Raccourci.TargetPath = MonFichier
   Raccourci.Save
   Set Raccourci = Nothing
End Sub

 

[Sly le globe trotter]

Re : Création de raccourci vers des fichiers Excels

Merci pour ton aide Pascal76.

Je viens d'essayer ta dernière proposition mais ça ne marche pas mieux... En fait, le fichier vers lequel je crée un lien est déjà sur le réseau dans un dossier spécifique. A l'aide d'une macro, je recherche ce fichier en fonction d'élément contenu dans mon document et je veux créer un raccourci vers ce fichier dans un autre dossier.

Je retrouve sans problème le fichier vers lequel je veux pointer. J'arrive à créer un raccourci vers ce fichier uniquement si je place ce raccourci sur C. Le hic, c'est que je veux mettre ce raccourci sur mon lecteur réseau...

Voilà le code que j'ai actuellement suite à tes suggestions :

' Création du raccourci
With CreateObject("WScript.Shell")
    Set Raccourci = .CreateShortcut(.SpecialFolders "\\MonServeur\id$\Tests\Tests laboratoire\Synthèse Demandes") & "\" & Nom & ".lnk")
End With

MonFichier = "\\MonServeur" & Right(Chemin & Finarbo & Nom, Len(Chemin & Finarbo & Nom) - 2)
   
Raccourci.TargetPath = MonFichier
Raccourci.Save
Set Raccourci = Nothing

Chemin & Finarbo & Nom me permet d'avoir l'adresse complète de mon fichier.

Merci,
Sylvain

 

[PascalXLD]

Re : Création de raccourci vers des fichiers Excels

RE

Oups excuse j'avais mal compris la demande

J'avais lu que tu voulais mettre un raccourci sur ton bureau d'un fichier en réseau

Bon je regarde

 

[Sly le globe trotter]

Re : Création de raccourci vers des fichiers Excels

Merci, je m'étais peut être mal exprimé...
Je cherche à mettre un raccourci d'un fichier en réseau dans un dossier spécifique de de ce réseau.

Sylvain

 

[Sly le globe trotter]

Re : Création de raccourci vers des fichiers Excels

Je viens de trouver la solution !!!

With CreateObject("WScript.Shell")
Set Raccourci = .CreateShortcut(.SpecialFolders("P:") & "\Tests\Tests laboratoire\Synthèse Demandes\" & Nom & ".lnk")
End With

Il fallait juste mettre la lettre du lecteur dans l'instruction .SpecialFolders !!!

Merci pour ton aide Pascal76 !