Discussion :

[edelweisseric]

Bonjour à tous

J'ouvre une fenêtre firefox avec :

Code :

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

1
2
3
4
5
6
Sub firefox_test()
Dim RetVal
' Lance Firefox sur une URL spécifiée
RetVal = Shell("C:\progra~1\mozill~1\firefox.exe http://www.developpez.net/forums", 1)
 
End Sub

Comment puis-je la fermer ?

Merci d'avance

Eric

[DeaD78]

Bonjour,

Essaie avec WM_CLOSE.

Un petit code trouvé sur Internet :

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
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Const WM_CLOSE = &H10
 
Private Sub Form_Load()
 
    Dim hWnd As Long
 
    hWnd = FindWindow(vbNullString, "Lecteur CD")
    If hWnd <> 0 Then
        Call PostMessage(hWnd, WM_CLOSE, 0, 0)
    Else
        MsgBox "Impossible de trouver la fenêtre !", vbExclamation
    End If
 
End Sub

Tu utilises l'API FindWindow pour retrouver ta fenêtre. Il faudra donc passer par le nom de ta fenêtre. Ici, c'est "Lecteur CD". Une fois ta fenêtre trouvée, tu lui envoies le WM_CLOSE et le tour est joué !

Dis-moi si cela fonctionne.

A bientôt !

[edelweisseric]

Bonjour à tous
Bonjour DeaD78

Merci pour ta réponse.

J'ai testé, mais .... rien à faire. Je m'y prend peut être mal.

Tu dis : ... Il faudra donc passer par le nom de ta fenêtre ....

J'ai essayé le non de "l'onglet", sans succès, puis l'URL, mais toujours sans succès. J'ai même tenté de mettre ton code à la suite du mien, mais ..... hWnd est toujours égal à "0".

Donc qu'appelles tu "fenêtre" ? là est mon point faible

Par contre si je mets :

Code :

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

hWnd = FindWindow(vbNullString, "Mozilla Firefox")

cela me ferme Firefox, et ce n'est pas le but exact. J'aimerai garder Firefox ouvert.

Mon but est d'aller vérifier 1000 pages (toujours les mêmes ou presque) 1 fois par semaine minimum.

Merci de m'aider

Eric

PS : Firefox ne se ferme plus avec

Code :

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

hWnd = FindWindow(vbNullString, "Mozilla Firefox")

je n'y comprends plus rien

[DeaD78]

Par exemple, sur la page d'accueil Google, le nom de ma fenêtre sera : "Google - Mozilla Firefox". Il s'agit du nom que tu vois en haut à gauche dans la barre bleue lorsque Firefox est ouvert. Je viens de tester et cela marche.

En revanche, cela ferme la fenêtre (Ctrl + N pour ouvrir de nouvelles fenêtres) peu importe les autres onglets présents dedans.

Je pense que cela importe peu dans ton cas vu que tu ouvres une fenêtre exprès par le Shell. Ferme-la selon le nom du dernier onglet et cela sera bon. Tes autres fenêtres Firefox ne le seront pas.

Dis-moi si cela convient !

[cafeine]

Hello,

si tu dois faire de l'automation avec VBA et des pages web, oublie vite Mozilla Firefox et passe au composant Internet Explorer qui est fait pour être piloté depuis une autre application.
Pour encore plus de performance et suivant les cas un composant Winsock (moins gourmand en ressources) peut aussi faire l'affaire.

[edelweisseric]

Re
Bonjour DeaD78, cafeine

Pour DeaD78 :
Cela fonctionne, pourtant j'avais essayé la solution que tu m'indiques dans ton dernier message, mais mal certainement (un espace en moins ou en trop....).

Pour cafeine :
J'ai essayé avec IE, mais comme la page se situe derrière une login+MDP, rien à faire. J'ai bien tenté avec ton exemple de la FAQ, mais je n'arrive pas à simuler le click pour la connexion :

Code :

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

1
2
3
4
....
'connexion
     Set DOCelement = IEdoc.forms(0)
     DOCelement.submit

Bien que mon login+MDP soit enregistré (se souvenir) pour ce site, IE ne me reconnaît pas, par contre Firefox oui. C'est pour cela que j'avais opté pour Firefox.

Pour une autre manip sur un autre site je passe par IE.

Je vais me documenter sur Winsock, merci.

Merci à vous

Eric