Lien hypertexte en mode protégé

bonjour, j'ai créer un fichier Excel: c'est un listing de différentes

affaire avec différentes info et pour chaque info je veut créer un

lien qui

renvoie vers une fiche détaillé de l'affaire sélectionné. se classeur

sera

utilisé par plusieurs personne en même temps je l'ai donc mis en mode

"partagé" ces personnes seront amené à créer de nouvelles affaire et

du coup

créer le lien vers l'affaire concerné. je voudrai donc trouver une

solution

pour qu'ils puissent insérer le lien hypertexte, je suis complètement

novice

sur VB donc que quelqu'un m'aide intensément. je suis nouveau dans

l'entreprise, mon contrat n'est pas encore signé, et en réalisant ces

tableaux je marque pas mal de point.

pour faire simple il faudrait que sa se passe comme sa:

• clique sur une macro
• ouverture de la fenêtre de choix du fichier sur l'ordinateur
• insertion du lien dans la case voulu

le tous en mode partagé.

si des personnes sont aptes (ou pas) a me faire avancer merci !!!!

Salut le forum

Lesims1000 comme nouveau membres.

Le code suivant, insère un lien hypertexte sur la cellule active

Sub Inserer_Lien()
Dim NomFichier

NomFichier = Application.GetOpenFilename

If NomFichier = False Then Exit Sub

With ActiveCell
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
        Address:=NomFichier, _
            TextToDisplay:=NomFichier
End With

End Sub

Mytå

merci beaucoup, effectivement sa fonctionne bien, le problème est que en mode partagé quant je selectione le fichier shouaité, un message d'erreur s'ouvre "erreur 400"

Re le forum

Les fonctionnalités suivantes ne peuvent pas être modifiées une fois que le classeur est partagé : cellules fusionnées, mises en forme conditionnelles, validation de données, graphiques, images, objets y compris les objets dessinés, liens hypertexte, scénarios, plans, sous-totaux, tableaux de données, rapports de tableau croisé dynamique, protection de classeur et de feuille de calcul et macros.

Référence :

Mytå

voila donc le code fonctionnant en mode "partagé" si sa peut aider quelqu'un !!

Sub LiensH()
Fichier = Application.GetOpenFilename("Fichiers Excel(*.xlsm),*.xlsm")
If Fichier = 0 Then Exit Sub
nom = Application.InputBox("Entrez le nom qui sera affiché", "DONNER UN NOM AU LIEN")
If nom = "" Or nom = 0 Then
MsgBox "Vous devez saisir un nom pour le lien", vbCritical + vbOKOnly
Exit Sub
End If
ActiveCell.Formula = "=HYPERLINK(""" & Fichier & """,""" & nom & """)"
End Sub