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
MichDenis
Bonjour Éric,
Voici un exemple avec 3 requêtes différentes utilisant des dates dans des variables... Si tu trouves un moyen plus simple de faire d'utiliser un format date, ne te gène surtout pas
Si tu as des gros problèmes à déchiffrer les lignes de code qui risquent d'être coupées, je peux te faire parvenir cet exemple dans un fichier texte.
'------------------------------------------- Sub Macro1()
Dim Requete As String, requete1 As String Dim Début As String, Fin As String
'oui, oui les formats sont bizarres Début = Format(DateSerial(2003, 4, 10), "yyyy-mm-dd 00:00:00") Fin = Format(DateSerial(2003, 4, 20), "yyyy-mm-dd 00:00:00")
'**********2 exemples de requête avec des dates comme critère...les formats sont spéciaux !!! 'pour tes requêtes, tu dois utiliser une variable...pour les contenir 'et utiliser cette variable dans commmandtext= array(Mavariable)
'AA ) Écart entre 2 dates .... début et fin (variables définies plus haut) Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'A ) Écart entre 2 dates .... début et fin (variables définies plus haut) 'Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'}) and (`Feuil1$`.date<{ts '" & Fin & "'})"
'B ) Seulement à modifier le signe > en < ou égal selon la donne du problème. 'requete1 = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'})"
Voici un exemple avec 3 requêtes différentes utilisant des dates dans des variables... Si tu trouves un moyen plus
simple de faire d'utiliser un format date, ne te gène surtout pas
Si tu as des gros problèmes à déchiffrer les lignes de code qui risquent d'être coupées, je peux te faire parvenir cet
exemple dans un fichier texte.
'-------------------------------------------
Sub Macro1()
Dim Requete As String, requete1 As String
Dim Début As String, Fin As String
'oui, oui les formats sont bizarres
Début = Format(DateSerial(2003, 4, 10), "yyyy-mm-dd 00:00:00")
Fin = Format(DateSerial(2003, 4, 20), "yyyy-mm-dd 00:00:00")
'**********2 exemples de requête avec des dates comme critère...les formats sont spéciaux !!!
'pour tes requêtes, tu dois utiliser une variable...pour les contenir
'et utiliser cette variable dans commmandtext= array(Mavariable)
'AA ) Écart entre 2 dates .... début et fin (variables définies plus haut)
Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _
"FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _
"`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'A ) Écart entre 2 dates .... début et fin (variables définies plus haut)
'Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _
"FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _
"`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'}) and (`Feuil1$`.date<{ts '" & Fin & "'})"
'B ) Seulement à modifier le signe > en < ou égal selon la donne du problème.
'requete1 = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _
"FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _
"`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'})"
Voici un exemple avec 3 requêtes différentes utilisant des dates dans des variables... Si tu trouves un moyen plus simple de faire d'utiliser un format date, ne te gène surtout pas
Si tu as des gros problèmes à déchiffrer les lignes de code qui risquent d'être coupées, je peux te faire parvenir cet exemple dans un fichier texte.
'------------------------------------------- Sub Macro1()
Dim Requete As String, requete1 As String Dim Début As String, Fin As String
'oui, oui les formats sont bizarres Début = Format(DateSerial(2003, 4, 10), "yyyy-mm-dd 00:00:00") Fin = Format(DateSerial(2003, 4, 20), "yyyy-mm-dd 00:00:00")
'**********2 exemples de requête avec des dates comme critère...les formats sont spéciaux !!! 'pour tes requêtes, tu dois utiliser une variable...pour les contenir 'et utiliser cette variable dans commmandtext= array(Mavariable)
'AA ) Écart entre 2 dates .... début et fin (variables définies plus haut) Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'A ) Écart entre 2 dates .... début et fin (variables définies plus haut) 'Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'}) and (`Feuil1$`.date<{ts '" & Fin & "'})"
'B ) Seulement à modifier le signe > en < ou égal selon la donne du problème. 'requete1 = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'})"
Voici un exemple avec 3 requêtes différentes utilisant des dates dans des variables... Si tu trouves un moyen plus
simple de faire d'utiliser un format date, ne te gène surtout pas
Si tu as des gros problèmes à déchiffrer les lignes de code qui risquent d'être coupées, je peux te faire parvenir cet
exemple dans un fichier texte.
'------------------------------------------- Sub Macro1()
Dim Requete As String, requete1 As String Dim Début As String, Fin As String
'oui, oui les formats sont bizarres Début = Format(DateSerial(2003, 4, 10), "yyyy-mm-dd 00:00:00") Fin = Format(DateSerial(2003, 4, 20), "yyyy-mm-dd 00:00:00")
'**********2 exemples de requête avec des dates comme critère...les formats sont spéciaux !!!
'pour tes requêtes, tu dois utiliser une variable...pour les contenir 'et utiliser cette variable dans commmandtext= array(Mavariable)
'AA ) Écart entre 2 dates .... début et fin (variables définies plus haut) Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'A ) Écart entre 2 dates .... début et fin (variables définies plus haut) 'Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'}) and (`Feuil1$`.date<{ts '" & Fin & "'})"
'B ) Seulement à modifier le signe > en < ou égal selon la donne du problème.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:utFRD5zKFHA.3340@TK2MSFTNGP14.phx.gbl...
Bonjour Éric,
Voici un exemple avec 3 requêtes différentes utilisant des dates dans des
variables... Si tu trouves un moyen plus
simple de faire d'utiliser un format date, ne te gène surtout pas
Si tu as des gros problèmes à déchiffrer les lignes de code qui risquent
d'être coupées, je peux te faire parvenir cet
exemple dans un fichier texte.
'-------------------------------------------
Sub Macro1()
Dim Requete As String, requete1 As String
Dim Début As String, Fin As String
'oui, oui les formats sont bizarres
Début = Format(DateSerial(2003, 4, 10), "yyyy-mm-dd 00:00:00")
Fin = Format(DateSerial(2003, 4, 20), "yyyy-mm-dd 00:00:00")
'**********2 exemples de requête avec des dates comme critère...les
formats sont spéciaux !!!
'pour tes requêtes, tu dois utiliser une variable...pour les contenir
'et utiliser cette variable dans commmandtext= array(Mavariable)
'AA ) Écart entre 2 dates .... début et fin (variables définies plus haut)
Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _
"FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _
"`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'A ) Écart entre 2 dates .... début et fin (variables définies plus haut)
'Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _
"FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _
"`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'}) and
(`Feuil1$`.date<{ts '" & Fin & "'})"
'B ) Seulement à modifier le signe > en < ou égal selon la donne du
problème.
Voici un exemple avec 3 requêtes différentes utilisant des dates dans des variables... Si tu trouves un moyen plus
simple de faire d'utiliser un format date, ne te gène surtout pas
Si tu as des gros problèmes à déchiffrer les lignes de code qui risquent d'être coupées, je peux te faire parvenir cet
exemple dans un fichier texte.
'------------------------------------------- Sub Macro1()
Dim Requete As String, requete1 As String Dim Début As String, Fin As String
'oui, oui les formats sont bizarres Début = Format(DateSerial(2003, 4, 10), "yyyy-mm-dd 00:00:00") Fin = Format(DateSerial(2003, 4, 20), "yyyy-mm-dd 00:00:00")
'**********2 exemples de requête avec des dates comme critère...les formats sont spéciaux !!!
'pour tes requêtes, tu dois utiliser une variable...pour les contenir 'et utiliser cette variable dans commmandtext= array(Mavariable)
'AA ) Écart entre 2 dates .... début et fin (variables définies plus haut) Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'A ) Écart entre 2 dates .... début et fin (variables définies plus haut) 'Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date>{ts '" & Début & "'}) and (`Feuil1$`.date<{ts '" & Fin & "'})"
'B ) Seulement à modifier le signe > en < ou égal selon la donne du problème.
