Bonsoir Yves et Zon,
Pourquoi ne pas faire un petit traitement de fichier en VBA ?
La macro "EpureTexte" pourrait ressembler à ceci :
Sub EpureTexte()
Dim Taille As Long, MonTexte As String, Chemin As String
Dim Ligne As String, I As Integer
Chemin = Application.ThisWorkbook.Path
'Ouverture du fichier à traiter :
Open Chemin & "\TexteTab.txt" For Binary As #1
Taille = LOF(1)
MonTexte = String(Taille, 0)
'Lecture du fichier dont le contenu est placé dans une variable :
Get #1, 1, MonTexte
Close
'Suppression des caractères indésirables (ici tabulations) :
MonTexte = Replace(MonTexte, Chr(9), "")
'Ouverture d'un nouveau fichier pour enregistrer les
'modifications effectuées par la fonction Replace :
Open Chemin & "\TexteSansTab.txt" For Binary As #1
Put #1, 1, MonTexte
Close
'Vérification pour rire :
'Ancien Fichier
Open Chemin & "\TexteTab.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Ligne
I = I + 1
Range("EpureTexte!A" & CStr(I)) = Ligne
Loop
Close
'Nouveau Fichier
I = I + 2
Open Chemin & "\TexteSansTab.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Ligne
I = I + 1
Range("EpureTexte!A" & CStr(I)) = Ligne
Loop
Close
End Sub
Est-ce que ça te rapproche d'une solution ?
A+
LN