1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Dim NAMEQ1 As String
Dim NAMEQ2 As String
Dim cible As String
Dim z As Integer
Dim FileName As String
Dim J As Long
For i = 1 To 5
If GetVar(App.Path & "\Marchandises.txt", "POISSONERIE", i, cible) = vbNullString Then
z = FreeFile
FileName = (App.Path & "\Marchandises2.txt")
Open FileName For Output As #z
Print #z, "" 'créer le deuxieme fichier temporaire
Close #z
End If
Next i
For J = 1 To 5
NAMEQ1 = Trim$(GetVar(App.Path & "\Marchandises.txt", "POISSONERIE", J))
Call PutVar(App.Path & "\Marchandises2.txt", "POISSONERIE", J, NAMEQ1) 'je créer un nouveau fichier dans lequel je copie le nouveau classement
NAMEQ2 = Trim$(GetVar(App.Path & "\Marchandises2.txt", "POISSONERIE", J))
Call PutVar(App.Path & "\Marchandises.txt", "POISSONERIE", J, NAMEQ2) 'je copie dans mon fichier initiale le nouveau classement
Call Kill(App.Path & "\Marchandises2.txt") 'je supprime le nouveau fichier créée
Next J |
Partager