Discussion :

[gobgobnob]

Bonjour à tous,

Je possède un fichier texte rempli de données venant d'un classeur excel. Cependant des colonnes ont été rajoutées au classeur, et je dois les ajouter au fichier. Je cherche donc un code qui me permettra d'ajouter à chaque fin de ligne (qui contient une tabulation entre chaque colonne recopiée) ,les nouvelles données.

L'idée du code serait donc de parcourir chaque ligne du fichier jusqu'à la fin de la ligne pour y ajouter la donnée du tableur.
N'ayant que très peu de connaissances en vba, je m'en remets à votre aide.
Merci d'avance pour toute aide que ce soit,
gobgobnob

J'ajoute le "code" que j'ai déjà écrit jusqu'à présent. Je précise que la première ligne du fichier est une ligne ne contenant pas de données à exploiter (titre des colonnes du classeur), d'où le i = 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function ActualierFichierAvecBase(ByVal FichierAOuvrir As Fichier, ByVal Colonne As String)
 
    Dim i As Integer
 
    i = 2 'Parcours d la liste à partir de la deuxième ligne
    Fichier = FreeFile 
    Open FichierAOuvrir For Output As #Fichier
        Do While EOF(Fichier) ' Tant que toutes les lignes n'ont pas été parcourues
                   'On se positionne sur la ligne i
                   'On va jusqu'au bout de la ligne grâce au séparateur vbtab
                   'On ajoute une tabulation ainsi que le contenu de la cellule "Colonne:i"
                i = i + 1
        Loop
 
End Function

[Invité]

Bonjour,

Il me semble plus simple de réenregistrer sous .TXT, quitte à écraser le fichier actuel pour ne pas créer de doublon.
Il est bien sûr très simple de créer une procédure ou une fonction qui se chargerait de ce travail.

Cordialement.
Jean-Claude.

[gobgobnob]

Bonjour,

Je pense également que c'est la meilleure solution à appliquer, plus rapide et plus simple.
Merci de m'avoir conseillé