Fichiers et Liens

Riri · 2 Octobre 2004

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 · 2 Octobre 2004

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 · 2 Octobre 2004

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 · 2 Octobre 2004

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

Fichiers et Liens

Riri

Guest

Pièces jointes

myDearFriend

Guest

CHti160

Guest

Riri

Guest

Discussions similaires