Microsoft 365 Code pour liens

[Marvin57]

Bonjour à tout le monde,

Grâce au code ci-joint, je peux exporter une feuille excel en pdf et la stocker dans un dossier.

Sub EnregistrementFeuillesAB() ' archive les feuilles AB en pdf

'je déclare mes variables
Dim Chemin As String
Dim lignerecopie As Integer
Dim LaDate$

LaDate = Format(Now, "dd_mm_yyyy")
LIVRAISON = Format(Now, "dd_mm_yyyy")

Application.ScreenUpdating = False

'je nomme le dossier et donne le chemin de sauvegarde
Chemin = "P:\Dossier Archives\Archives Feuilles AB\"

Sheets("FEUILLE AB").ExportAsFixedFormat Type:=xlTypexlsx, Filename:= _
Chemin & "FeuilleAB" & "du_" & LaDate & "_" & "N°_ " & Range("C2") & Range("D2") & " _ " & Range("C5") & " _ " & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

MsgBox "Enregistrement terminé"

End Sub

Maintenant, je souhaiterai pouvoir créer lors de l'action de ce code un lien hypertexte pour ouvrir un de ces fichier pdf.

Est-ce quelqu'un pourrait m'aider à rajouter ce qu'il faut à ce code afin de créer ce qui suit ci-dessous.

Ce lien hypertexte devrait, lors de l'action du code ci-joint, enregistrer un lien hypertexte dans la colonne "B" de la Feuille "Listing FeuillesAB" du fichier "ORDRES"

J'espère que j'ai bien expliqué mon souhait. Si besoin je suis dispo pour toute autre question.

Je vous Remercie d'avance.


Marvin57

 

[job75]

Bonjour Marvin57,

Complétez votre code avec ceci :

Dim fichier$
fichier = Chemin & "FeuilleAB" & "du_" & LaDate & "_" & "N°_ " & Range("C2") & Range("D2") & " _ " & Range("C5") & " _ " & ".pdf"
Sheets("FEUILLE AB").ExportAsFixedFormat Type:=xlTypexlsx, Filename:=fichier
With Workbooks("ORDRES").Sheets("Listing FeuillesAB")
    .Hyperlinks.Add Anchor:=.Range("B" & .Rows.Count).End(xlUp)(2), Address:=fichier
End With

A+

 

[Marvin57]

Bonjour Marvin57,

Complétez votre code avec ceci :

Dim fichier$
fichier = Chemin & "FeuilleAB" & "du_" & LaDate & "_" & "N°_ " & Range("C2") & Range("D2") & " _ " & Range("C5") & " _ " & ".pdf"
Sheets("FEUILLE AB").ExportAsFixedFormat Type:=xlTypexlsx, Filename:=fichier
With Workbooks("ORDRES").Sheets("Listing FeuillesAB")
    .Hyperlinks.Add Anchor:=.Range("B" & .Rows.Count).End(xlUp)(2), Address:=fichier
End With

A+

Bonjour job75,

Merci beaucoup pour votre aide. Cela fonctionne comme souhaité. Super.

A une prochaine fois peut-être.

Marvin57