Actualisation fichier txt via excell et vba

faneva

XLDnaute Nouveau
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
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
Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
312 206
Messages
2 086 202
Membres
103 157
dernier inscrit
youma