Comment terminer une instance IE en VBA

Le
Fredo P.
Bonjour
Tout est dans l' objet, il est fréquent, quand je dois utiliser la procédure
suivante plusieurs fois de suite qu'elle reste coincée entre "Do Until
IE.ReadyState=4 " et "Loop", que le Ctrl Alt Supp soit le dernier recourt
pour sortir de la routine.

Sub CherchecodeSource(B$)
Dim CodeSource As String, IE As Object
Dim TempFile As String, T As Date
On Error Resume Next
EnaF
Sheets("IDCours").Select
[G2] = B
T = Time
[A:A].ClearContents
Set IE = CreateObject("InternetExplorer.Application")
TempFile = "c:Fred.txt"
IE.Visible = False ' Ou True
IE.navigate URL:=B
Do Until IE.ReadyState = 4
DoEvents ' Ne sort pas d'ici
Loop
CodeSource = IE.document.body.innerHTML
Open TempFile For Output As #1
Print #1, CodeSource
Close #1
Open TempFile For Input As #1
Do While Not EOF(1)
Input #1, LaLigne
A = A + 1
Sheets("IDCours").Range("A" & A) = LaLigne
Loop
Close #1
Kill TempFile
IE.Quit
Set IE = Nothing

End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24499841
Bonjour,
IE.Quit nee fait pas l'affaire ?
Daniel


Fredo P. a écrit
Bonjour
Tout est dans l' objet, il est fréquent, quand je dois utiliser la procédure
suivante plusieurs fois de suite qu'elle reste coincée entre "Do Until
IE.ReadyState=4 " et "Loop", que le Ctrl Alt Supp soit le dernier recourt
pour sortir de la routine.

Sub CherchecodeSource(B$)
Dim CodeSource As String, IE As Object
Dim TempFile As String, T As Date
On Error Resume Next
EnaF
Sheets("IDCours").Select
[G2] = B
T = Time
[A:A].ClearContents
Set IE = CreateObject("InternetExplorer.Application")
TempFile = "c:Fred.txt"
IE.Visible = False ' Ou True
IE.navigate URL:=B
Do Until IE.ReadyState = 4
DoEvents ' Ne sort pas d'ici
Loop
CodeSource = IE.document.body.innerHTML
Open TempFile For Output As #1
Print #1, CodeSource
Close #1
Open TempFile For Input As #1
Do While Not EOF(1)
Input #1, LaLigne
A = A + 1
Sheets("IDCours").Range("A" & A) = LaLigne
Loop
Close #1
Kill TempFile
IE.Quit
Set IE = Nothing

End Sub
Fredo P.
Le #24502531
Bonjour
IE.Quit nee fait pas l'affaire ?


Normalement il le devrait, La routine est suivie d'une autre faisant appel à
IE par une seconde voie pour la recherche de données, est ce qu'il n'y
aurait pas la le pb?,
la partie concernée du code de cette seconde routine:
With ActiveSheet.QueryTables.Add(Connection:= _
Adweb _
, Destination:=Range("A1"))
.Name = "pid111-partants.html?race_id€5612"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With

"DanielCo" jpi53n$h49$
Bonjour,
IE.Quit nee fait pas l'affaire ?
Daniel


Fredo P. a écrit
Bonjour
Tout est dans l' objet, il est fréquent, quand je dois utiliser la
procédure suivante plusieurs fois de suite qu'elle reste coincée entre
"Do Until IE.ReadyState=4 " et "Loop", que le Ctrl Alt Supp soit le
dernier recourt pour sortir de la routine.

Sub CherchecodeSource(B$)
Dim CodeSource As String, IE As Object
Dim TempFile As String, T As Date
On Error Resume Next
EnaF
Sheets("IDCours").Select
[G2] = B
T = Time
[A:A].ClearContents
Set IE = CreateObject("InternetExplorer.Application")
TempFile = "c:Fred.txt"
IE.Visible = False ' Ou True
IE.navigate URL:=B
Do Until IE.ReadyState = 4
DoEvents ' Ne sort pas d'ici
Loop
CodeSource = IE.document.body.innerHTML
Open TempFile For Output As #1
Print #1, CodeSource
Close #1
Open TempFile For Input As #1
Do While Not EOF(1)
Input #1, LaLigne
A = A + 1
Sheets("IDCours").Range("A" & A) = LaLigne
Loop
Close #1
Kill TempFile
IE.Quit
Set IE = Nothing

End Sub




MichD
Le #24503461
Bonjour,

Pour supprimer toutes les instances d'un exécutable ouvert, visible ou non, tu peux
appeler cette procédure comme ceci :


Pour supprimer Internet Explorer...
'-------------------------------------
Sub test()
On Error Resume Next
Supprimer_Un_Executable "iexplore.exe"
End Sub
'-------------------------------------

Sub Supprimer_Un_Executable(SonNom As String)
Dim strComputer As String, objWMIService As Object
Dim colProcessList As Object, objProcess As Variant

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & SonNom & "'")
For Each objProcess In colProcessList
objProcess.Terminate
Next
End Sub
'-------------------------------------




"Fredo P." a écrit dans le message de groupe de discussion :
jpkh8j$kio$

Bonjour
IE.Quit nee fait pas l'affaire ?


Normalement il le devrait, La routine est suivie d'une autre faisant appel à
IE par une seconde voie pour la recherche de données, est ce qu'il n'y
aurait pas la le pb?,
la partie concernée du code de cette seconde routine:
With ActiveSheet.QueryTables.Add(Connection:= _
Adweb _
, Destination:=Range("A1"))
.Name = "pid111-partants.html?race_id€5612"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With

"DanielCo" jpi53n$h49$
Bonjour,
IE.Quit nee fait pas l'affaire ?
Daniel


Fredo P. a écrit
Bonjour
Tout est dans l' objet, il est fréquent, quand je dois utiliser la procédure suivante
plusieurs fois de suite qu'elle reste coincée entre "Do Until IE.ReadyState=4 " et
"Loop", que le Ctrl Alt Supp soit le dernier recourt pour sortir de la routine.

Sub CherchecodeSource(B$)
Dim CodeSource As String, IE As Object
Dim TempFile As String, T As Date
On Error Resume Next
EnaF
Sheets("IDCours").Select
[G2] = B
T = Time
[A:A].ClearContents
Set IE = CreateObject("InternetExplorer.Application")
TempFile = "c:Fred.txt"
IE.Visible = False ' Ou True
IE.navigate URL:=B
Do Until IE.ReadyState = 4
DoEvents ' Ne sort pas d'ici
Loop
CodeSource = IE.document.body.innerHTML
Open TempFile For Output As #1
Print #1, CodeSource
Close #1
Open TempFile For Input As #1
Do While Not EOF(1)
Input #1, LaLigne
A = A + 1
Sheets("IDCours").Range("A" & A) = LaLigne
Loop
Close #1
Kill TempFile
IE.Quit
Set IE = Nothing

End Sub




Publicité
Poster une réponse
Anonyme