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
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
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
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
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
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
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 Morangebonjour
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
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
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 Morangebonjour
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
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 Morangebonjour
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
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
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 Morangebonjour
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
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 Morangebonjour
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
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
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 Morangebonjour
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