Incrementation à partir d'un fichier txt

[nak]

Bonjour,

Je cherche à incrémenter un numéro présent dans un fichier txt, numéro de départ 0001. Ensuite je veux l'afficher dans une TextBox.
Problème le code refuse de s'afficher dans la TextBox...

Voici le code qui s'exécute à l'ouverture de mon USF :

Sub numero()

'déclaration variable
Dim numserie As Variant

'ouverture du fichier texte
Open ThisWorkbook.Path & "\numeroserie.txt" For Input As 1

'lecture du fichier texte
Line Input #1, numserie

'écriture de la valeur dans la TextBox1
TextBox1.Text = numserie

'enregistrement du numéro + 1 dans le fichier txt
Print #1, numserie + 1

'fermeture du fichier texte
Close #1

End Sub

Avez vous une solution à me proposer SVP

Merci

 

[Banzai64]

Re : Incrementation à partir d'un fichier txt

Bonsoir

Pas de problème pour l'affichage
par contre pour l'écriture de la nouvelle valeur oui

Essayes

Sub numero()

'déclaration variable
Dim numserie As Variant

'ouverture du fichier texte
Open ThisWorkbook.Path & "\numeroserie.txt" For Input As 1

'lecture du fichier texte
Line Input #1, numserie
Close #1


'écriture de la valeur dans la TextBox1
TextBox1.Text = numserie

Open ThisWorkbook.Path & "\numeroserie.txt" For Output As 1
'enregistrement du numéro + 1 dans le fichier txt
Print #1, numserie + 1

'fermeture du fichier texte
Close #1

End Sub

Il y a peut-être une autre méthode pour l'ouverture en lecture/écriture en même temps

 

[nak]

Re : Incrementation à partir d'un fichier txt

Bonsoir

Merci pour la solution, malheureusement ça bloc toujours sur TextBox1.Text = numserie

Je me demande vraiment pourquoi ?

Merci

 

[Banzai64]

Re : Incrementation à partir d'un fichier txt

Bonsoir

Envoies ton fichier "anonymisé"

a suivre

 

[Banzai64]

Re : Incrementation à partir d'un fichier txt

Bonsoir

Regardes si c'est ce que tu veux

 

[nak]

Re : Incrementation à partir d'un fichier txt

Bonsoir,

C'est exactement ça sauf que j'aimerais que cela soit sur 4 digits (0001,0002,...)

en tout cas merci beaucoup

 

[Banzai64]

Re : Incrementation à partir d'un fichier txt

Bonsoir

Modifies cette partie

TextBox1.Text = Format(numserie, "0000")

 

[nak]

Re : Incrementation à partir d'un fichier txt

C'est parfait !
Moi j'essayai de rajouter le format sur la ligne Print... 🙂
Merci encore
Bonne soirée