erreur 400VBA

ppraud · 10 Mai 2011

Bonjour,

j'ai l'erreur 400 sur cette macro suivante :

Sub Maj()
Call LitIni
ActiveSheet.QueryTables(1).Connection = ActiveSheet.Range("définitionConnection").Value

With ActiveSheet.Range("definitionSql")
ActiveSheet.QueryTables(1).CommandText = Array( _
.Offset(1, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(2, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(3, 0).Value, _
.Offset(4, 0).Value & Chr(13) & "" & Chr(10), _
.Offset(5, 0).Value)
End With

ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False
End Sub

a ce niveau
" ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False"

ppraud · 10 Mai 2011

Re : erreur 400VBA

l'erreur est sur la feuille "Licenciés" lorsque on clique sur le bouton "Redefinir et Extraire"

tototiti2008 · 10 Mai 2011

Re : erreur 400VBA

Bonjour ppraud,

Ton code définit des données externes, à travers une connexion à une base externe (base de données dont on ignore le type) avec une chaine de connexion qui se trouve dans ta cellule appelée définitionConnection (dont on ne voit pas le contenu), puis une fois la connexion réalisée il essaye d'exécuter une instruction SQL à ta base de données dont les termes se trouvent dans les cellules de la plage définitionSQL jusqu'à 5 cellules en-dessous (dont on ne voit toujours pas le contenu)

J'ai peur qu'il soit compliqué de te dépanner avec les informations fournies, et à noter que si le problème vient de la connexion à la base de données externe on ne pourra pas beaucoup t'aider, j'en ai peur...

Edit : Bing, oups, j'ai trainé moi
Salut CC

ppraud · 10 Mai 2011

Re : erreur 400VBA

je peux rajouter quelque chose:si on enlève le contenu de la cellule T10,le fichier fonctionne.

ppraud · 10 Mai 2011

Re : erreur 400VBA

le contenu sql est dans la case W1

ppraud · 10 Mai 2011

Re : erreur 400VBA

Pourquoi j'ai un message d'erreur dans le 1er fichier mais pas dans le fichier joint modifie.
j'ai juste efface le contenu d'une case (W1) de la feuille "Licenciés"

tototiti2008 · 12 Mai 2011

Re : erreur 400VBA

Bonjour à tous,

Oui, en effet, ton SQL ne doit pas commencer par le mot Sql
Donc au choix, soit tu vides la cellule W1
Soit tu donnes le nom "definitionSQL" à W2 et dans ton code tu enlèves la partie ".Offset(5, 0).Value" de CommandText

ppraud · 12 Mai 2011

Re : erreur 400VBA

Votre solution ne fonctionne pas.Le probleme est le contenu de la cellule T10 de la feuille licenciésSi je l'efface le fichier marche.

erreur 400VBA

ppraud

XLDnaute Nouveau

ppraud

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

ppraud

XLDnaute Nouveau

ppraud

XLDnaute Nouveau

ppraud

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

ppraud

XLDnaute Nouveau

Discussions similaires