Microsoft 365 Enregistré une feuille excel en pdf

[dubon]

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

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]

Bonsoir Dubon,
Imaginons que le N° adhérent se trouve en A1, essayez :

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

 

[kiki29]

Salut, si tu es curieux va voir ici

 

[dubon]

Bonsoir,

Merci silvanu cela fonctionne très bien, c'est adapter sur mon classeur et aucun problème de fonctionnement.

kiki29 j'avais déjà regarder le lien mais bon pas trop compris le truc lol

 

[kiki29]

re, pas de bras ... pas de chocolat