Bonjour à tout le monde,
Grâce au code ci-joint, je peux exporter une feuille excel en pdf et la stocker dans un dossier.
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
Grâce au code ci-joint, je peux exporter une feuille excel en pdf et la stocker dans un dossier.
VB:
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 SubMaintenant, 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