Actualisation requête et erreur 1004

dm25 · 25 Mai 2010

Bonjour,

Suite à une recherche infructeuse sur la toile depuis quelques jours, voici mon pbe.
Je veux actualiser une requête mais j'obtiens à chaque fois une erreur 1004 "erreur définie par l'application ou par l'objet" sur la ligne "With activesheets..."
Quoi qu'est ce donc, svp?

Ci apres le code:

Code:

Private Sub CommandButton1_Click()    

    Dim Req, Lien As String
    
    Req = "SELECT stock.art_cod, stock.stk_qte, stock.stk_qte_mini, Sum(stock.stk_cum_res), Sum(stock.stk_cum_app) FROM iidba.stock stock GROUP BY stock.art_cod, stock.stk_qte, stock.stk_qte_mini"
    Lien = "DSN=pms01;SERVER=PMS_ND;DATABASE=pms01;SERVERTYPE=INGRES"
    
    With ActiveSheet.QueryTables.Add(Connection:=Lien, Destination:=Range("$B$10"))
     .CommandText = Req
     .Name = "Etat_Stock"
     .FieldNames = True
     .RowNumbers = False
     .FillAdjacentFormulas = False
     .PreserveFormatting = True
     .RefreshOnFileOpen = False
     .BackgroundQuery = True
     .RefreshStyle = xlInsertDeleteCells
     .SavePassword = False
     .SaveData = True
     .AdjustColumnWidth = True
     .RefreshPeriod = 0
     .PreserveColumnInfo = True
     .Refresh BackgroundQuery:=False
    End With

End Sub

Merci.

tototiti2008 · 25 Mai 2010

Re : Actualisation requête et erreur 1004

Bonjour dm25,

peut-être :

Code:

With ActiveSheet.QueryTables.Add(Connection:=Lien, Destination:=Range("$B$10"), SQL:=Req)

l'aide VBA est ton amie 😉

dm25 · 25 Mai 2010

Re : Actualisation requête et erreur 1004

Désolé, mais ça ne marche pas non plus...
J'avais essayé aussi.

tototiti2008 · 25 Mai 2010

Re : Actualisation requête et erreur 1004

Re,

en effet, même la 1ère écriture fonctionne chez moi, avec du SQL et une connexion perso

donc le problème vient des 2 premières lignes

peut-être là ?

Code:

Req = "SELECT stock.art_cod, stock.stk_qte, stock.stk_qte_mini,
 Sum(stock.stk_cum_res), Sum(stock.stk_cum_app) 
FROM [COLOR=red]iidba.stock stock[/COLOR] 
GROUP BY stock.art_cod, stock.stk_qte, stock.stk_qte_mini"

dm25 · 25 Mai 2010

Re : Actualisation requête et erreur 1004

tototiti2008 à dit:
Re,

en effet, même la 1ère écriture fonctionne chez moi, avec du SQL et une connexion perso

donc le problème vient des 2 premières lignes

peut-être là ?

Code:

Req = "SELECT stock.art_cod, stock.stk_qte, stock.stk_qte_mini, Sum(stock.stk_cum_res), Sum(stock.stk_cum_app) FROM [COLOR=red]iidba.stock stock[/COLOR] GROUP BY stock.art_cod, stock.stk_qte, stock.stk_qte_mini"

Non plus.
Le lien et le SELECT sont issu des propriétés de connexions de la requête originale faite avec MS Query. Un simple copier/coller dans ce bout de code...
Y a-t-il besoin d'un complément particulier à installer?

tototiti2008 · 25 Mai 2010

Re : Actualisation requête et erreur 1004

Re,

tu es sûr ?

moi je trouve que "stock stock", ça fait bizarre en SQL

dm25 · 26 Mai 2010

Re : Actualisation requête et erreur 1004

Re,

Désolé de revenir à la charge mais j'ai essayé avec d'autres BDD dont l'exemple de code ci-dessous sur une base access.
C'est toujours le même code erreur.
Dois-je ajouter un module? Un complément? Déclarer des variables?

Code:

Private Sub CommandButton1_Click()

Dim Req, Lien As String

Req = "SELECT Emplacements.Art_cod, Emplacements.Code_empl, Emplacements.Qte FROM `Y:\hypsis.mdb`.Emplacements Emplacements"
Lien = "DSN=Ideam;DBQ=Y:\hypsis.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5"

    With ActiveSheet.QueryTables.Add(Connection:=Lien, Destination:=Range("$I$9"), Sql:=Req)
'     .CommandText = Req
     .Name = "Etat_Stock"
     .FieldNames = True
     .RowNumbers = False
     .FillAdjacentFormulas = False
     .PreserveFormatting = True
     .RefreshOnFileOpen = False
     .BackgroundQuery = True
     .RefreshStyle = xlInsertDeleteCells
     .SavePassword = False
     .SaveData = True
     .AdjustColumnWidth = True
     .RefreshPeriod = 0
     .PreserveColumnInfo = True
     .Refresh BackgroundQuery:=False
    End With

Je sèche complet!!
Merci d'avance.

DM

tototiti2008 · 26 Mai 2010

Re : Actualisation requête et erreur 1004

Bonjour dm25,

Je ne vois pas trop...

si tu ouvre un classeur vide, que tu enregistre la macro et que tu fais des données externes vers ta base Access, tu obtiens le même code ?

tototiti2008 · 26 Mai 2010

Re : Actualisation requête et erreur 1004

Re,

chez moi, la chaîne de connexion pour se connecter à une base Access ressemble à ça :

Code:

"ODBC;DSN=MS Access Database;DBQ=Y:\hypsis.mdb;DefaultDir=Y:;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"

tototiti2008 · 26 Mai 2010

Re : Actualisation requête et erreur 1004

Re,

2ème essai en utilisant un DSN déclaré :

Code:

"ODBC;DSN=Ideam;DBQ=Y:\hypsis.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"

Il semble bien qu'il manque un "ODBC;" au début de ta chaîne de connexion

dm25 · 26 Mai 2010

Re : Actualisation requête et erreur 1004

tototiti2008 à dit:
Re,

2ème essai en utilisant un DSN déclaré :

Code:

"ODBC;DSN=Ideam;DBQ=Y:\hypsis.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"

Il semble bien qu'il manque un "ODBC;" au début de ta chaîne de connexion

Alors là, mille mille mille mercis.
Chapeau bas et merci pour votre dispo.

DM🙂

Actualisation requête et erreur 1004

dm25

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

dm25

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

dm25

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

dm25

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

dm25

XLDnaute Nouveau

Discussions similaires

Actualisation requête et erreur 1004

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency