Fermer une page internet avec vba ( windows XP)

Bonjour,

Dans un script vba, j'ouvre une page internet (php) puis quand le travail
est terminé,
le vba ferme cette page.

Un fichier créé à la fin du php me renseigne sur la fin des travaux, le
vba boucle n fois avec test d'existence de ce fichier puis temporisation
si fichier existe t ou si n fois ( cas du php qui se serait
planté) alors fermer page internet.



Pour fermer cette page, j'avais trouvé sur internet le vba ci après.:

Depuis que je travaille sous XP ( avant, c'etait windows 2000), cette
fermeture de ne fait plus 1 fois sur 3 environ
( je sais, c'est pas scientifique mais, hélas je ne peux pas dire que
celà ne marche plus du tout).

Quelqu'un a -t-il quelque chose de stable sous XP ?


Par avance, merci

Francois


//==
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Const WM_CLOSE = &H10
Public Const WM_NCDESTROY = &H82 ' ok pour IE

Sub CloseWindow(quoi)

Dim HWnd As Long
HWnd = FindWindow(vbNullString, quoi)
If HWnd > 0 Then
SendMessage HWnd, WM_NCDESTROY, 0, 0
Else
CloseWindow ("pb page à fermer")
End If
End Sub


Sub zz()
Application.WindowState = xlMaximized
'CloseWindow ("Wanadoo - Microsoft Internet Explorer")
Application.DisplayAlerts = False

CloseWindow ("La page - Microsoft Internet Explorer")

Application.DisplayAlerts = True
End Sub

//==