Fichiers et Liens

[Riri]

Bonjours à toutes et à tous,

Je me suis servis de plusieurs petit bout de code pour ce petit programme .

Je liste des fichiers dans une feuille excel et je voudrais avoir un lien , chose que je ne suis pas parvenu à faire .

Une petite aide me ferais grand plaisir . Ci joint le fichier essais .

Merci pour votre aide..............Riri

 

[myDearFriend]

Bonsoir Riri, le Forum.


Dans ta procédure RecupNomFichier :

.....
'NUMEROTATION DES FICHIERS
For i = 1 To L - 9
Cells(i + 9, 1) = i
'Création des liens
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(i + 9, 2), _
Address:=.Range("dossier") & "\" & .Cells(i + 9, 2), _
TextToDisplay:=.Cells(i + 9, 2).Value
End With
Next
......


Cordialement,
Didier_mDF

 

[CHti160]

Salut "Riri"et " myDearFriend"

modeste contribution

affichage du "ScreenTip

Dans ta procédure RecupNomFichier :
....
'NUMEROTATION DES FICHIERS
'création du Tip

TextToDisplay:=.Cells(i + 9, 2).Value
.Hyperlinks(i).ScreenTip = " VERS:" & .Cells(i + 9, 2).Value '<---
End With
A+++
Jean Marie

 

[Riri]

Bonsoir , " myDearFriend " , " CHti160 "

Un grand Merci à vous pour votre aide et pour vos réponses très rapide.

Vous souhaitant une bonne fin de soirée.

@ + Riri