Discussion :

[Ghis7]

Bonjour,

j'ai importé un fichier Excel (liée à la source) dans une base Access. Dans mon fichier Excel, je gère des auteurs avec des dates <1900 (1885-1886) au format date jj/mm/aaaa dans Excel.
ma base de recherche Access fonctionne quand je recherche un auteur né >1900. mon auteur (nom,prénom,date) s'affiche correctement : Prévert Jacques 04/02/1900.
Mais quand je cherche un auteur né en 1800. rien ne s'affiche ! . ni le nom, ni le prénom, ni la date.

Comment afficher dans un sous formulaire avec comme source une requête, les date <1900 d'un fichier Excel ?

j'ai fait une recherche sur le forum et dans la faq et j'ai pas trouvé.

[loufab]

Bonjour,

Comment vous procédez pour arriver à ce résultat ?

Cordialement,

[Ghis7]

Bonjour,

j'ai une base avec 2 fichiers EXCEL attachés, 1 formulaire,1 sous formulaire, 3 requêtes dont 1 union et un bouton recherche:



Voici le formulaire :



Quand je marque un nom et que je clique sur le bouton s'affiche les auteurs mais il y en avec des date en 1800 comme DUPONT GEORGES (flèche rouge) la date n'apparait pas .

les requêtes sont simples avec des critères de recherche sur une zone texte : Comme '*' & [Formulaires]![F_Recherche]![ZTexte_Nom] & '*'
la requêtes union est mis en place en cas de données trop importantes.

Si je tape le nom dupont dans la zone texte les dates <1900 n'apparaisse pas

j'espère que c'est claire ?

[tee_grandbois]

bonsoir,
dans Excel, le monde commence le 01/01/1900, donc toute date antérieure n'est pas reconnue. C'est bien connu et c'est expliqué ici chez Microsoft et là dans le forum.
Dans la cellule de tes fichiers elle est d'ailleurs affichée avec cadrage à gauche comme tout texte et un format date est sans effet comme tu le vois:



le mieux serait d'importer tes fichiers dans des tables Access qui reconnait les dates à partir de 01/01/100.

Attention quand même: étant donné que la date dans Excel est du texte, cela n'indiquera pas les éventuelles erreurs de saisie (risques d'erreur d'importation)

[Ghis7]

Oui je sais que Excel ne prend en compte que les date à partir de 1900. Mais je dois travailler sur des fichiers Excels attaché j'ai pas le choix. si non j'aurais déjà importé toutes les données en format Access.
Mais je pensais que dans les critères des requêtes en format date, je pouvais faire un code pour afficher la date en créant un format spécifique comme un sous formulaire visible ou invisible.

Dans une cellule Excel la date est visible. donc elle existe, et si on peut rendre cette date visible avec un code comme une macro qui transforme la date comme dans le calcul de l'age sur une date en 1800 sur Excel.
Sur un site il crée une macro en incluant un ajout de 1900 sur une date en 1800 pour que Excel puisse calculer l'âge d'une personne née en 1800.

si Access accepte les dates en 1800 et que cette date est sur le fichier Excel attaché, n'y a t_il pas un code pour la rendre visible ?

[tee_grandbois]

effectivement, les dates sont correctement vues dans Access ... Peux-tu poster ce que contient exactement une cellule Excel depuis la barre de formule ?
Peut-on voir également le SQL de tes requêtes ?

[Ghis7]

Bonjour,

Voila pour le fichier Excel BaseDonnéeB pour :

Code :

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

1
2
3
 
nom          prenom      datenaiss                 date de deces     Style            Boite
DUPONT    GEORGES    25/09/1890   H	01/07/1960        MAGAZINE    53

Voici la barre de formule pour la date de naissance (25/09/1890) : 25/09/1890

la date est au format Date - type - *00/00/0000

et pour la requete Base B en sql :

Code :

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

1
2
3
SELECT BASEB.[NOM USAGE], BASEB.[NOM NAISSANCE], BASEB.PRENOM, BASEB.[DATE NAISS], BASEB.SEXE, BASEB.[DATE DECES], BASEB.STYLE, BASEB.BOITE
FROM BASEB
WHERE (((BASEB.[NOM USAGE]) Like '*' & [Formulaires]![F_Recherche]![ZTexte_Nom] & '*') AND ((BASEB.PRENOM) Like '*' & [Formulaires]![F_Recherche]![ZTexte_Prenom] & '*'));

je pensais qu'avec une macro on pouvais rendre les dates 1800 des fichiers excels visibles en les transformant ou en inserant un calcul comme 1900 rajouter pour le calcul de l'age sur un site..

Merci à tous pour vos réponses ! si vous avez une solution ! je vais chercher de mon côté !

[tee_grandbois]

bonsoir,
je ne vois rien d'anormal à ce stade, mes dates s'affichent bien mais je n'ai pas utilisé de requête Union et j'utilise Access 365:



Quelle est ta version d'Access ?

Peut-être faut-il utiliser la fonction de conversion de date: CVDate (CDate en anglais) ? comme ceci :

Code :

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

1
2
3
SELECT BASEB.[NOM USAGE], BASEB.[NOM NAISSANCE], BASEB.PRENOM, CDate(BASEB.[DATE NAISS]) AS DATE_NAISS, BASEB.SEXE, BASEB.[DATE DECES], BASEB.STYLE, BASEB.BOITE
FROM BASEB
WHERE (((BASEB.[NOM USAGE]) Like '*' & [Formulaires]![F_Recherche]![ZTexte_Nom] & '*') AND ((BASEB.PRENOM) Like '*' & [Formulaires]![F_Recherche]![ZTexte_Prenom] & '*'));

et afficher le résultat de la requête, juste pour voir ce que ça donne.

[Ghis7]

Bonsoir,

Ma version access est 2019. j'ai testé ton code et voici la différence :

Ton code :

Code :

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

1
2
3
 SELECT BASEB.[NOM USAGE], BASEB.[NOM NAISSANCE], BASEB.PRENOM, CDate(BASEB.[DATE NAISS]) AS DATE_NAISS, BASEB.SEXE, BASEB.[DATE DECES], BASEB.STYLE, BASEB.BOITE
FROM BASEB
WHERE (((BASEB.[NOM USAGE]) Like '*' & [Formulaires]![F_Recherche]![ZTexte_Nom] & '*') AND ((BASEB.PRENOM) Like '*' & [Formulaires]![F_Recherche]![ZTexte_Prenom] & '*'));

Cela donne dans la Cellule : #Nombre !



Et avec mon code la Cellule n'affiche rien !

En tout cas ton code affiche déjà quelque chose !

La requête Union est la combinaison des 2 requêtes pour un nombre de données importante ! là elle ne sert encore a rien..

Je continue à chercher

[tee_grandbois]

bonsoir,

En tout cas ton code affiche déjà quelque chose !

oui, si on veut: #Nombre ! indique une erreur de donnée dans la cellule, la date n'est donc pas reconnue

Autre piste: n'y aurait-il pas un caractère non visible caché dans la cellule ? Peux-tu essayer d'effacer la cellule et la re-saisir ?i
Sinon je n'ai pas d'autre idée

[Ghis7]

Bonsoir,

Non cela n'a rien changer. j'ai effacer la cellule je l'ai mis en format date abrégé sur Excel *00/00/0000 et toujours le même contenu sans ton code la cellule est vide et avec ton code j'ai #Nombre! . je vais continuer mes recherches..Merci pour tes réponses. si je trouve la solution je le mettrais ici si la discussion n'est pas clôturé