Enlever message d'erreur lors de l'actualisation par requête web.

[libellule85]

Bonjour le forum,

Voici mon petit "problème" : j'ai un classeur avec 5 feuilles et j'ai une macro (ci-dessous) qui actualise ces 5 feuilles mais par contre pour l'instant seul deux feuilles ont des données récupérées les autres feuilles n'ont rien.

De ce fait lors de l'actualisation j'ai un message d'erreur qui apparait autant de fois qu'il n'y a pas de données récupérées. Je voulais donc savoir comment faire pour ne plus avoir ces messages.



J'ai essayé de faire disparaitre ceux-ci en mettant avant ActiveWorkbook... Application.DisplayAlerts = False et après ActiveWorkbook... Application.DisplayAlerts = True mais cela ne fonctionne pas !

Sub ActuGenerale()
If Date > DateSerial(2015, 3, 20) Then MsgBox "Actualisation impossible : date dépassée !!": Exit Sub
ActiveWorkbook.RefreshAll 'actualisation de l'ensemble du classeur
End Sub

Est-ce que quelqu'un aurait une idée ?

D'avance je vous en remercie,

 

[david84]

Re : Enlever message d'erreur lors de l'actualisation par requête web.

Bonjour,
J'ai testé vite fait et je n'ai pas ce message.
Fais-nous un petit fichier exemple pour que l'on puisse tester.
A+

 

[Staple1600]

Re : Enlever message d'erreur lors de l'actualisation par requête web.

Bonjour à tous

Est-on ou pas dans ce cas de figure?
Error message when you update a data query on your Excel worksheet: "This Web query returned no data"

 

[libellule85]

Re : Enlever message d'erreur lors de l'actualisation par requête web.

Bonjour david84, Staple1600,

@david84 : trouves ci-joint fichier

@Staple1600 : il me retourne un message parce qu'il n'y a rien à actualiser, cet article ne me concerne pas car il n'y a pas de mot de passe requis pour ce site

 

[Staple1600]

Re : Enlever message d'erreur lors de l'actualisation par requête web.

Re

libellule85

@Staple1600 : il me retourne un message parce qu'il n'y a rien à actualiser, cet article ne me concerne pas car il n'y a pas de mot de passe requis pour ce site

Oui c'est pour cela que je posais la question en préambule

Est-on ou pas dans ce cas de figure?

Excuse-moi d'avoir cherché à t'aider...

 

[david84]

Re : Enlever message d'erreur lors de l'actualisation par requête web.

Re
je ne vois pas quelles sont les requêtes créées dans le classeur...
A+

 

[libellule85]

Re : Enlever message d'erreur lors de l'actualisation par requête web.

Re,

Regarde dans Données puis connexion

 

[david84]

Re : Enlever message d'erreur lors de l'actualisation par requête web.

Re
je ne parviens pas à obtenir ce message part le biais de la méthode RefreshAll. Par contre je suis obligé de stopper la macro au bout d'un moment et ce sans obtenir de résultat.
Ceci dit, en bouclant sur toutes les feuille et en passant par Refresh cela semble fonctionner chez moi :

Sub Raffraichir()
Dim i As Byte
On Error Resume Next
For i = 1 To Sheets.Count
    Sheets(i).Range("A4").QueryTable.Refresh BackgroundQuery:=False
Next
End Sub

A toi de voir ce que cela donne.
A+

 

[libellule85]

Re : Enlever message d'erreur lors de l'actualisation par requête web.

Bonjour david84, le forum,

Je viens d'essayer ton code et cela fonctionne impeccablement. un grand merci pour ton aide.
Bonne journée