Sub Lecture_Pointeur()
Dim Année As String
Année = Year(Date) & ' / '
On Error GoTo GestErreur
Open 'C:\\Factures\\Pointeur.dat' For Input As #1
Input #1, Pointeur
Close #1
Sheets('Facture').Select
Cells(12, 8).Value = Année & CStr(Pointeur)
Exit Sub
GestErreur:
MsgBox 'La variable n'est pas renseignée ou le fichier n'existe pas.', 64, 'informations'
Close #1
End Sub
Sub Ecriture_Pointeur()
'
On Error GoTo GestErreur
Open 'C:\\Factures\\Pointeur.dat' For Output As #1
Print #1, (Pointeur + 1)
Close #1
Call Lecture_Pointeur
Exit Sub
GestErreur:
MsgBox 'Ecriture non effectuée', 64, 'informations'
Close #1
End Sub
Sub Enregistrement_Facture()
'
Dim Nom_Fichier As String
Dim Année As String
Dim Répertoire As String
Année = Year(Date)
If Flag_Ecrit Then
Répertoire = 'C:\\Factures\\' & CStr(Année) & '\\' 'Constitution du chemin avec l'année en cours
Nom_Fichier$ = 'Facture_' & CStr(Pointeur) & '_' & Année$ ' Constitution du nom de fichier
ActiveSheet.SaveAs FileName:=Répertoire & Nom_Fichier$ & '.xls' ' Enregistrement du nom de fichier
Call Ecriture_Pointeur
Call Effacement
Call Efface_Paiement
End If
End Sub