Microsoft 365 Enregistré une feuille excel en pdf

dubon

XLDnaute Nouveau
Bonjour la communauté,

J'utilise une formule pour enregistrer une feuille excel en PDF, lié sur un bouton elle fonctionne très bien. Actuellement le nom du pdf est enregistrer sous ce format Création du fichier le 19.05.2021 14305

Le code
VB:
Sub PDF_SAVE()
Dim LHeure As String, LeDate As String

LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\ptb\adherent\Création du fichier le " & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

' Message de confirmation
' MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub

Le nom du fichier PDF ne me convient pas vraiment. J'aimerais juste à la place le numéro d'adhérent qui est situé dans une cellule sur la même feuille. Que faut il modifié et par quoi pour que cela puisse fonctionné.

Merci pur votre retour
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Dubon,
Imaginons que le N° adhérent se trouve en A1, essayez :
VB:
Sub PDF_SAVE()
Dim Nom As String

Nom=range("A1")

' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\ptb\adherent\Adhérent " & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

' Message de confirmation
' MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub
 

Discussions similaires

Réponses
2
Affichages
252

Statistiques des forums

Discussions
311 711
Messages
2 081 782
Membres
101 817
dernier inscrit
carvajal