Lien hypertexte dans un classeur partagé
Bonjour !
J'ai un classeur qui est partagé entre plusieurs utilisateurs.
Bien entendu, dans un classeur partagé il n'est pas possible d'insérer des liens hypertexte.
Je tente donc une macro pour autoriser cela sur une colonne particulière qui comportera différents liens vers des fichiers PDF présents dans des dossiers sur un serveur (2 chemins existants : G:\CTX-ELSM\CONVOCATIONS, et G:\CTX-ELSM\JUGEMENTS).
J'ai essayé plusieurs choses mais ça ne fonctionne pas d'où mon appel à l'aide sur ce forum !
J'ai déjà écrit ceci pour autoriser l'outil lien hypertexte, mais je ne sais pas si cela est complet :
Private Sub Workbook_Open()
' A l'ouverture du fichier, création dans le menu excel clic droit d'un
'nouveau libellé "Lien Hypertexte" avec son icone associée.
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Lien hypertexte"
.BeginGroup = True
.FaceId = 1576
.OnAction = "Feuil1.CommandButton1_Click"
End With
End Sub
Il me faut ensuite compléter pour indiquer les chemins possibles pour récupérer les liens vers les fichiers avec Application.GetOpenFilename mais je ne sais pas faire.
Quelqu'un saurait éclairer ma lanterne ? :)
Je vous remercie !