Message d'erreur importation de données externes

[Joshua1970]

Bonjour à tous, soyons direct.
Je réalise en VBA une importation de données externes via l'intranet de l'entreprise. Je récupère à une adresse donnée 2 tableaux. Seulement voila, pour certains site je n'ai qu'un tableau. Hors utilisant le refraîchissement automatique des requête en tache de fond, dès le 1er rafraîchissement, lorsqu'il ne trouve pas le deuxieme tableau, j'ai un joli message d'erreur avec une message box bleue m'informant que la requête externe n'a trouvée aucune données et qui attend que je clique 'ok'. Le but est que ce soit totalement automatique, quelqu'un connait-il le paramètre qui va bien ou l'astuce permettant de contourner cela. Merci.

 

[MichelXld]

bonjour

ce n'est pas évident de répondre sans voir ta procedure .
cette macro permet de compter le nombre de tables dans une page Html


'
'necessite d'activer la reference Microsoft HTML Objects Library
'necessite d'activer la reference Microsoft Internet Controls
'
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection

Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = False 'mettre true pour voir la page

IE.navigate 'urldelapage'
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop

Set maPageHtml = IE.document
Set Htable = maPageHtml.getElementsByTagName('table') 'objet type table
MsgBox Htable.Length

maPageHtml.Close
IE.Quit
Set maPageHtml = Nothing
Set IE = Nothing


bonne journée
MichelXld

 

[Joshua1970]

Merci Bcp Michel, Mon code n'a, au niveau de cette erreur rien de particulier puisque je suis partis d'une macro réalisée automatiquement par Excel (importation de données externes). Le problème vient je pense du rafraîchement automatique en tâche de fond. En effet je ne sais pas ou intercepter les erreurs pour les gérer. Mais je test ta procédure au bureau dés lundi. à bientôt et encore merci.