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
Ange Ounis
Sans chercher à entrer dans les détails de ta commande, ton paramètre 'date' a l'air mal inséré. Il se peut aussi que le format de date ait de l'importance mais tu pourrais commencer par essayer :
.CommandText = Array( _ "SELECT Sum(TE_PROCE.NOMBRE) AS 'Somme sur NOMBRE'" & Chr(13) & "" & Chr (10) & "FROM `V:Production LP11morgandataMélodie`TE_PROCE.DBF " TE_PROCE" & Chr(13) & "" & Chr(10) & "WHERE (TE_PROCE.DATE={d '" & date & "'}) AND (TE_PROCE.DEFAUT6) AND (TE_PROCE.N" _ , "OMBRE=1) AND (TE_PROCE.POSTE@)")
---------- Ange Ounis ----------
bonjour à tous . Quel beau temp ce vendredi ^^
voici mon programme qui ne fonctionne pas.
Sub Macro3() ' ' Macro3 Macro ' Macro enregistrée le 05/05/2006 par morgan '
' vardateÚte With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DSNÛASE Files;DefaultDir=V:PRODUCTION LP11MORGAN;DriverIdS3;MaxBufferSize 48;PageTimeout=5;" _ , Destination:=Range("A5")) .CommandText = Array( _ "SELECT Sum(TE_PROCE.NOMBRE) AS 'Somme sur NOMBRE'" & Chr(13) & "" & Chr(10) & "FROM `V:Production LP11morgandataMélodie`TE_PROCE.DBF TE_PROCE" & Chr(13) & "" & Chr(10) & "WHERE (TE_PROCE.DATE={d '&date&'}) AND (TE_PROCE.DEFAUT6) AND (TE_PROCE.N" _ , "OMBRE=1) AND (TE_PROCE.POSTE@)") .Name = "Lancer la requête à partir de dBASE Files_13" .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .PreserveColumnInfo = False .Refresh BackgroundQuery:=True End With End Sub
La date étantà ce format dans ma base de donnée : 2004-11-08
merci d'avance
Sans chercher à entrer dans les détails de ta commande, ton paramètre 'date' a
l'air mal inséré. Il se peut aussi que le format de date ait de l'importance
mais tu pourrais commencer par essayer :
.CommandText = Array( _
"SELECT Sum(TE_PROCE.NOMBRE) AS 'Somme sur NOMBRE'" & Chr(13) & "" &
Chr (10) & "FROM `V:Production LP11morgandataMélodie`TE_PROCE.DBF "
TE_PROCE" & Chr(13) & "" & Chr(10) & "WHERE (TE_PROCE.DATE={d '" & date & "'}) AND
(TE_PROCE.DEFAUT6) AND (TE_PROCE.N" _
, "OMBRE=1) AND (TE_PROCE.POSTE@)")
----------
Ange Ounis
----------
bonjour à tous . Quel beau temp ce vendredi ^^
voici mon programme qui ne fonctionne pas.
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 05/05/2006 par morgan
'
'
vardateÚte
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSNÛASE Files;DefaultDir=V:PRODUCTION
LP11MORGAN;DriverIdS3;MaxBufferSize 48;PageTimeout=5;" _
, Destination:=Range("A5"))
.CommandText = Array( _
"SELECT Sum(TE_PROCE.NOMBRE) AS 'Somme sur NOMBRE'" & Chr(13) & "" &
Chr(10) & "FROM `V:Production LP11morgandataMélodie`TE_PROCE.DBF
TE_PROCE" & Chr(13) & "" & Chr(10) & "WHERE (TE_PROCE.DATE={d '&date&'}) AND
(TE_PROCE.DEFAUT6) AND (TE_PROCE.N" _
, "OMBRE=1) AND (TE_PROCE.POSTE@)")
.Name = "Lancer la requête à partir de dBASE Files_13"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = False
.Refresh BackgroundQuery:=True
End With
End Sub
La date étantà ce format dans ma base de donnée : 2004-11-08
Sans chercher à entrer dans les détails de ta commande, ton paramètre 'date' a l'air mal inséré. Il se peut aussi que le format de date ait de l'importance mais tu pourrais commencer par essayer :
.CommandText = Array( _ "SELECT Sum(TE_PROCE.NOMBRE) AS 'Somme sur NOMBRE'" & Chr(13) & "" & Chr (10) & "FROM `V:Production LP11morgandataMélodie`TE_PROCE.DBF " TE_PROCE" & Chr(13) & "" & Chr(10) & "WHERE (TE_PROCE.DATE={d '" & date & "'}) AND (TE_PROCE.DEFAUT6) AND (TE_PROCE.N" _ , "OMBRE=1) AND (TE_PROCE.POSTE@)")
---------- Ange Ounis ----------
bonjour à tous . Quel beau temp ce vendredi ^^
voici mon programme qui ne fonctionne pas.
Sub Macro3() ' ' Macro3 Macro ' Macro enregistrée le 05/05/2006 par morgan '
' vardateÚte With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DSNÛASE Files;DefaultDir=V:PRODUCTION LP11MORGAN;DriverIdS3;MaxBufferSize 48;PageTimeout=5;" _ , Destination:=Range("A5")) .CommandText = Array( _ "SELECT Sum(TE_PROCE.NOMBRE) AS 'Somme sur NOMBRE'" & Chr(13) & "" & Chr(10) & "FROM `V:Production LP11morgandataMélodie`TE_PROCE.DBF TE_PROCE" & Chr(13) & "" & Chr(10) & "WHERE (TE_PROCE.DATE={d '&date&'}) AND (TE_PROCE.DEFAUT6) AND (TE_PROCE.N" _ , "OMBRE=1) AND (TE_PROCE.POSTE@)") .Name = "Lancer la requête à partir de dBASE Files_13" .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .PreserveColumnInfo = False .Refresh BackgroundQuery:=True End With End Sub
La date étantà ce format dans ma base de donnée : 2004-11-08
merci d'avance
aravis
ca me met erreur sql et me renvoi a la ligne :
.Refresh BackgroundQuery:=True
c'est franchement bizarre, je suis bloqué depuis pas mal de temps sur ca
ca me met erreur sql et me renvoi a la ligne :
.Refresh BackgroundQuery:=True
c'est franchement bizarre, je suis bloqué depuis pas mal de temps sur ca
c'est franchement bizarre, je suis bloqué depuis pas mal de temps sur ca
papou
Bonjour Sans trop savoir non plus si ton erreur en serait pas liée au paramètre date que tu tuilises, essaies de mettre en commentaire la ligne sur laquelle tu bloques en la précédant d'un ' (apostrophe de la touche 4 du clavier) Cordialement Pascal
"aravis" a écrit dans le message de news:
ca me met erreur sql et me renvoi a la ligne :
.Refresh BackgroundQuery:=True
c'est franchement bizarre, je suis bloqué depuis pas mal de temps sur ca
Bonjour
Sans trop savoir non plus si ton erreur en serait pas liée au paramètre date
que tu tuilises, essaies de mettre en commentaire la ligne sur laquelle tu
bloques en la précédant d'un ' (apostrophe de la touche 4 du clavier)
Cordialement
Pascal
"aravis" <aravis@discussions.microsoft.com> a écrit dans le message de news:
1A4310CD-AA4E-4B6A-9363-E585668E793F@microsoft.com...
ca me met erreur sql et me renvoi a la ligne :
.Refresh BackgroundQuery:=True
c'est franchement bizarre, je suis bloqué depuis pas mal de temps sur ca
Bonjour Sans trop savoir non plus si ton erreur en serait pas liée au paramètre date que tu tuilises, essaies de mettre en commentaire la ligne sur laquelle tu bloques en la précédant d'un ' (apostrophe de la touche 4 du clavier) Cordialement Pascal
"aravis" a écrit dans le message de news:
ca me met erreur sql et me renvoi a la ligne :
.Refresh BackgroundQuery:=True
c'est franchement bizarre, je suis bloqué depuis pas mal de temps sur ca
aravis
ca ne fait plus rien du tout quand je rajoute ' devant la ligne en question
ca ne fait plus rien du tout quand je rajoute ' devant la ligne en question