Bonsoir
Merci de m'aider
J'exporte des données excell vers un fichiers text
je voudrais récatualiser le fichier text de la façon suivante:
- actualisation des lignes qui sont identifiés par le 1er champ(exemple 101)
si le 3eme champ change (ici 152), il faut changer tous donnée de la ligne corespondant sinon, on fait rien
cORDIALEMENT
Merci de m'aider
J'exporte des données excell vers un fichiers text
je voudrais récatualiser le fichier text de la façon suivante:
- actualisation des lignes qui sont identifiés par le 1er champ(exemple 101)
si le 3eme champ change (ici 152), il faut changer tous donnée de la ligne corespondant sinon, on fait rien
Code:
coltot = ActiveSheet.UsedRange.Columns.Count
lignetot = ActiveSheet.UsedRange.Rows.Count
tablo = Range(Cells(1, 1), Cells(lignetot, coltot)).value
Nb = FreeFile
Open "c:\fichier.txt" For Append As #Nb
Texte = tablo(n, 1) & ";" & Cells(1, 6).value & ";" & Cells(1, 7).value & ";"
For c = 2 To 5
Texte = Texte & FormatNumber(tablo(n, c), 2) & ";"
Next
Texte = Texte & Cells(1, 8).value & ";"
Print #Nb, Left(Texte, Len(Texte) - 1)
Texte = ""
Close #Nb
End If