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
13
Affichages
3 K

Statistiques des forums

Discussions
291 805
Messages
1 918 119
Membres
179 932
dernier inscrit
Starsat1200
Haut Bas