IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Ecriture dans un fichier .txt contenant déjà des informations en VB [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2016
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2016
    Messages : 54
    Points : 33
    Points
    33
    Par défaut Ecriture dans un fichier .txt contenant déjà des informations en VB
    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

  2. #2
    Expert éminent sénior
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Points : 18 674
    Points
    18 674
    Par défaut
    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, …
    C'est parce que la vitesse de la lumière est plus rapide que celle du son que tant de gens paressent brillants avant d'avoir l'air con ! (Thomas Boishardy)

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2016
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2016
    Messages : 54
    Points : 33
    Points
    33
    Par défaut Ecriture dans un fichier .txt contenant déjà des informations en VB
    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.

  4. #4
    Expert éminent sénior
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Points : 18 674
    Points
    18 674
    Par défaut
    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 …
    C'est parce que la vitesse de la lumière est plus rapide que celle du son que tant de gens paressent brillants avant d'avoir l'air con ! (Thomas Boishardy)

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2016
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2016
    Messages : 54
    Points : 33
    Points
    33
    Par défaut Ecriture dans un fichier .txt contenant déjà des informations en VB
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Ecriture dans un fichier txt
    Par ENSAM-ALAMI dans le forum MATLAB
    Réponses: 4
    Dernier message: 05/05/2008, 16h46
  2. Ecriture dans un fichier .txt
    Par aquarius85 dans le forum MATLAB
    Réponses: 5
    Dernier message: 03/03/2008, 08h28
  3. ecriture dans un fichier txt
    Par warubi dans le forum VB.NET
    Réponses: 3
    Dernier message: 02/06/2007, 11h07
  4. Réponses: 5
    Dernier message: 19/02/2007, 12h02
  5. Réponses: 8
    Dernier message: 07/09/2006, 11h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo