[VBA] Augmenter la valeur d'un nombre

Bonjour à vous,

J'ai une cellule qui me donne un numéro de facture avec la formule suivante:

=ANNEE(AUJOURDHUI())&"-"&MOIS(AUJOURDHUI())&"-"&1

De l'autre côté, j'ai une macro qui me permet d'enregistrer en PDF.

J'ai récupéré ce VBA sur internet et je l'ai adapté.

Je voudrais juste savoir, si une fois que j'ai enregistré en PDF, il était possible de rajouter le fait que la cellule contenant le numéro de facture augmente de 1.

Merci à vous :)

Sub Enregister_PDF()
'
' Enregister_PDF Macro
'
' Touche de raccourci du clavier: Ctrl+p
'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\PH\Documents\Auto-Entreprise\Factures\" & Range("D2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Bonsoir Truncks

Jamais de la vie on procède comme ça pour un numéro de facture, pas directement dans la formule

Au pire on fait référence à une cellule qui elle contient le numéro

Bonne soirée

Merci beaucoup pour le réponse :)

Sachant que je suis débutant, comment pourrais-je m'y prendre autrement pour une fois que j'ai enregistrer mon PDF, mon numéro de facture augmente de 1 ?

Re,

Je vous l'ai indiqué dans mon message

Utilisez une cellule spécialement dédiée à ça

En Z1 par exemple, vous mettez le chiffre 1 que vous incrémenterez

Et votre formule devient alors

=ANNEE(AUJOURDHUI())&"-"&MOIS(AUJOURDHUI())&"-"& TEXTE(Z1;"000")

Ensuite

Sub Enregister_PDF()
  Dim sPath As String, sNomFic As String
  ' Chemin d'enregistrement
  sPath = "D:\PH\Documents\Auto-Entreprise\Factures\"
  ' Touche de raccourci du clavier: Ctrl+p
  '
  With ActiveSheet
    ' Nom du fichier dans une variable (toujours mieux si changmeent)
    sNomFic = Range("D2").Value & ".pdf"
    ' Export la feuille en PDF
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sNomFic, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    ' Incrémenter le numéro de facture
    .Range("Z1").Value = .Range("Z1").Value + 1
  End With
End Sub

A+

bonjour,

augmenter la cellule de ce numéro

Sub Enregister_PDF()
     '
     ' Enregister_PDF Macro
     '
     ' Touche de raccourci du clavier: Ctrl+p
     '
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\PH\Documents\Auto-Entreprise\Factures\" & Range("D4").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
                                                                                                                                                                      :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

     Range("D4").Value = Range("D4").Value + 1     'augmenter le numéro
     Range("B7:B11,B13:D23").ClearContents     'vider la facture
End Sub

Bonjour BsAlv

Pour info, ta réponse ne correspond pas à la demande de Truncks qui est

J'ai une cellule qui me donne un numéro de facture avec la formule suivante:

=ANNEE(AUJOURDHUI())&"-"&MOIS(AUJOURDHUI())&"-"&1

Salutations

Merci pour vos supers réponses :)

J'aurais une dernière question, si jamais sur cette ligne:

.Range("Z1").Value = .Range("Z1").Value + 1

Quel serait le VBA pour faire ça ?

Merci encore :)

Bonjour Truncks

C'est la base de la programmation objet

Sheets("NomFeuille").Range("Z1").Value = Sheets("NomFeuille").Range("Z1").Value + 1

Ou

With Sheets("NomFeuille")
  .Range("Z1").Value = .Range("Z1").Value + 1
End With

A+

Merci pour tous vos renseignements :)

Bonjour,