Titre du sujet : Re: Extraction partielle dans 2 cellules par myDearFriend! le 19/11/2009 22:15:33
Bonsoir Slimbad, Guy,
Je pars sur la même voie que Guy et te propose un traitement direct à partir du fichier .txt (sans avoir à le copier sur Excel !)
DANS UN MODULE DE CODE STANDARD (ex : Module1)
Option Explicit
Sub Traitement()
'myDearFriend! - www.mdf-xlpages.com
Dim Chemin As String, T As String
Dim PosTel As Long, PosCWI As Long, L As Long
'Chemin du fichier txt : A ADAPTER !
Chemin = "C:\TEST.txt"
'On mémorise le contenu
With CreateObject("Scripting.FileSystemObject").OpenTextFile(Chemin, 1)
T = .readall
.Close
End With
'On récupère et liste tous les Tel avec CWI en Feuil2
Do
PosCWI = InStr(1, T, "CWI")
If PosCWI > 0 Then
PosTel = InStrRev(T, ">z ", PosCWI)
If PosTel > 0 Then
L = L + 1
Sheets("Feuil2").Cells(L, 1).Value = Mid(T, PosTel + 3, 12)
End If
T = Mid(T, PosCWI + 4)
End If
Loop Until PosCWI = 0
End Sub
Le nom du fichier, son chemin, ainsi que l'onglet Cible (pour la liste des numéros) sont à adapter.
Cordialement,
|