Discussion :

[candesign]

Bonjour ,

Je travaille sur un projet où je dois ouvrir des pages html et faire un certain traitement à leur contenu (je dirai pas plus... confidentiel ).

J'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Public Function OpenHTMLFILE(Path As String) As HTMLDocument
    Dim IE As InternetExplorer
    Dim HTMLDoc As HTMLDocument
 
    On Error GoTo ErrHandler
 
    Set IE = New InternetExplorer
 
    With IE
        .Visible = False
        .Navigate (Path)
        .Visible = False
 
        While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
        Set HTMLDoc = .Document
    End With   
 
    Set OpenHTMLFILE = HTMLDoc
End Function

Le problème que je rencontre c'est que , à chaque fois que j'ouvre une page html, le navigateur IE s'affiche même si j'ai la propriété visible = false et c'est assez gênant car mon UserForm perd le focus et il faudra retourner manuellement sur excel pour pouvoir le réactiver alors que je suis intéressé par faire le traitement de manière transparente .

Quelqu'un aurait une idée sur comment résoudre le problème ?

Merci.

[candesign]

Aucune idée ?

[edelweisseric]

Bonsoir à tous
Bonsoir candesign

Tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
  ' .....
 Url = "http://www.xxxxxx/index.html"
    'Doit ouvrir la page web dans IE de façon invisible
    Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = False
    Application.ScreenUpdating = False
    'Ouvrir la page Web
    IE.Navigate Url
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
'........

Je n'ai pas testé.
Eric

[candesign]

Merci edelweisseric. ça marche impeccable !!