Renommer un fichier pdf creer avec le nom de l'onglet actif

Bonjour,

J'ai un soucis je cherche à partir d'une feuille excel d'extraire un fichier en PDF et surtout le renommer avec le nom de l'onglet actif, la date et l'heure.

J'arrive bien a creer mon Pdf le mettre où je veux mais je n'arrive pas à lui donner le lom de l'onglet actif. Cela doit pourtant être super simple mais je patauge..... Je commence juste à programmer en VBA et suis autodidacte.

Pourriez vous m'aider ? Mes lignes de code sont en dessous

Merci par avance

Sub PDF_ImpressionGene()

Dim LHeure As String, LaDate As String, Chemin As String, selectedCsV As String

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

' Création fichier PDF

selectedCsV = ThisWorkbook.Sheets("BASE").Range("M10").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
selectedCsV & "\le" & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=5, OpenAfterPublish:=True

' Message de confirmation

MsgBox ("L'impression du classement " & Range("J1") & " PDF a été effectué" & vbCrLf & vbCrLf)

End Sub

Bonjour EFO,

Merci de mettre les codes entre balises SVP
Vous avez le bouton suivant pour faire ça

Sinon voici le code avec sa décomposition , plus compréhensible je pense

Sub PDF_ImpressionGene()
  Dim LHeure As String, LaDate As String, Chemin As String, NomFicPDF As String
  LHeure = Format(Time, "HMS")
  LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
  Chemin = ThisWorkbook.Path & "\"
  ' Création fichier PDF
  NomFicPDF = ActiveSheet.Name & Sheets("BASE").Range("M10").Value & " le" & LaDate & " " & LHeure & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Chemin & NomFicPDF, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=5, OpenAfterPublish:=True
  ' Message de confirmation
  MsgBox ("L'impression du classement " & Range("J1") & " PDF a été effectué" & vbCrLf & vbCrLf)
End Sub

A+

Merci beaucoup je regarde en rentrant a la maison ce soir

Bonsoir alors j'ai essayé mais cela ne marche pas Excel met erreur

Bonjours,

Il va falloir plus de détail

Sur quelle ligne ça bug (surlignée en jaune)

Si vous mettez un point d'arrêt (F9) sur la ligne ActiveSheet.ExportFixedFormat
Lorsque la macro va s'arrêter sur ce point, dans la fenêtre d'exécution "CTRL+G"

Saisissez : Debug.print NomFicPDF + Entrée

Et donnez nous le contenu de la variable

Nota : comme il est indiqué dans la charte, avec le partage de votre fichier ce serait nettement mieux

A+

Bonsoir,

Apparemment j'ai trouvé en faisant ça

Sub PDF_ImpressionGene()

Dim LHeure As String, LaDate As String, Chemin As String, NomFicPDF As String

LHeure = Format(Time, "HMS")

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

Chemin = ThisWorkbook.Path & "\"

' Création fichier PDF

NomFicPDF = ActiveSheet.Name & " " & Range("J1") & " le " & LaDate & " " & LHeure & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=Chemin & NomFicPDF, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

From:=1, To:=5, OpenAfterPublish:=True

' Message de confirmation

MsgBox ("L'impression du classement " & " " & ActiveSheet.Name & " " & Range("J1") & " PDF a été effectué" & vbCrLf & vbCrLf)

End Sub

Toutes mes excuses pour le non respect de la charte et des regles habituelles. Ce n'est pas de la mauvaise volonté mais plus un manque d'habitude.Une autre question j'ai lu que l'on pouvez aussi se servir du code de l'onglet pour eviter les erreus si le nom de l'onglet changeait. Connaissez vous cela ? Cordialement