Discussion :

[Maluje]

Bonjour,

je cherche un moyen de fermer une fenêtre d'Internet explorer depuis une macro Excel

J'arrive à activer la fenetre avec la commande "AppActivate"
mais après quand je tente un "ActiveWindow.Close" ou "Application.ActiveWindow.Close", c'estle classeur Excel qui se ferme....
Est ce qu'il y a une autre commande qui fonctionnerait ?

Merci d'avance

[Singular]

Tu dois faire une référence à ShDocVw.dll dans ton projet. Dans la fenêtre des références, tu cliqus sur le bouton "Parcourir..." et tu sélectionnes le fichier ShDocVw.dll dans le répertoire /Windows/System32. Dès lors, ta liste de références te montrera que tu as sélectionné "Microsoft Internet Controls".

Ensuite, dans ton code, tu crées une variable de type ShDocVw.InternetExplorer ainsi:

Code :

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

Dim ie As ShDocVw.InternetExplorer

Tu ouvres IE avec:

Code :

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

Set ie = New ShDocVw.InternetExplorer

ce qui crée une instance invisible d'IE.

Ensuite, pour fermer IE,

Code :

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

1
2
ie.Quit
Set ie = Nothing

[ouskel'n'or]

Sans ajouter de référence

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Application.DisplayAlerts = False
Dim ie As Object
    On Error Resume Next
    Set ie = CreateObject("internetExplorer.Application")
    ie.navigate "http://www.developpez.net/forums/forumdisplay.php?f=664"
    ie.Visible = True
    MsgBox "Fin" 'interrompt la procédure le temps de la visite sur le web
    ie.Close
    Set ie = Nothing
End Sub

[Maluje]

merci,

en fait, vu que d'IE s'ouvre pour un téléchargement, j'ai réussi en faisant un truc tout simple, je vois qu'il y a plus fin mais en tout cas, ça fonctionne :

Code :

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

1
2
AppActivate "http...."
SendKeys ("%{F4}")