Bonjour,
je suis en train de modifier une requête (macro) pour un fichier excel.
Mais à l'exécution le message suivant apparait:
erreur d'exécution '1004'
erreur définie par l'application ou par l'objet
En débogage, la macro bloque sur la troisième ligne.
Req1 = Range("BC3").Text
Application.CommandBars("Stop Recording").Visible = True
With Selection.QueryTable
.Connection = _
"ODBC;DSN=TPEInit;UID=TPE;;APP=Microsoft Office 2003;WSID=SRVMPS7;DATABASE=TPE_Init;LANGUAGE=Français"
.CommandText = Array( _
"SELECT RDN1.DocDate, ORDN.DocNum, RDN1.ItemCode, RDN1.Quantity, RDN1.U_BEC_E001 AS 'demandé', RDN1.U_BEC_E012 AS '1er AR', RDN1.ShipDate AS 'Accusé', RDN1.U_BEC_E007 AS 'Confirmé', substring(comments," _
, _
"1,4) AS 'user'" & Chr(13) & "" & Chr(10) & "FROM TPE_Init.dbo.ORDN ORDN, TPE_Init.dbo.RDN1 RDN1" & Chr(13) & "" & Chr(10) & "WHERE ORDN.DocEntry = RDN1.DocEntry AND ((RDN1.LineStatus<>'C') AND (ORDN.CardCode='F00597') AND (RDN1.U_BEC_E012<>Shipdate) AND (R" _
, _
"DN1.DocDate" & Req1 & "}) OR (RDN1.LineStatus<>'C') AND (ORDN.CardCode='FROMAN') AND (RDN1.U_BEC_E012<>Shipdate) AND (RDN1.DocDate" & Req1 & "}) OR (RDN1.LineStatus<>'C') A" _
, _
"ND (ORDN.CardCode='F96250') AND (RDN1.U_BEC_E012<>Shipdate) AND (RDN1.DocDate" & Req1 & "}) OR (RDN1.LineStatus<>'C') AND (ORDN.CardCode='F96251') AND (RDN1.U_BEC_E012<>Shipdate) AND (RD" _
, "N1.DocDate" & Req1 & "}))")
.Refresh BackgroundQuery:=False
End With
End Sub
quelqu'un aurai une idée du problème ???????:s
merci
cordialement
