Discussion :

[Invité]

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 ?

[Invité]

Bonsoir vcottineau

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[Invité]

Je m'explique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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'.

[Marc-L]

Bonjour,

j'ai du mal à visualiser mais pour tout souci de date la fonction CDate est plutôt utile …

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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 …

[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.

[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 …

[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.

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Super ça marche. Merci à vous !

[78chris]

Bonjour

A quoi sert la ligne 27 ?

Chez moi elle plante.

Si je la remplace par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Invité]

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

Merci pour cette proposition que je garde.

[Marc-L]

Il manque un point devant le Range.

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

[78chris]

Bonjour

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...

[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.