Incrémentation d'un PDF à l'enregistrement

Bonjour,

Aves l'aide de la communauté j'ai créé une petite application de gestion de carburant pour un parc automobile. Le bouton "choisir date" permet de sélectionner une période qui vient s'afficher dans le tableau au centre de la feuille. Le bouton "Créer l'état en PDF" me permet d'enregistrer cet état et d'facer la plage. Tel que mon code est fait l'état que je créé est recopié sur un état déjà

42test.xlsm (141.11 Ko)

enregistré. Il faudrait que j'incrémente le nom etat1,etat2..... de façon à sauvegarder tous les états que je veux créer. Là je ne sais pas comment faire. Voici le code de la macro:

Sub CreerEtatPDF()
'
' CreerEtatPDF Macro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Yves\OneDrive\Documents\Excel\Etat.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
Selection.ClearContents
Range("J1,L1").Select
Selection.ClearContents
[A:A].SpecialCells(xlCellTypeBlanks)(1).Select
ActiveWorkbook.Save

End Sub

Bonjour

A tester

Sub testEnregistre()
  Dim wb As Workbook
  Dim num%
  Dim nom$, nomEnr$
  Dim chemin$

  Set wb = ThisWorkbook
  nom = Left(wb.Name, Len(wb.Name) - 5)
  chemin = wb.Path
  num = 1
  Do While Dir(nomEnr) <> ""
    nomEnr = chemin & "\" & nom & num & ".xlsm"
    If Dir(nomEnr) <> "" Then num = num + 1 Else wb.SaveAs (nomEnr): Exit Do
  Loop

End Sub

Cordialement

Merci Yal_excel mais j'ai réussi à régler ma difficulté en créant un compteur sur ma feuille de travail incrémenté par la macro. Je vais récupérer le nom incrémenté du fichier sous forme de variable que je place à la fin du chemin de sauvegarde.

Sub CreerEtatPDF()

' CreerEtatPDF Macro ', OpenAfterPublish:=False
'
Dim Nom As String
Nom = Range("H2").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Yves\OneDrive\Documents\Excel\" & Nom, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Selection.ClearContents
Range("J1,L1").Select
Selection.ClearContents
[A:A].SpecialCells(xlCellTypeBlanks)(1).Select
ActiveWorkbook.Save


Selection.ClearContents
Range("J1,L1").Select
Selection.ClearContents
Range("S2") = Range("S2") + 1
[A:A].SpecialCells(xlCellTypeBlanks)(1).Select
ActiveWorkbook.Save
End Sub

Rechercher des sujets similaires à "incrementation pdf enregistrement"