Lien hypertexte automatique

[Zlopeck]

Bonjour,

Malgré mes recherches et mes tentatives d'adaptation de codes existants je n'ai pas trouvé de solution à mon problème.
Dans un fichier j'ai un usf qui me permet d'afficher des valeurs sur une feuille (feuil1 dans l'exemple), de les enregistrer sur une autre (feuil2 dans l'exemple) et de sauvegarder la zone d'impression en PDF dans un dossier placé sur le disque dur (C:\COPIE dans l'exemple).
Comme il arrive que j'ai besoin de retrouver un PDF parmi les très nombreux enregistrés j'aimerais pouvoir créer un lien hypertexte entre la ligne enregistrée sur la feuille 2 et le PDF correspondant au fur et à mesure des enregistrements.
Je joins un fichier qui sera peut être plus clair que mes explications (il nécessite la création d'un dossier nommé COPIE à la racine du disque).
Merci d'avance pour votre aide.

 

[mapomme]

Re : Lien hypertexte automatique

Bonjour,

Quelque chose de ce type ?:

Sheets("Feuil2").Hyperlinks.Add Anchor:=Sheets("Feuil2").Range("A" & derli).Resize(, 2), _
  Address:="C:\COPIE\" & Fichier & ".pdf"

ou bien

Sheets("Feuil2").Range("C" & derli).Formula = "=HYPERLINK(" & Chr(34) & "C:\COPIE\" & Fichier & ".pdf" & Chr(34) & ")"

 

[Zlopeck]

Re : Lien hypertexte automatique

Bonjour Mapomme
Un grand merci à toi.
Ton code est exactement ce que je cherchais à obtenir mais malheureusement sans succès.
Il ne me reste qu'à l'adapter à mon fichier réel.