Lien hypertexte sur une colonne EXCEL

Bonjour,
Sur une fichier Excel que j'ai nomer archive il me reprend toutes les information de ma feuille facture afin d'avoir un recap..
je souhaiterais paramétrer a partir de la colonne b5 de façon a ce que chaque cellule de cette colonne posséde un lien Hypertexte vers le fichier qui n'auras pas le même nom.
Par exemple, quand je clique sur la cellule b5 qui contient les chiffres "003-2013" et bien cela ouvrirai mon fichier ou il avais etait sauvegarder.
J'ai cherché par moi même mais je ne voit pas comment je peut y parvenir !
J'espére avoir été clair et merci d'avance !
Par ailleur je vous joint le code de mon archivage

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Archive() 'Copie sur la feuille Archives Dim ligne As Integer On Error Resume Next With Sheets("Archives") ligne = .Range("B65536").End(xlUp).Row + 1 If ActiveSheet.Name = "Facture" Then .Cells(ligne, 2) = Sheets("Facture").Range("C2") 'N° Facture .Cells(ligne, 3) = Sheets("Facture").Range("B2") 'Type .Cells(ligne, 4) = Sheets("Facture").Range("b3") 'Date .Cells(ligne, 5) = Sheets("Facture").Range("b6") 'Nom + Prénom .Cells(ligne, 6) = Sheets("Facture").Range("B9") 'telephone .Cells(ligne, 7) = Sheets("Facture").Range("B10") 'mail .Cells(ligne, 12) = Sheets("Facture").Range("e28") 'remise .Cells(ligne, 14) = Sheets("Facture").Range("e31") 'total .Cells(ligne, 15) = Sheets("Facture").Range("e30") 'livraison End If End With End Sub

---

Cordialement

Bonjour,

Et ou se trouve l'information du lien entre "003-2013" et le chemin et nom du fichier ?

Hello Jfontaine
Je vous transmet 1 fichier peux etre vous comprendrais mieux si toutes fois je me suis mal exprimer.
Generalement mes factures sont enregistrer dans un dossier D:\Backup\Boulot et dessuite archiver dans le tableau que vous trouverez.

Cordialement

Essais en ajoutant la ligne ci dessous dans ton code
Je n'ai pas pu testé car la feuille Facture n'est pas dans ton fichier

Code:

---

1 2 3 4 5

.Cells(ligne, 15) = Sheets("Facture").Range("e30") 'livraison   .Hyperlinks.Add Anchor:=.Cells(ligne, 2), Address:="D:\Backup\Boulot\" & .Cells(ligne, 2).Value & ".xls", TextToDisplay:=.Cells(ligne, 2).Value   End If

---

Re
Merci pour ce bout de code cela fonctionne a peux de chose pret
En fait j'avais oublier que mon fichier est enregistrer comme cela Fact003-2013
Donc ton code fonctionne le lien ce cree mes vas suelement chercher 003-2013
je mes si jointe la macro que j'utilise quand je fais ma sauvegarde

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Sauvegarder() Dim nomfichier As String, chemin As String Application.DisplayAlerts = 0 With ThisWorkbook chemin = .Path & "\" nomfichier = "Fact" & .Sheets("Facture").Range("c2") .Sheets("Facture").Copy End With With ActiveWorkbook .SaveAs Filename:=chemin & nomfichier & ".xlsx" .Close End With Application.DisplayAlerts = 1 End Sub

---

Merci mille fois pour votre aide.
Cordialement

Je suis étonné que tu n'ais pas réussis à adapter le code

Code:

---

.Hyperlinks.Add Anchor:=.Cells(ligne, 2), Address:="D:\Backup\Boulot\Fact" & .Cells(ligne, 2).Value & ".xls", TextToDisplay:=.Cells(ligne, 2).Value

---

Merci bcp cela fonctionne parfaitement
Il est vrai pour ton code j'y est pas penser mais etant un ptit peux novice je penser a un truc beaucoup plus complexe alors que c'etait simplement simple pfffff.
Encore merci a toi.

Bon soiree a vous .
Cordialement