Sub No_Demande_Client()
Dim Resultat As String
Dim appIE As Object 'InternetExplorer
Dim HTMLDoc As Object 'HTMLDocument
Dim oHTML_Element As Object 'IHTMLElement
Dim winShell As Object 'New ShellWindows
Set appIE = CreateObject("InternetExplorer.Application")
Set winShell = CreateObject("Shell.Application").Windows
' Recherche la bonne page
'
For Each appIE In winShell
If InStr(appIE.LocationURL, "TaskSummary") <> 0 Then
appIE.Silent = True
appIE.Visible = True
Set HTMLDoc = appIE.document
Resultat = HTMLDoc.documentElement.innerHTML
Exit For
End If
Next appIE
' Pour le numéro de la demande
'
AA = Mid(Resultat, InStr(Resultat, "bigLabel") + 9)
AA = Left(AA, 7)
ActiveSheet.Cells(2, 5).Value = AA
' Pour le numéro du client
'
BB = Mid(Resultat, InStr(Resultat, "field") + 6)
BB = Left(BB, 9)
ActiveSheet.Cells(2, 15).Value = BB
End Sub