Lien vers fichier

Bonjour,

Je vous sollicite aujourd'hui parce que je n'arrive pas à résoudre le problème suivant (Le fichier se trouve en pièce joint) :

Quand j'appuie sur le bouton "créer" et que je dois insérer le lie menant vers le fichier, il s'affiche au moment où je choisis le fichier (sous le nom de No.) et disparaît au moment où j'appuie sur le bouton valider.

Je voudrais donc qu'il s'affiche juste au moment où j'appuie sur le bouton 'valider' et qui s'affiche sous le nom du fichier voulu.

Merci encore pour vos futures aides !

Bonjour,

Ouppsss, je reviens

ric

ric a écrit :

Bonjour,

Ouppsss, je reviens

ric

Ahaha d'accord !

Bonjour,

Un essai ...

Private Sub btn_joindre_Click()

   'Ouverture du gestionnaire de fichier dès que l'on clique sur le bouton joindre'

ligne = Sheets("Feuil1").[A6500].End(xlUp).Row + 1      ' dernière ligne +1
   fileToOpen = Application.GetOpenFilename("All Files (*.*), *.*")
   If fileToOpen <> False Then fichier = fileToOpen

   Chaine = fichier
   Caractere = "\"      ' caractère à trouver
   Positiondroite = Len(Chaine) - InStrRev(Chaine, Caractere)      ' position du caractère à trouver
   fichier = Right(fichier, Positiondroite)      ' extraire le nom du fichier
   nom = "No_" & ligne & " : "      ' mention à ajouter
   ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Feuil1").Cells(ligne, 7), Address:=fichier, TextToDisplay:=nom & fichier

End Sub

ric

Bonjour,

J'ai modifié mon message précédent.

ric