Macro hyperlink

Bonjour,

Je viens vers vous afin de m aide a finir mon codage car je n ai trouve la solution sur aucun sujet.

Le fichier excel est un facturier simplifier. quand je valide la facture certaine cellule son transfère dans une autre feuille recapitulatif (N° facture, Date, Nom, Montant et hyperlien(code manquant)

Actuellement la fin de mon codage créé un fichier PDF qui est enregistrer dans un dossier.

J’aimerai créer un hyperlien dans une cellule de la feuille récapitulatif afin d ouvrir la facture plus rapidement.

voici le code :

Sub validation()
Cells(9, 3) = Cells(9, 3) + 1
Application.EnableEvents = True
With Worksheets("TOTALFACTURE")
Tabrecup = .Range("A17:L" & IIf(Range("A26").End(xlUp).Row = 16, _
17, Range("A26").End(xlUp).Row))
Derlgn = .Range("A65536").End(xlUp).Row + 1
.Cells(Derlgn, 2) = Range("E9").Value 'DATE
.Cells(Derlgn, 1) = Range("C9").Value 'N° Facture
.Cells(Derlgn, 3) = Range("C2").Value 'Nom
.Cells(Derlgn, 4) = Range("C3").Value 'Prenom
.Cells(Derlgn, 5) = Range("E32").Value 'Montant
End With
Dim fichier As String

Date_F = Format(Date, "ddmmmm_")

With Worksheets("FACTURE")
fichier = "\" & Date_F & .Range("C9") & ".pdf"
Dossier = "C:\Users\cedri\Desktop\papa\facture"
chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Je vous remercie d'avance pour votre aide

Cordialement

Bonsoir, le forum

Sub validation()
Dim nomfichier As String
Cells(9, 3) = Cells(9, 3) + 1
Application.EnableEvents = True
With Worksheets("TOTALFACTURE")
Tabrecup = .Range("A17:L" & IIf(Range("A26").End(xlUp).Row = 16, _
17, Range("A26").End(xlUp).Row))
Derlgn = .Range("A65536").End(xlUp).Row + 1
.Cells(Derlgn, 2) = Range("E9").Value 'DATE
.Cells(Derlgn, 1) = Range("C9").Value 'N° Facture
.Cells(Derlgn, 3) = Range("C2").Value 'Nom
.Cells(Derlgn, 4) = Range("C3").Value 'Prenom
.Cells(Derlgn, 5) = Range("E32").Value 'Montant
.Hyperlinks.Add .Cells(Derlgn, 1), chemin & "C:\Users\cedri\Desktop\papa\facture" & nomfichier    
End With
Dim fichier As String

Date_F = Format(Date, "ddmmmm_")

With Worksheets("FACTURE")
fichier = "\" & Date_F & .Range("C9") & ".pdf"
Dossier = "C:\Users\cedri\Desktop\papa\facture"
chemin = Dossier & fichier
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Bonjour chindou,

Merci pour ta réponse rapide.

Le lien est bien créer mais quand je clique dessus est il possible d ouvrir le fichier? car la il ouvre le dossier

Je vous remercie d avance.