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
Partager