Bonjour
max.ferret@laposte.net
Il existe différents moyens de copier des données dans un autre fichier. Entre autre dans ton cas je verrais spécialement une commande qui ouvre en mémoire le fichier, pour y insérer les nouvelles données.
Voici un exemple du mieux de ma comprhension de ta demande:
Citation:
PublicSub Ouverture_Fichier()
Dim strLine As String
Const TonFichier As String = 'C:\1txt'
Const TonNouveauFichier As String = 'C:\3txt'
Open TonFichier ForInputAs #1 ' Ouverture de ton fichier
Open TonNouveauFichier ForOutputAs #2 ' Création du nouveau fichier
Do
' Gestion d'erreur pour savoir si on est arrivé à la fin du Fichier
On ErrorResumeNext
If Err Then
Err.Clear
On ErrorGoTo 0
Exit Do
Else
Line Input #1, strLine ' Récupère ligne par ligne du fichier
Print #2, strLine ' Insère Ligne par ligne dans le nouveau fichier
End If
Loop
Close #1
' Va chercher tes nouvelles données ici
' Insère chaque nouvelle ligne dans le fichier
' Je ne sais pas ou elles sont tes nouvelles données, besoin de plus de précision
Print #2, strLine
Close #2
End Sub
|