bonjour
ci dessous quelques exmples pour utiliser les fichiers texte en ecriture ou en lecture
Ecrire la valeur de la cellule A1 dans une fichier texte ,
*****************************************
par l'instruction Append
Remarques : Les données viennent s'inscrire à la suite des lignes existantes .Si le fichier .Txt n'existe pas , il sera créé automatiquement .
Sub excelVersFichierTexte()
Dim Cible As Integer
Cible = freeFile
Open 'C:\\\\\\\\essai.txt' For Append As #Cible
Print #Cible, Range('A1') 'renvoie valeur cellule A1 dans fichier txt
Close #Cible
End Sub
Ecrire la valeur de la cellule A1 dans une fichier texte ,
******************************************
par l'instruction Output
Remarques : Si le fichier existe , les anciennes données seront écrasées .Si le fichier .Txt n'existe pas , il sera créé automatiquement .
Sub excelVersFichierTexte_V02()
Dim Fichier As String
Fichier = 'C:\\\\\\\\Fichier.Txt'
Open Fichier For Output As #1
Print #1, Range('A1') 'renvoie la valeur cellule A1 dans le fichier txt
Close
End Sub
Lire un fichier Texte : boucler sur toutes les lignes du fichier
**********************************************
Dans l'exemple , un message s'affiche si le début de la ligne commence par 'XLD'
Sub lireFichierTexte()
Dim infosLigne As String
Open 'C:\\\\\\\\fichierTexte.txt' For Input As #1
Do While Not EOF(1)
Line Input #1, infosLigne
If Left(infosLigne, 3) = 'XLD' Then Msgbox infosLigne
Loop
Close #1
End Sub
pour la question que tu as posé : transferer les données d'un fichier texte vers un autre , tu peux tester
Sub transfertDonneesFichierTexte()
Dim Ligne As String
Open 'C:\\\\\\\\fichierSource.txt' For Input As #1
Open 'C:\\\\\\\\fichierDestination.txt' For Append As #2
Do While Not EOF(1)
Line Input #1, Ligne
Print #2, Ligne
Loop
Close #1
Close #2
End Sub
bonne journée
MichelXld