taille octets image

Bonsoir,
Je récupère une image d'un site météo par
les macros ci-dessous.

Quelque fois l'image est indisponnible.
Je désire donc effectué un test avant d'enregistrer cette image.
Que puis-je mettre à la place de la ligne:
'-->> test si l'image est valide ??
Je pense à un test sur la taille (octects),
mais je ne vois pas comment le faire.

Qui aurait une idée afin d'effectué un test sur la validité de cette image ?

Toutes propositions honnêtes :-)) bien venues.

Merci

'*************************
Public i_image As String

Sub updateMeteo()
Workbooks.Open ("http://www1.bluewin.ch/infos/index.php/meteo/sat/")
' cherche le nom de l'image SAT
' par test de sa largeur / hauteur
test_image
ActiveSheet.Shapes(i_image).Select
' copie l'image SAT
Selection.CopyPicture
Workbooks.Add
ActiveSheet.Paste

'-->> test si l'image est valide

'......etc.....
End Sub

Sub test_image()
Dim larg, haut, shap
For Each shap In ActiveSheet.Shapes
i_image = shap.Name
larg = ActiveSheet.Shapes(i_image).Height
haut = ActiveSheet.Shapes(i_image).Width
If larg * haut > 100000 Then Exit Sub
Next
End Sub
'************************
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}