Discussion :

[SpaceX]

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 ?

[pijaku]

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)

[SpaceX]

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.

[Menhir]

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

[pijaku]

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

[SpaceX]

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

[patricktoulon]

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

[SpaceX]

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 ?

[Menhir]

Avez vous des idées svp ?

Je t'ai déjà indiqué comment faire.

[SpaceX]

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é ?)