Remplacer du Texte dans un Fichier Texte avec VBA pour Excel

Utiliser des macros VBA permet de simplifier le traitement des fichiers texte, surtout lorsqu’il s’agit de remplacer des séparateurs ou d’effectuer des modifications avant l’importation de données dans Excel. Cette macro VBA offre une solution efficace pour automatiser ce processus et réaliser des gains de temps significatifs.

Pourquoi utiliser une macro VBA pour remplacer du texte dans un fichier texte ?

Automatiser le remplacement de texte dans des fichiers texte peut être utile dans de nombreuses situations. Voici quelques exemples concrets :

• Parfois, les fichiers texte utilisent des séparateurs spécifiques, comme les barres verticales (|), qui ne sont pas compatibles avec Excel. En les remplaçant par des points-virgules (;), vous facilitez l’importation des données dans une feuille de calcul.
• Utiliser VBA pour remplacer des éléments non souhaités vous permet de préparer des données pour d’autres logiciels, comme Excel, sans avoir à le faire manuellement.

Code VBA pour Remplacer du Texte dans un Fichier Texte

Le code suivant est conçu pour remplacer du texte spécifique dans un fichier texte. Vous pouvez le copier et le personnaliser selon vos besoins.

Sub ReplaceTextInFile(SourceFile As String, sText As String, rText As String)
Dim TargetFile As String, tLine As String
Dim F1 As Integer, F2 As Integer

TargetFile = « RESULT.TMP »

‘ Vérifie si le fichier source existe
If Dir(SourceFile) = «  » Then Exit Sub

‘ Crée un fichier temporaire
F1 = FreeFile
Open SourceFile For Input As F1
F2 = FreeFile
Open TargetFile For Output As F2

‘ Parcours chaque ligne pour remplacer le texte
While Not EOF(F1)
Line Input #F1, tLine
If sText <> «  » Then
tLine = Replace(tLine, sText, rText)
End If
Print #F2, tLine
Wend

Close F1
Close F2
Kill SourceFile ‘ Supprime l’original
Name TargetFile As SourceFile ‘ Renomme le fichier temporaire en fichier original
End Sub

Explication du Code

Exécuter la Macro : Étapes Pratiques

1. Copiez le code dans un module VBA de votre classeur Excel.
2. Exécutez la macro en utilisant Sub TestReplaceTextInFile() en spécifiant le texte à remplacer et celui de remplacement.
3. Une fois l’opération terminée, ouvrez le fichier d’origine pour confirmer que les modifications ont bien été effectuées.

Exemple:

Sub TestReplaceTextInFile()
ReplaceTextInFile "C:\chemin\fichier.txt", "|", ";"
End Sub

Dans cet exemple, tous les caractères | dans le fichier spécifié seront remplacés par des points-virgules ;.

Conclusion

Grâce à ce code VBA, vous pouvez facilement automatiser la modification de texte dans vos fichiers. Cette méthode est particulièrement utile pour préparer des fichiers texte avant de les importer dans Excel ou pour exporter des données Excel vers des fichiers texte. Mettez en place cette macro dans votre flux de travail pour gagner du temps.