Microsoft 365 Code pour liens

Marvin57

XLDnaute Occasionnel
Bonjour à tout le monde,

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 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
 
Solution
Bonjour Marvin57,

Complétez votre code avec ceci :
VB:
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+

job75

XLDnaute Barbatruc
Bonjour Marvin57,

Complétez votre code avec ceci :
VB:
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

XLDnaute Occasionnel
Bonjour Marvin57,

Complétez votre code avec ceci :
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
313 322
Messages
2 097 141
Membres
106 850
dernier inscrit
benbeckman