J'ai fait un fichier excel qui récupère des infos sur une base sql de
différents serveurs via une liste de serveurs sur une feuille.
Il peut arriver que, pour une raison ou une autre, le serveur ne soit pas
accessible, comment puis-je gérer cette erreur possible afin qu'il passe au
serveur suivant sans se mettre en erreur de connexion ? Merci
===============================
dim connectionstring, server as string
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Wolvy,
ajoute ce code à ta macro
On Error Resume Next 'commande Err.Clear
isabelle
Salut tous le monde !
J'ai fait un fichier excel qui récupère des infos sur une base sql de différents serveurs via une liste de serveurs sur une feuille. Il peut arriver que, pour une raison ou une autre, le serveur ne soit pas accessible, comment puis-je gérer cette erreur possible afin qu'il passe au serveur suivant sans se mettre en erreur de connexion ? Merci
============================== > dim connectionstring, server as string
sqlstring = "set nocount on " sqlstring = sqlstring + "select TIR_NUM_TIERS, sum(RIC_VALEUR_1) as NB_ARTICLE_NONEBIP, sum(RIC_VALEUR_2) as NB_ARTICLE_TOTAL, (sum(RIC_VALEUR_1)/sum(RIC_VALEUR_2 )) as PCT_NONEBIP, 1-(sum(RIC_VALEUR_1)/sum(RIC_VALEUR_2)) as PCT_BIP from caisse..riva_stats (nolock) " sqlstring = sqlstring + "where RIC_NATURE_STAT = 102 and RIC_DATE between '" & Sheets("Menu").TextBox2.Text & "' and '" & Sheets("Menu").TextBox3.Text & "' " sqlstring = sqlstring + "group by tir_num_tiers"
With ActiveSheet.QueryTables.Add(Connection:=connectionstring, Destination:=Range("A2")) .CommandText = sqlstring .Refresh End With
bonjour Wolvy,
ajoute ce code à ta macro
On Error Resume Next
'commande
Err.Clear
isabelle
Salut tous le monde !
J'ai fait un fichier excel qui récupère des infos sur une base sql de
différents serveurs via une liste de serveurs sur une feuille.
Il peut arriver que, pour une raison ou une autre, le serveur ne soit pas
accessible, comment puis-je gérer cette erreur possible afin qu'il passe au
serveur suivant sans se mettre en erreur de connexion ? Merci
============================== > dim connectionstring, server as string
J'ai fait un fichier excel qui récupère des infos sur une base sql de différents serveurs via une liste de serveurs sur une feuille. Il peut arriver que, pour une raison ou une autre, le serveur ne soit pas accessible, comment puis-je gérer cette erreur possible afin qu'il passe au serveur suivant sans se mettre en erreur de connexion ? Merci
============================== > dim connectionstring, server as string
