Merci pour l'idée,
voici ce que j'ai :
Dim Ligne As Long
Ligne = Sheets("RELEVE FACTURES").Range("A65536").End(xlUp).Row + 1
Sheets("RELEVE FACTURES").Range("A" & Ligne).Value = Sheets("FACTURE").Range("DatedeFact").Value
Sheets("RELEVE FACTURES").Range("B" & Ligne).Value = Sheets("FACTURE").Range("CodeClientSaisi").Value
Sheets("RELEVE FACTURES").Range("C" & Ligne).Value = Sheets("FACTURE").Range("RefChantier").Value
Sheets("RELEVE FACTURES").Range("D" & Ligne).Value = Sheets("FACTURE").Range("numfac").Value
Sheets("RELEVE FACTURES").Range("E" & Ligne).Value = Sheets("FACTURE").Range("MTHT").Value
Sheets("RELEVE FACTURES").Range("F" & Ligne).Value = Sheets("FACTURE").Range("TauxTVA").Value
Sheets("RELEVE FACTURES").Range("I" & Ligne).Value = Sheets("FACTURE").Range("Echéance").Value
Sheets("RELEVE FACTURES").Range("J" & Ligne).Value = Sheets("FACTURE").Range("Fichier").Value
.Hyperlinks.Add Anchor:=Selection, Address:="CBDA/FACTURE 2004" _
, TextToDisplay:=("Fichier")
La dernière ligne est celle que je veux voir devenir un line dans la colonne,
qu'écrire pour lier la ligne
Sheets("RELEVE FACTURES").Range("J" & Ligne).Value = Sheets("FACTURE").Range("Fichier").Value
à la ligne
.Hyperlinks.Add Anchor:=Selection, Address:="CBDA/FACTURE 2004" _
, TextToDisplay:=("Fichier")
Fichier étant la cellule qui contient le nom du fichier que je veux ouvrir.
En fait je voudrais que lors du report sur le "RELEVE FACTURES" les données de la collonne "J" deviennent hyperlinks
Merci à celui qui pourra me répondre
Michel