Incrementation à partir d'un fichier txt

B

Banzai64

XLDnaute Accro

• 28 Février 2011

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

N

nak

XLDnaute Occasionnel

• 28 Février 2011

• #3

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 28 Février 2011

• #4

Re : Incrementation à partir d'un fichier txt

Bonsoir

Envoies ton fichier "anonymisé"

a suivre

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 28 Février 2011

• #5

Re : Incrementation à partir d'un fichier txt

Bonsoir

Regardes si c'est ce que tu veux

 

Pièces jointes

• nak numero de série V001.xls

  39 KB · Affichages: 44

Vote positif 0 Vote négatif

N

nak

XLDnaute Occasionnel

• 28 Février 2011

• #6

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 28 Février 2011

• #7

Re : Incrementation à partir d'un fichier txt

Bonsoir

Modifies cette partie

Code:

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

 

Vote positif 0 Vote négatif

N

nak

XLDnaute Occasionnel

• 1 Mars 2011

• #8

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

 

Vote positif 0 Vote négatif