Discussion :

[NATOU2]

Bonjour,

Je travaille sur l'importation d'un query AS400 où les dates sont inversées soient 20080102 pour 02/01/2008.

Y a t-il une fonction intégrée dans Access permettant de passer d'un format à l'autre ou faut-il absolument passer par la création d'une fonction personnalisée ?

Merci d'avance à tous

[Jean-Philippe André]

bonjour,
tu as la fonction format() qui répond à ta demande il me semble.

Tu auras pour l'un

Code :

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

Format(MaDate,"yyyymmdd")

et pour l'autre

Code :

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

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

[NATOU2]

Bonjour,

La fonction Format ne fonctionne pas, je crois que c'est parce que les champs date de l'AS400 (ex. 20080102) s'exporte en format numérique dans ACCESS.

Comment puis-je faire pour qu'il considère 20080102 comme une date ?

[Jean-Philippe André]

tu peux le traiter en tant que text (fonction Cstr), puis le traiter par bloc pour le transformer en date... mais on passe effectivment par une focntion personnalisée.

[Invité]

Bonjour

Deux fonctions à tester

Ton entrée est un champ de type texte

Code :

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

1
2
3
4
Public Function TransDate(strDate As String) As Date
    TransDate = DateSerial(Left(strDate, 4), Mid(strDate, 5, 2), Right(strDate, 2))
    TransDate = Format(TransDate, "dd/mm/yyyy")
End Function

Ton entrée est un champ de type numérique

Code :

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

1
2
3
4
Public Function TransDateV2(lngDate As Long) As Date
    TransDateV2 = DateSerial(Left(CStr(lngDate), 4), Mid(CStr(lngDate), 5, 2), Right(CStr(lngDate), 2))
    TransDateV2 = Format(TransDateV2, "dd/mm/yyyy")
End Function

Starec

[NATOU2]

Bonjour à tous,

Donc, il faut bien que je passe par une fonction personnalisée, aucune fonctions déjà intégrées dans Access ne permet de faire la conversion.

Mon souci est le suivant : je me suis aperçu que, contrairement à une fonction intégrée, on ne peut pas importer dans Excel des requêtes qui contiennent des fonctions personnalisées (soit on ne peut pas faire de liaison ODBC sur la requête, soit on peut mais le champ utilisant la fonction ne s'importe pas).

Alors je sais bien que l'on peut exporter les données depuis Access sur Excel mais c'est tellement génial de faire une connection depuis Excel sur Access et de faire actualiser les données automatiquement à l'ouverture du fichier Excel...que j'essaie de trouver un moyen de pouvoir le faire le + souvent possible.

D'autres solutions ?