VBA incrémentation numérotation automatique à partir d'un fichier txt

[ALPIJO]

Bonsoir,

J'ai créé un fichier Excel pour faire des bons de commandes et je voulais utiliser vba pour que lorsque j'ouvre le fichier Excel cela aille me chercher le dernier numéro de commande enregistrer dans le fichier txt et que cela me rajoute +1
Exemple : Fichier txt = 0 donc à l'ouverture du fichier Excel je voudrais 1

De plus, je voudrais que lorsque j'appuie sur le bouton archiver que cela m'enregistrer le numéro de bon actualisé dans le fichier txt comme sa lorsque je passerais une commande plus tard et que j'ouvrirais le fichier Excel il ira me chercher
Exemple : J'ai archiver mon bon de commande 1 qui faudra qu'il s'enregistre dans le fichier txt et je souhaite passer une commande le lendemain et je voudrais que le numéro sur le fichier Excel soit maintenant de 2

J'ai des notions de bases et j'ai tenté un code qui ne marche pas

Pouvez-vous m'aider? Je vous en remercie

 

[youky(BJ)]

Bonjour,
Dans ces macros il faut avant créer un fichier txt nommé Compteur dans le même dossier .
La macro Voir va lire et augmente +1 ce N° sert pour la commande
La macro ecrit écrit ce N°
Pas regardé tes fichiers
Bruno

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