Incrémenter mes numéro de facture

bonjour ,

je débute dans vba. et j'ai besoin de votre aide

en cellule d8 j'ai le numéro de facture "2017.12.1"

le but étant que le 1 se transforme en 2 quand je clique sur mon bouton puis en 3 puis en 4 etc ...

voici mon écriture vba

i =i + 1

range("d8").value = concatenate(Year(TODAY())&"".""&(MONTH(TODAY())&"".""& " & i & ")"

a la première lecture il ne connaît pas "i" et donc ne s'incremente pas.

pouvez vous m'aidez ?? merci

Bonjour et bienvenue sur le forum

Il te faudrait plutôt quelque chose comme ça :

Range("D8") = Left(Range("D8"), 8) & Val(Split(Range("D8"), ".")(2)) + 1

Bye !

Merci Gmb

J'avais presque trouvé la formule

en pièce jointe la formule de Gmb

crdlt,

André

un grand merci à vous deux !!

si je peux abuser....

je souhaiterai maintenant que mon fichier s'enregistre avec le numéro de facture indique ?

merci pour votre aide

Bonjour et bon noël à toutes et tous

enregistre en fichier. xlsm le contenu de la cellule D8

ci-joint

crdlt,

André

encore un grand merci 👌👌

Bonsoir a tous ,

Je reviens vers vous . J'ai un problème avec l'enregistrement de mes factures . Il met un message d'erreur que je comprend pas . Cela fonctionnais avant pourquoi ??

Message en jaune dans le fichier c'est la ou il beug .

Merci pour votre aide

Bonjour,

Edit : l'image est trop petite

crdlt,

André

Bonjour et maintenant dans un fichier Word c'est mieux ?

Merci beaucoup

Bonjour à tous

Adapte et intègre ce code et fais un essai :

Sub ess()
   ActiveSheet.Copy
   chemin = "C:\Users\gmb\Desktop\"
   ActiveWorkbook.SaveAs chemin & "Nx fich"
   ActiveWorkbook.Close
End Sub

Bye !

Bonjour,

Merci pour votre retour .

Cela fonctionne mais comme je lui demande de me mettre a la place de "nx fichier" , range "d7" & range "d8" & range "e9" . (Cela donne facture n°xx xx Mr ××)

Quand il l'enregistre il ne le met pas sous format excel pourquoi?

Merci

J'ai trouvé 😄