Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel encore le meme soucit avec mon programme ...

encore le meme soucit avec mon programme ...

5 réponses
Avatar
aravis
bonjour, quelqu'un pourrez m'aider, je suis toujours autant bloqué depuis 1
semaine.

Voici un extrait de mon programme :


Sub bdd1()


Date.NumberFormat = "dd.mm.yyyy"
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=dBASE Files;DefaultDir=V:\Production
LP11\morgan;DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Range("A4"))
.CommandText = Array( _
"SELECT Sum(TE_PROCE.NOMBRE) AS 'Somme sur NOMBRE'" & Chr(13) & "" &
Chr(10) & "FROM `V:\Production LP11\morgan\data\Mélodie`\TE_PROCE.DBF
TE_PROCE" & Chr(13) & "" & Chr(10) & "WHERE (TE_PROCE.DATE={d '&date&'}) AND
(TE_PROCE.DEFAUT=111) AND (TE_PROCE.P" _
, "OSTE=92) AND (TE_PROCE.NOMBRE=1)")
.Name = "Lancer la requête à partir de dBASE Files"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

End Sub


cordialement
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Ardus Petus
Comme on n'a pas la totalité de ton code, on ne peut pas le tester.

Je remarque laligne: Date.NumberFormat = "dd.mm.yyyy"

Date est un mot réservé de VBA (fonction qui renvoie la date du jour).
C'est peut-être la source de tes ennuis.

Cordialement
--
AP

"aravis" a écrit dans le message de news:

bonjour, quelqu'un pourrez m'aider, je suis toujours autant bloqué depuis
1
semaine.

Voici un extrait de mon programme :


Sub bdd1()


Date.NumberFormat = "dd.mm.yyyy"
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSNÛASE Files;DefaultDir=V:Production
LP11morgan;DriverIdS3;MaxBufferSize 48;PageTimeout=5;" _
, Destination:=Range("A4"))
.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.DEFAUT1) AND (TE_PROCE.P" _
, "OSTE’) AND (TE_PROCE.NOMBRE=1)")
.Name = "Lancer la requête à partir de dBASE Files"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:úlse
End With

End Sub


cordialement


Avatar
aravis
c'est mon programme complet ;)
Avatar
Ardus Petus
Supprime la ligne Dte.NumberFormat="dd.mm.yyyy"

Dans le texte de ta requete:
"WHERE (TE_PROCE.DATE={d '"&format(date,"dd.mm.yyyy")&"'}) AND ...

Dis-moi si ca marche mieux

Cordialement
--
AP


"aravis" a écrit dans le message de news:

bonjour, quelqu'un pourrez m'aider, je suis toujours autant bloqué depuis
1
semaine.

Voici un extrait de mon programme :


Sub bdd1()


Date.NumberFormat = "dd.mm.yyyy"
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSNÛASE Files;DefaultDir=V:Production
LP11morgan;DriverIdS3;MaxBufferSize 48;PageTimeout=5;" _
, Destination:=Range("A4"))
.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.DEFAUT1) AND (TE_PROCE.P" _
, "OSTE’) AND (TE_PROCE.NOMBRE=1)")
.Name = "Lancer la requête à partir de dBASE Files"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:úlse
End With

End Sub


cordialement


Avatar
aravis
quand je mets ton bout de ligne ca me met une erreur sql 1004 , et ca me
redirige sur cette ligne quand j'utilise le déblogage :

.Refresh BackgroundQuery:=True

c'est bizarre quand meme.
Avatar
aravis
ca marche en faite , merci beaucoup . Le problème venez du format, en fait
c'été yyyy-mm-dd