Public Numero As Long
Sub voir()
Chemin = ThisWorkbook.Path & "\Compteur.txt"
'permet de retrouver le 1er numéro libre de désignation d'un fichier
num = FreeFile
'ouvre le fichier en lecture
Open Chemin For Input As #num
Line Input #1, n
[A1] = n + 1 'si besoin mettre sur onglet
Numero = n + 1 'garde en m?moire
Close #num 'fermeture
End Sub
Sub ecrit()
Chemin = ThisWorkbook.Path & "\Compteur.txt"
'permet de retrouver le 1er numéro libre de désignation d'un fichier
num = FreeFile
'Ouvre en écriture et écrase un fichier précèdent du même nom
Open Chemin For Output As #num
'Ecrit dans le fichier texte ligne par ligne
Print #1, Numero
'Fermeture
Close #num
End Sub