vba - récupération de date dans bd vers excel

[philppe27]

Bonjour,

Je dois extraire des dates d'une base de données avec sql serveur 2008 et j'utilise la fonction vba ci-dessous pour traiter les dates que je récupère vers Excel.


"Public Function F_Date(wDate As Variant) As String
'transforme une date pour ecriture dans la base de données
On Error GoTo erreur

If IsNull(wDate) Then 'date non renseignée
F_Date = "Null"
ElseIf IsDate(wDate) Then
If pTypeBD = "ACCESS" Then 'Access 97,2000
F_Date = "#" & Format(wDate, "yyyy/mm/dd hh:nn:ss") & "#"
ElseIf pTypeBD = "SQL-SERVER" Then 'SQL Server 7.0
F_Date = "Convert(DateTime,'" & Format(wDate, "dd/mm/yyyy hh:nn:ss") & "',103)"
Else 'Autre
F_Date = wDate
End If
Else 'erreur, pas de type date
F_Date = "Null"
End If
Exit Function

erreur:
'Ecriture dans le Journal d'événements
F_Date = "Null"
End Function"

Le résultat n'est pas probant, car la plupart du temps, le mois et le jour que je récupère sont inversés mais pas toujours... (lorsque la date du jour est < 10, je crois...)

Pouvez vous m'aider je patauge ... Merci d'avance,

Cordialement