condors.s
XLDnaute Occasionnel
Bonjour à tous,
Je souhaiterais faire une petite macro pour incrémenter automatiquement un numéro de facture.
A partir de ce que j'ai trouvé sur le web, j'ai compris qu'il fallait créer un fichier txt reprenant le dernier num donné pour pouvoir appliqué le num suivant à la prochaine facture.
J'ai donc un peu modifié les codes trouvés pour aboutir à ceci
Il y a un bug dans la fin de la macro, au niveau du copié/collé du doc txt.
Quelqu'un aurait il un tuyau.
Merci à tous
Je souhaiterais faire une petite macro pour incrémenter automatiquement un numéro de facture.
A partir de ce que j'ai trouvé sur le web, j'ai compris qu'il fallait créer un fichier txt reprenant le dernier num donné pour pouvoir appliqué le num suivant à la prochaine facture.
J'ai donc un peu modifié les codes trouvés pour aboutir à ceci
Code:
Sub CommandButton1_Click()
fichier = ThisWorkbook.Name
Dim nf As String
deb = Right(Year(Now), 2) & Right(Month(Now) + 100, 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "\N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 4) = deb Then
nf = CStr(deb & Right(nf + 1001, 3))
Else
nf = CStr(deb & "001")
End If
Open chemin & "\N°facture.txt" For Output As #canal
Copy #canal
Close #canal
Paste [Facture N°!D5]
End Sub
Il y a un bug dans la fin de la macro, au niveau du copié/collé du doc txt.
Quelqu'un aurait il un tuyau.
Merci à tous