Lien hypertexte

Bonjour,

En double cliquant sur une cellule Excel, je peux parcourir mes dossiers pour aller chercher le document souhaité.

Une fois celui trouvé, je n'arrive pas à mettre la formule pour que ce dernier se forme en lien hypertexte.

Voici le début de mon code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\Users\zorroz\Documents
.Show

Je vous remercie par avance de l'aide que vous voudriez bien m'apporter.

Bonjour,

Un test en considérant que la cellule active contienne déjà quelque chose.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim FICHIER As String
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "C:\Users\anton\Documents"
    .Show
    FICHIER = .SelectedItems(1)
    End With
    ActiveCell.Hyperlinks.Add Anchor:=Range(ActiveCell.Address), Address:=FICHIER
End Sub

Cdlt,

Merci de votre réponse, j'ai une erreur 1004 car ma cellule est vide

Bonjour,

Et que souhaitez vous y mettre dedans ? Le lien hypertexte ? Si c'est le cas alors

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim FICHIER As String
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "C:\Users\anton\Documents"
    .Show
    FICHIER = .SelectedItems(1)
    ActiveCell = .SelectedItems(1)
    ActiveCell.Hyperlinks.Add Anchor:=Range(ActiveCell.Address), Address:=FICHIER
End With
End Sub

Cdlt,

Merci beaucoup c'est parfait, une dernière petit question peut on renommer le lien au lieu d'avoir sur la cellule son adresse ?

Bonjour,

Oui, d'où ma question, que souhaitez vous comme valeur dans la cellule ?

Cdlt,

Désolée, je n'avais pas compris son sens

C'est bon j'ai trouvé.

Merci beaucoup de votre aide

Bon week end

Bonjour Tompouce, Ergotamine , le forum,

C'est bon j'ai trouvé.

Dans ce cas, tu pourrais partager ta solution, cela serait profitable aux membres du forum qui consulte ce sujet.....

ActiveCell.Hyperlinks.Add Anchor:=Range(ActiveCell.Address), Address:=FICHIER, TextToDisplay:=nomLien

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim FICHIER As String, nomLien As String

  On Error GoTo 1
  nomLien = InputBox("Nom du lien ?", "Lien hypertext")

    With Application.FileDialog(msoFileDialogFilePicker)
     .InitialFileName = "C:\Users\anton\Documents"
     .Show
        FICHIER = .SelectedItems(1)
     ActiveCell = .SelectedItems(1)
        nomLien = IIf(nomLien <> "", nomLien, FICHIER)
       ActiveCell.Hyperlinks.Add Anchor:=Range(ActiveCell.Address), Address:=FICHIER, TextToDisplay:=nomLien
    End With
1:    err.Clear: Exit Sub
End Sub

Merci à Ergotamine pour le code,

Cordialement,