Problème de date - Requète SQL

Version imprimable

14/09/2013, 17h33
Invité

Problème de date - Requète SQL

Bonjour le forum,

Je réalise une requête SQL sur un classeur Excel fermé pour récupérer des données.

Dans une colonnes il y a des dates au format 'Français' mais je suppose que le SQL ne prend pas en compte que le même format.
Du coup je me retrouve avec un grand n'importe quoi au niveau des dates.

Y a t-il une astuce pour travailler sur un format unique ?
14/09/2013, 19h39
Invité

Bonsoir vcottineau

Une astuce, je n'en connais pas...
Il faut juste travailler sur les dates au format américain

Code:

MaDate = Format(Date,"mm/dd/yyyy")

A+

Je m'explique:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Private Sub cmbChargement_Click()
 
  Dim strFichier$, strFeuille$, strSQL$, strFileName$
  Dim Cn As ADODB.Connection, Rs As ADODB.Recordset
  Dim strDonnees() As Variant
 
  'Choix du fichier
  strFichier$ = ""
  strFeuille$ = ""
 
  'Connection au fichier Excel source
  Set Cn = New ADODB.Connection
  Set Rs = New ADODB.Recordset
 
  With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
      & strFichier$ & ";Extended Properties=""Excel 12.0;HDR=NO;"""
    .Open
  End With
 
  'Requète pour récupérer les données d'entrées
  strSQL$ = "SELECT * FROM [" & strFeuille$ & "$] WHERE YEAR(F1) = " & strAnnee
  Set Rs = Cn.Execute(strSQL$)
  strDonnees = Application.Transpose(Rs.GetRows)
 
  'Fermeture de la connexion
  Cn.Close
  Set Rs = Nothing
  Set Cn = Nothing
 
  'Copie des données
  With Worksheets("DATA")
    .Range(.[A2], .Cells(UBound(strDonnees, 1) + 1, UBound(strDonnees, 2))) = strDonnees
  End With
 
End Sub

Dans la feuille 'strFeuille$' il y a une colonne avec des dates.
Je n'ai pas la main sur le format des dates dans ce fichier (et elles sont au format 'Français').

Quand je colle le résultat de ma requête dans un autre fichier Excel les dates se retrouvent mélangées entre le format 'Français' et le format 'Anglais'.
Du coup je ne vois pas comment intégrer ta proposition 'BrunoM45'.

15/09/2013, 00h18
Marc-L

Bonjour,

j'ai du mal à visualiser mais pour tout souci de date la fonction CDate est plutôt utile …
15/09/2013, 11h09
Docmarti
Ton problème vient du fait qu'avec le code suivant, tu transfères de VBA à la feuille Excel, tes dates en tant que valeurs STRING et non valeurs DATE.
Code:

1 2 3 4 'Copie des données With Worksheets("DATA") .Range(.[A2], .Cells(UBound(strDonnees, 1) + 1, UBound(strDonnees, 2))) = strDonnees End With
Trouve une autre facon de transférer les valeurs de strDonnees vers la feuille Excel de facon à ne JAMAIS envoyer une date sous format STRING vers une feuille, car Excel interprète alors la date comme étant une date STRING au format américain:

cells(ligne,col).value= CDate(DateValue(DateOutput) & " " & TimeValue(DateOutput))
Code:

1 2 3 4 For i = 0 to ubound(strDonnees) 'Si la valeur est une date cells(ligne,col).value = Cdate (DateValue(strDonnees(i)) & " " & TimeValue(strDonnees(i))) next
CDate(DateValue(DateOutput) & " " & TimeValue(DateOutput))

Cordialement
15/09/2013, 19h28
Invité

Merci 'Docmarti' pour ta proposition qui fonctionne très bien.

Cependant je suis obligé de traiter chaque ligne au lieu de copier directement le tableau.

Y a-t-il une possibilité d'appliquer cette opération sur un tableau que l'on copie dans Excel ?

Parce que le but des requêtes SQL c'était de gagner du temps d’exécution.
15/09/2013, 19h49
Marc-L

Une date dans Excel est d'abord une valeur numérique. Par exemple 41 875 correspond au 1/1/2013 …

Tu pourrais donc aussi ouvrir la feuille en ayant auparavant désactiver le rafraîchissement de l'écran
puis effectuer directement une copie :

ClasseurCopie.FeuilleCopie.RangeDestination.Value2 = ClasseurSource.FeuilleSource.RangeSource.Value2 …
15/09/2013, 19h58
Invité

Sauf que mon 'RangeSource' est une suite de ligne mélangées aléatoirement avec des années différentes et c'est pourquoi je filtre en SQL pour ne garder qu'une seule année.
15/09/2013, 20h54
Marc-L

Oui évidemment …

En dehors de la solution de Docmarti dans la continuité de mon indication (CDate),

tester auparavant de modifier la ligne n° 36 ainsi : .Range(…).Value2 = strDonnees, sait-on jamais …
15/09/2013, 22h06
Docmarti

Essaie de mettre les dates dans un tableau de type DATE puis de remplacer par ce tableau les dates de type STRING et d'attribuer le format "m/d/yyyy" aux cellules destination. Car il semble que les dates du tableau de type date soient interprétées comme étant de type DOUBLE.
15/09/2013, 23h32
Invité

convertis tes dates au format internationnale derctement dans ta requête

Code:

sql ="select format(date,'yyyy-mm-dd hh:mm:ss') as dates,...
16/09/2013, 00h11
Invité

Citation:

Envoyé par rdurupt

convertis tes dates au format internationnale derctement dans ta requête

Code:

sql ="select format(date,'yyyy-mm-dd hh:mm:ss') as dates,...

Super ça marche. Merci à vous !
16/09/2013, 00h43
78chris
Bonjour

A quoi sert la ligne 27 ?

Chez moi elle plante.

Si je la remplace par
Code:

1 2 3 With Worksheets("DATA") Range("A2").CopyFromRecordset Rs End With
je récupère bien les lignes avec des dates au bon format...
16/09/2013, 10h43
Invité

Je ne connaissais pas cette méthode.
Effectivement elle fonctionne du premier coup.

Merci pour cette proposition que je garde.
16/09/2013, 11h07
Marc-L

Il manque un point devant le Range. :?

Sinon autant le faire directement en une seule ligne : Worksheets("DATA").Range("A2").CopyFromRecordset Rs …
16/09/2013, 11h13
78chris

Bonjour

Citation:

Envoyé par Marc-L

Il manque un point devant le Range. :?

Sinon autant le faire directement en une seule ligne : Worksheets("DATA").Range("A2").CopyFromRecordset Rs …

Effectivement je l'ai vu après avoir posté mais ai oublié de rectifier...
C'est bien tu veilles...

Au passage, coucou à Bruno45 que j'ai oublié de saluer...
16/09/2013, 14h43
Docmarti

Citation:

Envoyé par Docmarti

Essaie de mettre les dates dans un tableau de type DATE puis de remplacer par ce tableau les dates de type STRING et d'attribuer le format "m/d/yyyy" aux cellules destination. Car il semble que les dates du tableau de type date soient interprétées comme étant de type DOUBLE.

Correction : Mettre plutôt les dates dans un tableau de type VARIANT. Les dates du tableau de type VARIANT sont interprétées correctement lorsque transmises à une feuille Excel à partir de VBA.