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 :
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 .
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
Quelqu'un aurait une idée sur comment résoudre le problème ?
Merci.
Partager