XL 2019 Donner le nom de deux cellules a un onglet avec VBA

[JR.31]

Bonjour,
Tout d'abord je suis sous Office 2021, qui n'apparait pas dans le préfixe.
J'aimerais modifier ma macros pour donner le nom de deux cellules à la feuille enregistrer.
Merci de votre aide

JR.31


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:\Users\utilisateur\Professionnel\SYNTHESES ECOLES\EVALUATION PDF\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

 

[Jacky67]

Bonjour,
Tout d'abord je suis sous Office 2021, qui n'apparait pas dans le préfixe.
J'aimerais modifier ma macros pour donner le nom de deux cellules à la feuille enregistrer.
Merci de votre aide

JR.31


Sub PDF_SAVE()

Dim LHeure As String, LeDate As String

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

' Création fichier PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\utilisateur\Professionnel\SYNTHESES ECOLES\EVALUATION PDF\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

Bonjour,
Dans cet exemple le nom de la feuille se trouve dans la feuille active en A1 et B1
Suppression de LHeure

Sub PDF_SAVE()

    Dim LeDate As String

    LaDate = Format(Now, "dd" & "." & "mm" & "." & "yyyy" & " " & "hhmmss")
    ActiveSheet.Name = [a1] & [b1]
    ' si ce n'est pas dans la feuille active, préciser le nom de la feuille
    'ActiveSheet.Name = Sheets("LeNomDeLaFeuille").[a1] & Sheets("LeNomDeLaFeuille").[b1]

    ' Création fichier PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "C:\Users\utilisateur\Professionnel\SYNTHESES ECOLES\EVALUATION PDF\Création du fichier le " & LaDate

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

End Sub