Bonjour,
J'aimerais ajouter une ligne à la fin d'un fichier .txt sans supprimer les informations que peut comporter le fichier.
Voici le code que j'ai testé mais qui ne me donne pas le résultat que je souhaite :
En effet, quand j'ouvre mon fichier .txt, toutes les informations qui était dans ce fichier on été écrasé et il ne me reste que la ligne que j'ai ajouté. Pourriez-vous me dire s'il existe un moyen d'arriver à mes fins ?
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
16
17
18
19
20
21 Private Sub Button_OK_Click() Dim NumFichier As Integer NumFichier = FreeFile Open "C:\Chemin_vers_txt_file\Correspondance_IP.txt" For Output As #NumFichier If Ajout_ADR_IP.Controls("Domaine").Text <> "" Then If InStr(Ajout_ADR_IP.Controls("Domaine").Text, " ") = 0 Then Print #NumFichier, Ajout_ADR_IP.Controls("Adresse").Value & " " & Ajout_ADR_IP.Controls("Domaine").Text Ajout_ADR_IP.Hide Else: MsgBox "Veuillez saisir un nom de domaine sans ""ESPACE"". Si il doit y avoir un ""ESPACE"", utilisez à la place ceci ""_"".", vbCritical, "Erreur de saisie" End If Else: MsgBox "Veuillez renseigner le domaine. Si vous ne le connaissez pas, saisir ""INCONNU"" .", vbExclamation, "Attention" End If Close #NumFichier End Sub
Sticks_678
Partager