Créer un raccourci pour un fichier stocké sur un intranet...

[alias_2003]

Bonjour,
J'essaie de créer, par vba, un raccourci pour accèder plus rapidement à un fichier partagé.
L'idée est que ce raccourci soit créer à l'ouverture du fichier, ça m'éviterait de le faire manuellement sur les différents postes...
J'ai essayé de suivre le tuto suivant Formation Excel, mais sans succès...
Qui peut m'aider ?
Merci beaucoup !
Bonne journée,
Amicalement

 

[alias_2003]

Re : Créer un raccourci pour un fichier stocké sur un intranet...

J'ai fini par réussir en suivant le tuto !
Par contre, savez-vous quelles seraient les lignes de code qui permettraient de vérifier si le raccourci existe déjà et de sortir de la procédure dans ce cas ??

Private Sub Workbook_Open()Open "c:\windows\all users\bureau\boursorama.url" For Output As #1 
Print #1, "[InternetShortcut]" 
Print #1, Chr$(10) & "URL=http://boursorama.fr" 
Close #1 
MsgBox "Un raccourci vient d'être créé sur votre bureau"
End Sub

Merci beaucoup !
Bonne journée