Ouvrir un fichier du bloc note

Public Sub Ouverture_Fichier()
        Dim strLine                                As String
        Const TonFichier                        As String = 'C:\1txt'
        Const TonNouveauFichier        As String = 'C:\3txt'
        Open TonFichier For Input As #1                    '    Ouverture de ton fichier
        Open TonNouveauFichier For Output As #2    '    Création du nouveau fichier
                Do
                '    Gestion d'erreur pour savoir si on est arrivé à la fin du Fichier
                        On Error Resume Next
                        If Err Then
                                Err.Clear
                                On Error GoTo 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

Cliquez pour agrandir...