J'aimeris faire une suite de queries en VBA à partir d'une date
donnée jusqu'à une date finale et pour cela il me faut
tester à chaque fois si la date tombe sur un weekend
(ou un jour férié) . Malheureusement la fonction
"weekday" ne semble pas réconnaître le "formatage"
de mes dates (du type jj.mm.aaaa) et renvoie
parfois des réponses "formatéée" mm.jj.aaaa et
parfois jj.mm.aaaa (dès que j'éssaie de m'adapter)
Comment donc rendre les dates univoques pour
cette fonction ?
Merci pour votre aide .
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 JeNeVois,
Tu aurais avantage à préciser la nature de ton problème ... et si tu utilises un bout de code, pourquoi ne pas le publier ici... moi ne n'ai pas compris ce que tu voulais....
Mais si tu as un problème à faire reconnaître tes dates dans une requête par Query, tu peux utiliser ceci ...
Dim Requete As String, requete1 As String Dim Début As String, Fin As String
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")
'Syntaxe d'une requête : ÉGAL À UNE DATE Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'É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 & "'})"
Attention aux coupures de ligne effectuée par le service de messagerie.
Salutations!
"JeNeVois" a écrit dans le message de news:
Bonsoir,
J'aimeris faire une suite de queries en VBA à partir d'une date donnée jusqu'à une date finale et pour cela il me faut tester à chaque fois si la date tombe sur un weekend (ou un jour férié) . Malheureusement la fonction "weekday" ne semble pas réconnaître le "formatage" de mes dates (du type jj.mm.aaaa) et renvoie parfois des réponses "formatéée" mm.jj.aaaa et parfois jj.mm.aaaa (dès que j'éssaie de m'adapter) Comment donc rendre les dates univoques pour cette fonction ? Merci pour votre aide .
Bonjour JeNeVois,
Tu aurais avantage à préciser la nature de ton problème ...
et si tu utilises un bout de code, pourquoi ne pas le publier
ici... moi ne n'ai pas compris ce que tu voulais....
Mais si tu as un problème à faire reconnaître tes dates dans
une requête par Query, tu peux utiliser ceci ...
Dim Requete As String, requete1 As String
Dim Début As String, Fin As String
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")
'Syntaxe d'une requête : ÉGAL À UNE DATE
Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _
"FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _
"`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'É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 & "'})"
Attention aux coupures de ligne effectuée par le service de messagerie.
Salutations!
"JeNeVois" <JeNeVois@discussions.microsoft.com> a écrit dans le message de news:
32A8924C-CF3C-4A89-8A10-DE412480B34D@microsoft.com...
Bonsoir,
J'aimeris faire une suite de queries en VBA à partir d'une date
donnée jusqu'à une date finale et pour cela il me faut
tester à chaque fois si la date tombe sur un weekend
(ou un jour férié) . Malheureusement la fonction
"weekday" ne semble pas réconnaître le "formatage"
de mes dates (du type jj.mm.aaaa) et renvoie
parfois des réponses "formatéée" mm.jj.aaaa et
parfois jj.mm.aaaa (dès que j'éssaie de m'adapter)
Comment donc rendre les dates univoques pour
cette fonction ?
Merci pour votre aide .
Tu aurais avantage à préciser la nature de ton problème ... et si tu utilises un bout de code, pourquoi ne pas le publier ici... moi ne n'ai pas compris ce que tu voulais....
Mais si tu as un problème à faire reconnaître tes dates dans une requête par Query, tu peux utiliser ceci ...
Dim Requete As String, requete1 As String Dim Début As String, Fin As String
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")
'Syntaxe d'une requête : ÉGAL À UNE DATE Requete = "SELECT `Feuil1$`.Société, `Feuil1$`.Date" & vbCrLf & _ "FROM `" & ThisWorkbook.FullName & "`.`Feuil1$`" & _ "`Feuil1$` WHERE (`Feuil1$`.date={ts '" & Début & "'}) "
'É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 & "'})"
Attention aux coupures de ligne effectuée par le service de messagerie.
Salutations!
"JeNeVois" a écrit dans le message de news:
Bonsoir,
J'aimeris faire une suite de queries en VBA à partir d'une date donnée jusqu'à une date finale et pour cela il me faut tester à chaque fois si la date tombe sur un weekend (ou un jour férié) . Malheureusement la fonction "weekday" ne semble pas réconnaître le "formatage" de mes dates (du type jj.mm.aaaa) et renvoie parfois des réponses "formatéée" mm.jj.aaaa et parfois jj.mm.aaaa (dès que j'éssaie de m'adapter) Comment donc rendre les dates univoques pour cette fonction ? Merci pour votre aide .
