Actualisation requête et erreur 1004

[dm25]

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:

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]

Re : Actualisation requête et erreur 1004

Bonjour dm25,

peut-être :

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

l'aide VBA est ton amie 😉

 

[dm25]

Re : Actualisation requête et erreur 1004

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

 

[tototiti2008]

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à ?

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]

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à ?

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]

Re : Actualisation requête et erreur 1004

Re,

tu es sûr ?

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

 

[dm25]

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?

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]

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]

Re : Actualisation requête et erreur 1004

Re,

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

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

 

[tototiti2008]

Re : Actualisation requête et erreur 1004

Re,

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

"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]

Re : Actualisation requête et erreur 1004

Re,

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

"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🙂