Rapport de message :*
 

Re: Extraction partielle dans 2 cellules

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,