Insérer lien menant à un fichier

Bonjour,

Je vous sollicite aujourd'hui puisque je n'arrive pas à résoudre mon problème.

Je vous l'expose :

Je souhaite, grâce à l'userform lié au bouton "Créer" se trouvant dans le fichier en pièce - jointe, joindre un fichier excel à chaque enregistrement. Le fichier excel devrait être mis dans la cellule à laquelle il est associé dans l'enregistrement.

Pour l'instant, j'ai réussi à faire en sorte d'afficher une icône, placée aléatoirement, qui dirige vers le fichier. Mais je n'arrive pas à trouver la solution à mon problème.

Merci encore pour vos éventuelles pistes !

Bonjour,

à tester,

Private Sub btn_joindre_Click()
ligne = Sheets("Feuil1").[A6500].End(xlUp).Row + 1
t = Sheets("Feuil1").Cells(ligne, 7).Top
l = Sheets("Feuil1").Cells(ligne, 7).Left
fileToOpen = Application _
    .GetOpenFilename("All Files (*.*), *.*")
If fileToOpen <> False Then
fichier = fileToOpen
Set MonFichier = ActiveSheet.OLEObjects.Add(Filename:=fileToOpen, Link:=True, DisplayAsIcon:=True, _
                    IconIndex:=0, IconLabel:=fileToOpen, Left:=l, Top:=t, Width:=2, Height:=2)
End If
End Sub

un autre possibilité,

tu pourrais mettre un lien au lieu d'un icone,

fichier = fileToOpen
nom = "No_" & Sheets("Feuil1").Cells(ligne, 1)
Sheets("Feuil1").Cells(ligne, 7).Formula = "=HYPERLINK(""" & fichier & """,""" & nom & """)"

i20100 a écrit :

Bonjour,

à tester,

Private Sub btn_joindre_Click()
ligne = Sheets("Feuil1").[A6500].End(xlUp).Row + 1
t = Sheets("Feuil1").Cells(ligne, 7).Top
l = Sheets("Feuil1").Cells(ligne, 7).Left
fileToOpen = Application _
    .GetOpenFilename("All Files (*.*), *.*")
If fileToOpen <> False Then
fichier = fileToOpen
Set MonFichier = ActiveSheet.OLEObjects.Add(Filename:=fileToOpen, Link:=True, DisplayAsIcon:=True, _
                    IconIndex:=0, IconLabel:=fileToOpen, Left:=l, Top:=t, Width:=2, Height:=2)
End If
End Sub

un autre possibilité,

tu pourrais mettre un lien au lieu d'un icone,

fichier = fileToOpen
nom = "No_" & Sheets("Feuil1").Cells(ligne, 1)
Sheets("Feuil1").Cells(ligne, 7).Formula = "=HYPERLINK(""" & fichier & """,""" & nom & """)"

Oh merci pour cette idée !

Je l'ai appliqué mais le lien se met directement quand j'appuie sur le bouton "joindre" au lieu qu'il apparaisse au moment où j'appuie sur "Valider".