Créer un lien dans la feuille vers le classeur sauvegarder

bonsoir a tous

je viens de faire des essais avec le code proposer icihttps://forum.excel-pratique.com/excel/creation-de-lien-hypertext-en-boucle-t73553.html?hilit=lien%20hypertexte mais ce n'est pas ce que je cherche

je voudrais que lors de l'enregistrement de la facture dans la feuille"historique factures" que le numéro devienne un lien hypertexte vers la facture en question si vous comprenez ce que je veux dire, voici le code en question

le bouton est dans la feuille "facture"

le numéro en question viens de d22 et va en colonne A .Range("a65000").End(xlUp).Row mais au fur et a mesure des créations

Sub Enregistrement_Factures()
'
' Enregistrement_Factures Macro
'
'
'Affiche une boite de dialogue afin de verifié si la facture a ete validé
'Genere une alerte quand il manque une donnée pour la validation dans ce cas la date
If Sheets("Facture").Range("M22") = "" Then
If MsgBox("Vous n'avez pas validé votre facture !", vbInformation, "Prog.iFacturier Vous Informe") = vbOK Then
End
End If
End If

'Archive les informations de la facture
'Ajoute une ligne pour un futur enregistrement
'Avez vous Valider votre facture afin de generer le numero automatique?
If MsgBox("Vous etes sur le point d'archiver les informations concernant cette facture.               Avez vous Valider votre facture afin de generer le numero automatique?                   Souhaitez vous continuer?", vbYesNo, "Prog.iFacturier vous informe..") = vbYes Then
With Sheets("Historique factures")
    .Range("A2") = Sheets("Facture").Range("D22")
    .Range("B2") = Sheets("Facture").Range("D21")
    .Range("C2") = Sheets("Facture").Range("L11")
    .Range("D2") = Sheets("Facture").Range("L12")
    .Range("E2") = Sheets("Facture").Range("J22")
    .Range("F2") = Sheets("Facture").Range("M58")
    .Range("G2") = Sheets("Facture").Range("M60")
    .Range("H2") = Sheets("Facture").Range("M61")
    .Range("I2") = Sheets("Facture").Range("M62")
    .Range("J2") = Sheets("Facture").Range("M63")
    .Range("K2") = Sheets("Facture").Range("P63")
    .Range("L2") = Sheets("Facture").Range("M66")
    .Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Facture").Select
  End If
End With

If MsgBox("Etes-vous certain de vouloir généré ce PDF?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("Facture").Select
    Dim nom As String
nom = Range("D22")

    Chemin = "C:\Users\" & Application.UserName & "\Desktop\SAUVEGARDE FACTURE 2016"
    ChDir Chemin
    Chemin = Chemin & "\"
    nomfic = ActiveSheet.Range("D22").Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & nomfic

End If
End Sub

bonjour a tous

finalement le forum qu'il a sous ma signature a trouvé la réponse que je vous livre

Sub Enregistrement_Factures()
    '
    ' Enregistrement_Factures Macro

    '
    'Affiche une boite de dialogue afin de verifié si la facture a ete validé
    'Genere une alerte quand il manque une donnée pour la validation dans ce cas la date
    If Sheets("Facture").Range("M22") = "" Then
    If MsgBox("Vous n'avez pas validé votre facture !", vbInformation, "Prog.iFacturier Vous Informe") = vbOK Then
    End
    End If
    End If

    'Archive les informations de la facture
    'Ajoute une ligne pour un futur enregistrement
    'Avez vous Valider votre facture afin de generer le numero automatique?
    If MsgBox("Vous etes sur le point d'archiver les informations concernant cette facture.               Avez vous Valider votre facture afin de generer le numero automatique?                   Souhaitez vous continuer?", vbYesNo, "Prog.iFacturier vous informe..") = vbYes Then
    Dim ligne As Integer
    'déplacement de la ligne ci dessous déjà utiliser plus basChemin = "C:\Users\" & Application.UserName & "\Desktop\SAUVEGARDE FACTURE 2016"
    'ligne = Sheets("Historique factures").Range("A65536").End(xlUp).Row + 1
    'pour trouver la dernière ligne à cause de la mise en forme (couleur cellule)
    ligne = Sheets("Historique factures").Columns(1).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

    With Sheets("Historique factures")
    .Hyperlinks.Add .Range("A" & ligne), Chemin & "\" & ActiveSheet.Range("D22").Value & ".pdf", , , Sheets("Facture").Range("D22").Value
    '.Range("A2") = Sheets("Facture").Range("D22")'rendre cette ligne hypertexte au fichier qui lui correspond
    'continuer à utiliser ligne pour le reste
        '.Range ("B2")
        .Cells(ligne, "B").Value = Sheets("Facture").Range("D21")
        .Cells(ligne, "C").Value = Sheets("Facture").Range("L11") ' nom société
        .Cells(ligne, "D").Value = Sheets("Facture").Range("L12") 'nom client
        .Cells(ligne, "E").Value = Sheets("Facture").Range("J22") ' date
        .Cells(ligne, "F").Value = Sheets("Facture").Range("M58") ' tot HT
        .Cells(ligne, "G").Value = Sheets("Facture").Range("M60") 'tot tva
        .Cells(ligne, "H").Value = Sheets("Facture").Range("M61")  ' remise
        .Cells(ligne, "I").Value = Sheets("Facture").Range("M62") ' acompte
        .Cells(ligne, "J").Value = Sheets("Facture").Range("M63") 'net a payer
        .Cells(ligne, "K").Value = Sheets("Facture").Range("P63") 'ht+tva
        .Cells(ligne, "L").Value = Sheets("Facture").Range("M66") 'paiement
        '.Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Sheets("Facture").Select

    End With
 End If

    If MsgBox("Etes-vous certain de vouloir généré ce PDF?", vbYesNo, "Demande de confirmation") = vbYes Then
    Sheets("Facture").Select
        Dim nom As String
    nom = Range("L12")

        Chemin = "C:\Users\" & Application.UserName & "\Desktop\SAUVEGARDE FACTURE 2016"
        ChDir Chemin
        Chemin = Chemin & "\"
        nomfic = ActiveSheet.Range("D22").Value & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & nomfic