Discussion :

[sticks_678]

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 :

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

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 ?

Sticks_678

[Marc-L]

Bonjour, bonjour !

Oui, rien qu'en lisant l'aide VBA interne concernant l'ouverture d'un fichier texte via Open ‼

Il suffit d'utiliser Append à la place de Output …

Voilà, voilà !

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[sticks_678]

Je te remercie pour ta réponse.

Peux-tu me dire comment on accède à cette aide stp ?
Ta solution fonctionne mais il me reste à chercher comment le mettre à la ligne et pas l'ajouter à la suite de ma dernière ligne.

[Marc-L]

Accès à l'aide : soit via la touche avec le curseur texte sur une instruction

     soit via le cadre en haut à droite du VBE dédié à la recherche dans l'aide …

S'il manque un passage à la ligne à la fin du fichier avant de le modifier
il suffit alors de commencer par écrire la constante de fin de ligne (par exemple vbCrLf sous Windows)
ou encore logiquement d'utiliser un Print # à vide …

[sticks_678]

Je te remercie pour ta réponse, j'étais en train de poster ma réponse sur le fait que j'avais trouvé pour le retour à la ligne.

Merci encore pour ton aide.