1. #1
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi - Autonome
    Inscrit en
    mars 2018
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Sans emploi - Autonome

    Informations forums :
    Inscription : mars 2018
    Messages : 81
    Points : 33
    Points
    33

    Par défaut Remplacer un mot dans un fichier texte à l'aide d'un textbox

    Bonjour,

    J'ai un fichier texte avec ce genre de contenu :

    JP026A1
    JP026B1
    JP026C1
    JP026D1
    JP026E1
    JP026F1

    Je souhaiterai une macro qui puisse remplacer tout les chiffres "026" par le contenu taper dans un textbox que j'ai crée dans mon userfom.

    J'aimerai savoir quel est la meilleur méthode pour effectuer cela svp ?

  2. #2
    Membre chevronné
    Homme Profil pro
    Inscrit en
    août 2010
    Messages
    1 213
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : août 2010
    Messages : 1 213
    Points : 2 234
    Points
    2 234

    Par défaut

    Bonjour,

    2 petites questions anodines :
    1. Qu'elle est la taille du fichier texte (en Ko) à traiter?
    2. La chaîne à remplacer doit elle l'être systématiquement? (ex : J1026V026 ==> remplacer les deux fois 026)
    Cordialement,
    Franck P.


    Ps : n'oubliez pas de placer vos posts comme "résolus" () si tel est le cas...

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi - Autonome
    Inscrit en
    mars 2018
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Sans emploi - Autonome

    Informations forums :
    Inscription : mars 2018
    Messages : 81
    Points : 33
    Points
    33

    Par défaut

    Citation Envoyé par pijaku Voir le message
    Bonjour,

    2 petites questions anodines :
    1. Qu'elle est la taille du fichier texte (en Ko) à traiter?
    2. La chaîne à remplacer doit elle l'être systématiquement? (ex : J1026V026 ==> remplacer les deux fois 026)

    Salut,

    • Le fichier fait 50 Ko
    • Le "026" apparait systématiquement à chaque ligne mais qu'une seule fois.


    D'habitude j'ouvre le fichier et je fais CTRL+F , remplacer "026" par "028" mais j'aimerai que ce soit une macro VBA qui le réalise.

    Quand je parle de méthode dans mon premier message, c'est grosso modo :

    Dois-je utiliser un file dialog qui ouvre le fichier et qui le passe en revu en mode read ? ou alors ce n'est pas nécessaire ?

    Merci.

  4. #4
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    juin 2007
    Messages
    9 751
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur

    Informations forums :
    Inscription : juin 2007
    Messages : 9 751
    Points : 18 235
    Points
    18 235

    Par défaut

    Citation Envoyé par SpaceX Voir le message
    Je souhaiterai une macro qui puisse remplacer tout les chiffres "026" par le contenu taper dans un textbox que j'ai crée dans mon userfom.
    J'aimerai savoir quel est la meilleur méthode pour effectuer cela svp ?
    Déjà, il n'est pas judicieux de faire un userform complexe à gérer quand un simple InputBox peut suffire.
    https://msdn.microsoft.com/fr-fr/VBA...utbox-function

    Pour le reste, le plus simple est d'ouvrir ton fichier texte avec un simple Workbooks.OpenText.
    https://msdn.microsoft.com/fr-fr/vba...t-method-excel
    De faire une boucle pour scruter chaque ligne.
    http://silkyroad.developpez.com/vba/boucles/
    De modifier les valeurs avec une fonction Replace().
    https://msdn.microsoft.com/fr-fr/VBA...place-function
    et de sauvegarder le tout au format xlTextWindows.
    https://msdn.microsoft.com/fr-fr/vba...s-method-excel
    https://msdn.microsoft.com/fr-fr/vba...meration-excel
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  5. #5
    Membre chevronné
    Homme Profil pro
    Inscrit en
    août 2010
    Messages
    1 213
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : août 2010
    Messages : 1 213
    Points : 2 234
    Points
    2 234

    Par défaut

    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
    Sub Demo()
       Remplace "C:\Dossier\", "fichier.txt", "026"
    End Sub
     
    Sub Remplace(StrPath As String, StrName As String, StrText As String)
    Dim Nb As Integer, s As String
       Nb = FreeFile
          Open StrPath & StrName For Input As #Nb
             s = Input(LOF(Nb), #Nb)
          Close #Nb
       s = Replace(s, StrText, "")
       Nb = FreeFile
          Open StrPath & StrName For Output As #Nb
             Print #Nb, s
          Close #Nb
    End Sub
    Cordialement,
    Franck P.


    Ps : n'oubliez pas de placer vos posts comme "résolus" () si tel est le cas...

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi - Autonome
    Inscrit en
    mars 2018
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Sans emploi - Autonome

    Informations forums :
    Inscription : mars 2018
    Messages : 81
    Points : 33
    Points
    33

    Par défaut

    Citation Envoyé par pijaku Voir le message
    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
    Sub Demo()
       Remplace "C:\Dossier\", "fichier.txt", "026"
    End Sub
     
    Sub Remplace(StrPath As String, StrName As String, StrText As String)
    Dim Nb As Integer, s As String
       Nb = FreeFile
          Open StrPath & StrName For Input As #Nb
             s = Input(LOF(Nb), #Nb)
          Close #Nb
       s = Replace(s, StrText, "")
       Nb = FreeFile
          Open StrPath & StrName For Output As #Nb
             Print #Nb, s
          Close #Nb
    End Sub
    Merci du code, je vais surement m'appuyer dessus pour remplacer le 026 mais finalement je préfère utiliser la méthode file dialog. Je n'aime pas trop indiquer le chemin de fichier car il peut y avoir des erreurs liés au chemin d'accès.

    Merci

  7. #7
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi - Autonome
    Inscrit en
    mars 2018
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Sans emploi - Autonome

    Informations forums :
    Inscription : mars 2018
    Messages : 81
    Points : 33
    Points
    33

    Par défaut

    Citation Envoyé par Menhir Voir le message
    Pour le reste, le plus simple est d'ouvrir ton fichier texte avec un simple Workbooks.OpenText.
    https://msdn.microsoft.com/fr-fr/vba...t-method-excel
    De faire une boucle pour scruter chaque ligne.
    http://silkyroad.developpez.com/vba/boucles/
    De modifier les valeurs avec une fonction Replace().
    https://msdn.microsoft.com/fr-fr/VBA...place-function
    et de sauvegarder le tout au format xlTextWindows.
    https://msdn.microsoft.com/fr-fr/vba...s-method-excel
    https://msdn.microsoft.com/fr-fr/vba...meration-excel
    Merci la 2ème option est la méthode que je souhaite faire.

    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
     
     
    Dim NomFich, NomFichPrincipal, TabRep
        NomFichPrincipal = ThisWorkbook.Name 'Le fichier contenant la macro
     
        'Ouverture de la boîte de dialogue
        NomFich = Application.GetOpenFilename _
        (FileFilter:="Fichier texte(*.txt),*.txt", Title:="Sélectionner le fichier")
     
        'Nomfich comporte le chemin, le fichier n'est pas ouvert
        If NomFich = False Then
            MsgBox "Aucun fichier sélectionné."
            Exit Sub
        End If
     
        Workbooks.OpenText FileName:=NomFich, Origin:=xlWindows, _
            StartRow:=1, DataType:=xlDelimited, ConsecutiveDelimiter:=True, Tab:=True, Comma:=True, Space:=True
        DoEvents
    J'ai un doute lorsque j'ouvre mon fichier texte, doit-je l'ouvrir avec des propriétés spécifiques ? (par exemple : délimité ?)

  8. #8
    Membre extrêmement actif
    Avatar de patricktoulon
    Homme Profil pro
    developpeur amateur
    Inscrit en
    avril 2009
    Messages
    12 158
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : developpeur amateur
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2009
    Messages : 12 158
    Points : 19 041
    Points
    19 041
    Billets dans le blog
    1

    Par défaut re

    si tes fichier sont pas trop lourd
    exemple
    boucle sur tout les fichiers de mondossier et remplace 026 par 028 partout dans le texte
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub test()
        Dim x As Integer,x2 as Integer, fichier As String, texte As String, mondossier As String
        mondossier = "C:\Users\polux\Desktop\Nouveau dossier (2)\"
        fichier = Dir(mondossier & "*.txt")
        Do
            'lecture
            x = FreeFile: Open mondossier & fichier For Input As #x: texte = Input$(LOF(x), #x): Close #x
            'ecriture
            x2 = FreeFile: Open mondossier & fichier For Output As #x2: Print #x2, Replace(texte, "026", "028"): Close #x2
            fichier = Dir
        Loop While fichier <> ""
    End Sub
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  9. #9
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi - Autonome
    Inscrit en
    mars 2018
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Sans emploi - Autonome

    Informations forums :
    Inscription : mars 2018
    Messages : 81
    Points : 33
    Points
    33

    Par défaut

    Contenu de mon fichier :

    JP026A1
    JP026B1
    JP026C1
    JP026D1
    JP026E1
    JP026F1

    Bonjour,

    Voici la ligne d'instruction qui permet de remplacer le mot JC par la valeur que je rentre dans un textbox :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
              Cells.Replace What:="JP", Replacement:=txt_num.Value, LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sauf que je ne veux pas ça, j'aimerai qu'il remplace les 3 premiers chiffre après JP par la valeur de mon textbox : txt_num.Value

    Avez vous des idées svp ?

  10. #10
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    juin 2007
    Messages
    9 751
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur

    Informations forums :
    Inscription : juin 2007
    Messages : 9 751
    Points : 18 235
    Points
    18 235

    Par défaut

    Citation Envoyé par SpaceX Voir le message
    Avez vous des idées svp ?
    Je t'ai déjà indiqué comment faire.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

Discussions similaires

  1. Remplacement de caractères ou de mots dans un fichier texte
    Par Jerome Briot dans le forum Téléchargez
    Réponses: 4
    Dernier message: 21/09/2016, 13h03
  2. [Batch] Remplacer un Mot dans un fichier texte
    Par PythonNovices dans le forum Scripts/Batch
    Réponses: 5
    Dernier message: 01/07/2015, 12h07
  3. Remplacer un mot dans un fichier texte
    Par taratatasoleil dans le forum VBScript
    Réponses: 2
    Dernier message: 08/08/2014, 14h56
  4. Remplacer mot dans un fichier text !
    Par Marie.B dans le forum IO
    Réponses: 2
    Dernier message: 25/01/2009, 13h38
  5. Réponses: 10
    Dernier message: 29/04/2006, 10h40

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