interception messages des requetes web

Le
eric
bonjour
je souhaiterais intercepter ou supprimer les messages d'erreurs provenant
des requetes web dans excel
requetes web de : "données"/"donnees externes"/"nouvelle requete sur le web"

(ou que l on peut aussi créer via une QueryTable en VBA)

les messages sont du type :
- requete sur le web non valide
- impossible d'ouvrir le lien ..

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
PMO
Le #4587391
Bonjour,

J'ai enregistré une macro selon vos directives "données"/"donnees
externes"/"nouvelle requete sur le web"
pour obtenir Google.
J'y ai remplacé l'URL
URL;http://www.google.fr/webhp?
par
URL;http://www.googleZAZA.fr/webhp?
pour fabriquer une erreur de connexion.

J'ai ajouté dans le code plusieurs lignes de traitement d'erreur ainsi que
des lignes de pseudo traitement.
Ces dernières pour illustrer, à l'essai, les différentes étapes du
traitement d'erreur.
LES LIGNES AVEC EN FINAL '### sont les lignes importantes à conserver.

Voici le code pour test
'*****************
Option Explicit
Sub Macro1()
On Error GoTo TraiteErreur '###
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.googleZAZA.fr/webhp?" & _
"sourceid=navclient&hl=fr&ie=UTF-8", _
Destination:=Range("A1"))
.Name = "webhp?sourceid=navclient&hl=fr&ie=UTF-8"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse 'C'est ici que ça plante
End With

'---- Pseudo traitement (à jeter par la suite) ----
MsgBox "Je fais une division par 0"
Dim i&
i& = i& / 0
MsgBox "Le ''Resume Next'' me renvoit juste avant le Exit Sub"
'----------------------------
Exit Sub '###
TraiteErreur: '###
Dim reponse% '###
reponse% = MsgBox _
(prompt:=Err.Number & vbCrLf & _
vbCrLf & Err.Description & vbCrLf & _
vbCrLf & "Voulez-vous continuer ?", _
Buttons:=vbOKCancel) '###
If reponse% = vbOK Then Resume Next 'sinon on termine '###
End Sub
'*****************

Cordialement.

--
PMO
Patrick Morange



bonjour
je souhaiterais intercepter ou supprimer les messages d'erreurs provenant
des requetes web dans excel
requetes web de : "données"/"donnees externes"/"nouvelle requete sur le web"

(ou que l on peut aussi créer via une QueryTable en VBA)

les messages sont du type :
- requete sur le web non valide
- impossible d'ouvrir le lien ........

merci


PMO
Le #4587381
Bonjour,

J'ai enregistré une macro selon vos directives "données"/"donnees
externes"/"nouvelle requete sur le web"
pour obtenir Google.
J'y ai remplacé l'URL
URL;http://www.google.fr/webhp?
par
URL;http://www.googleZAZA.fr/webhp?
pour fabriquer une erreur de connexion.

J'ai ajouté dans le code plusieurs lignes de traitement d'erreur ainsi que
des lignes de pseudo traitement.
Ces dernières pour illustrer, à l'essai, les différentes étapes du
traitement d'erreur.
LES LIGNES AVEC EN FINAL '### sont les lignes importantes à conserver.

Voici le code pour test
'*****************
Option Explicit
Sub Macro1()
On Error GoTo TraiteErreur '###
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.googleZAZA.fr/webhp?" & _
"sourceid=navclient&hl=fr&ie=UTF-8", _
Destination:=Range("A1"))
.Name = "webhp?sourceid=navclient&hl=fr&ie=UTF-8"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse 'C'est ici que ça plante
End With

'---- Pseudo traitement (à jeter par la suite) ----
MsgBox "Je fais une division par 0"
Dim i&
i& = i& / 0
MsgBox "Le ''Resume Next'' me renvoit juste avant le Exit Sub"
'----------------------------
Exit Sub '###
TraiteErreur: '###
Dim reponse% '###
reponse% = MsgBox _
(prompt:=Err.Number & vbCrLf & _
vbCrLf & Err.Description & vbCrLf & _
vbCrLf & "Voulez-vous continuer ?", _
Buttons:=vbOKCancel) '###
If reponse% = vbOK Then Resume Next 'sinon on termine '###
End Sub
'*****************

Cordialement.

--
PMO
Patrick Morange



bonjour
je souhaiterais intercepter ou supprimer les messages d'erreurs provenant
des requetes web dans excel
requetes web de : "données"/"donnees externes"/"nouvelle requete sur le web"

(ou que l on peut aussi créer via une QueryTable en VBA)

les messages sont du type :
- requete sur le web non valide
- impossible d'ouvrir le lien ........

merci


eric
Le #4913111
Merci beaucoup d'avoir pris le temps d'étudier mon problème et de proposer
une solution

Dans ce cas là ca fonctionne effectivement bien

Par contre, normalement la requete n'est pas réactualisée par VBA, mais elle
se réactualise toute seule toute les X secondes et dans ce cas je ne sais pas
quel type de macro utiliser

J'ai testé avec Worksheet_Change(ByVal target As Range) mais visiblement
l'erreur arrive avant cette phase






Bonjour,

J'ai enregistré une macro selon vos directives "données"/"donnees
externes"/"nouvelle requete sur le web"
pour obtenir Google.
J'y ai remplacé l'URL
URL;http://www.google.fr/webhp?
par
URL;http://www.googleZAZA.fr/webhp?
pour fabriquer une erreur de connexion.

J'ai ajouté dans le code plusieurs lignes de traitement d'erreur ainsi que
des lignes de pseudo traitement.
Ces dernières pour illustrer, à l'essai, les différentes étapes du
traitement d'erreur.
LES LIGNES AVEC EN FINAL '### sont les lignes importantes à conserver.

Voici le code pour test
'*****************
Option Explicit
Sub Macro1()
On Error GoTo TraiteErreur '###
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.googleZAZA.fr/webhp?" & _
"sourceid=navclient&hl=fr&ie=UTF-8", _
Destination:=Range("A1"))
.Name = "webhp?sourceid=navclient&hl=fr&ie=UTF-8"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse 'C'est ici que ça plante
End With

'---- Pseudo traitement (à jeter par la suite) ----
MsgBox "Je fais une division par 0"
Dim i&
i& = i& / 0
MsgBox "Le ''Resume Next'' me renvoit juste avant le Exit Sub"
'----------------------------
Exit Sub '###
TraiteErreur: '###
Dim reponse% '###
reponse% = MsgBox _
(prompt:=Err.Number & vbCrLf & _
vbCrLf & Err.Description & vbCrLf & _
vbCrLf & "Voulez-vous continuer ?", _
Buttons:=vbOKCancel) '###
If reponse% = vbOK Then Resume Next 'sinon on termine '###
End Sub
'*****************

Cordialement.

--
PMO
Patrick Morange



bonjour
je souhaiterais intercepter ou supprimer les messages d'erreurs provenant
des requetes web dans excel
requetes web de : "données"/"donnees externes"/"nouvelle requete sur le web"

(ou que l on peut aussi créer via une QueryTable en VBA)

les messages sont du type :
- requete sur le web non valide
- impossible d'ouvrir le lien ........

merci




eric
Le #4912931
j ai essaye avec l evenement QueryTable_AfterRefresh
mais il a pas l'air de declencher non plus


Bonjour,

J'ai enregistré une macro selon vos directives "données"/"donnees
externes"/"nouvelle requete sur le web"
pour obtenir Google.
J'y ai remplacé l'URL
URL;http://www.google.fr/webhp?
par
URL;http://www.googleZAZA.fr/webhp?
pour fabriquer une erreur de connexion.

J'ai ajouté dans le code plusieurs lignes de traitement d'erreur ainsi que
des lignes de pseudo traitement.
Ces dernières pour illustrer, à l'essai, les différentes étapes du
traitement d'erreur.
LES LIGNES AVEC EN FINAL '### sont les lignes importantes à conserver.

Voici le code pour test
'*****************
Option Explicit
Sub Macro1()
On Error GoTo TraiteErreur '###
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.googleZAZA.fr/webhp?" & _
"sourceid=navclient&hl=fr&ie=UTF-8", _
Destination:=Range("A1"))
.Name = "webhp?sourceid=navclient&hl=fr&ie=UTF-8"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse 'C'est ici que ça plante
End With

'---- Pseudo traitement (à jeter par la suite) ----
MsgBox "Je fais une division par 0"
Dim i&
i& = i& / 0
MsgBox "Le ''Resume Next'' me renvoit juste avant le Exit Sub"
'----------------------------
Exit Sub '###
TraiteErreur: '###
Dim reponse% '###
reponse% = MsgBox _
(prompt:=Err.Number & vbCrLf & _
vbCrLf & Err.Description & vbCrLf & _
vbCrLf & "Voulez-vous continuer ?", _
Buttons:=vbOKCancel) '###
If reponse% = vbOK Then Resume Next 'sinon on termine '###
End Sub
'*****************

Cordialement.

--
PMO
Patrick Morange



bonjour
je souhaiterais intercepter ou supprimer les messages d'erreurs provenant
des requetes web dans excel
requetes web de : "données"/"donnees externes"/"nouvelle requete sur le web"

(ou que l on peut aussi créer via une QueryTable en VBA)

les messages sont du type :
- requete sur le web non valide
- impossible d'ouvrir le lien ........

merci




eric
Le #4912861
j avance mais je suis toujours bloqué

j'avance car j'arrive a utiliser le querytable AfterRefresh
(en créant un module de classe, pas évident à faire, mais indiqué dans la doc)

mais mon problème reste le même car la procédure querytable AfterRefresh
detecte bien si le raraichissement c'est bien réalisé ou pas, mais avant la
detection, j'ai quant meme le message d'erreur




Bonjour,

J'ai enregistré une macro selon vos directives "données"/"donnees
externes"/"nouvelle requete sur le web"
pour obtenir Google.
J'y ai remplacé l'URL
URL;http://www.google.fr/webhp?
par
URL;http://www.googleZAZA.fr/webhp?
pour fabriquer une erreur de connexion.

J'ai ajouté dans le code plusieurs lignes de traitement d'erreur ainsi que
des lignes de pseudo traitement.
Ces dernières pour illustrer, à l'essai, les différentes étapes du
traitement d'erreur.
LES LIGNES AVEC EN FINAL '### sont les lignes importantes à conserver.

Voici le code pour test
'*****************
Option Explicit
Sub Macro1()
On Error GoTo TraiteErreur '###
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.googleZAZA.fr/webhp?" & _
"sourceid=navclient&hl=fr&ie=UTF-8", _
Destination:=Range("A1"))
.Name = "webhp?sourceid=navclient&hl=fr&ie=UTF-8"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse 'C'est ici que ça plante
End With

'---- Pseudo traitement (à jeter par la suite) ----
MsgBox "Je fais une division par 0"
Dim i&
i& = i& / 0
MsgBox "Le ''Resume Next'' me renvoit juste avant le Exit Sub"
'----------------------------
Exit Sub '###
TraiteErreur: '###
Dim reponse% '###
reponse% = MsgBox _
(prompt:=Err.Number & vbCrLf & _
vbCrLf & Err.Description & vbCrLf & _
vbCrLf & "Voulez-vous continuer ?", _
Buttons:=vbOKCancel) '###
If reponse% = vbOK Then Resume Next 'sinon on termine '###
End Sub
'*****************

Cordialement.

--
PMO
Patrick Morange



bonjour
je souhaiterais intercepter ou supprimer les messages d'erreurs provenant
des requetes web dans excel
requetes web de : "données"/"donnees externes"/"nouvelle requete sur le web"

(ou que l on peut aussi créer via une QueryTable en VBA)

les messages sont du type :
- requete sur le web non valide
- impossible d'ouvrir le lien ........

merci




Publicité
Poster une réponse
Anonyme