Afficher un message
Vieux 20/09/2005, 02h53   #2 (permalink)
Hellboy
XLDnaute Accro
 
Date d'inscription: mars 2005
Messages: 1 286
Par défaut Re:Ouvrir un fichier du bloc note

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
Hellboy est déconnecté   Réponse avec citation