Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

extraction de dates

J

jlm38070

XLDnaute Nouveau
Bonjour,
Je fais partie d'une association qui rédige des biographies de personnes mortes en France durant la seconde guerre mondiale, le Maitron des fusillés.
Il est possible de récupérer des données au format txt.
J'utilise Excel pour récupérer les données et les"saucissonner". J'utilise pour cela les différents séparateurs : point-virgule, virgule...
La première finalité est de récupérer les lieux de décès afin de réaliser des cartes. Jusque là, je m'en sors à peu près.
Voici par exemple une carte que j'ai réalisée ces derniers jours. La chronologie a été faite "à la main". https://fr.batchgeo.com/map/98f88d384fa879421441b9814c9fbb5a
Mais je voudrais pouvoir extraire les dates de naissance et les dates de décès. Pour les premières, afin d'établir des statistiques relatives à l'âge au moment du décès, pour les secondes pour établir des chronologies.

Les dates sont au format jj mois aaaa, le mois étant écrit en toutes lettres. C'est une convention de rédaction et il y a déjà plus de 30000 notices biographiques.

Je joins un fichier pour exemple, avec quelques lignes, mais le traitement est susceptible de s'appliquer à des tableaux de plusieurs centaines, voire milliers de lignes !

Je vous remercie de votre aide car, sans être un néophyte (j'ai commencé avec Works et Windows 95 !), je suis laaaaaargement dépassé.
 

Pièces jointes

  • Demo jlm38070.xlsx
    10.3 KB · Affichages: 10
Trier par date Trier par votes

chris

XLDnaute Barbatruc
Bonjour

Tu peux joindre un ou deux txt d'origine

Avec PowerQuery on a cela en quelques clics (il traite bien les dates si pas d'accent manquant)

on remet la date en texte car Excel ne sait pas traiter les dates en deça de 1900 mais on ourrait calculer l'âge dans PQ

Quelle version Excel as-tu ?
 
Dernière édition:
Vote positif 1 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour JLM, Chris,
Un essai en PJ avec des fonctions personnalisées en VBA.
Explication dans le fichier, avec les syntaxes.
Attention, XL ne maitrise pas les dates avant 1900, j'ai donc calculé l'âge en VBA.
 

Pièces jointes

  • Demo jlm38070.xlsm
    18 KB · Affichages: 2
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
bonsoir @sylvanu
vba reconnaît très bien les dates avec mois en lettres si c'est bien orthographié

que ce soit avec cdate ou datevalue

VB: 
Sub test()
MsgBox ExtraitDate("né le 7 décembre 1969 a paris ")
End Sub

Function ExtraitDate(N)
tablo = Split(N, " ")
    For i = 0 To UBound(tablo)
        If IsNumeric(tablo(i)) Then Exit For
    Next i

ExtraitDate = CDate(tablo(i) & " " & tablo(i + 1) & " " & tablo(i + 2))
'ou
'MsgBox DateValue(tablo(i) & " " & tablo(i + 1) & " " & tablo(i + 2))
End Function

pour la fonction age ( va jusqu'a 1800)

Date et heure - DATEDIFF_AMJ4

Bonjour a tous j'avais fait une fonction "DATEDIFFAMJ" il y a quelque temps pour obtenir la différence entres deux date ans mois et jour et un demandeur a faite une demande concernant la différence entre deux dates sauf que lui avait besoins de faire la différence de dates 1 et 2 (entre...
excel-downloads.com
 
Vote positif 0 Vote négatif
J

jlm38070

XLDnaute Nouveau
Bonjour et merci à tous de votre aide,

Je réponds avant d'avoir essayé les solutions que vous proposez.
J'ai la dernière version Excel (ordi neuf avec Office 365), ce qui ne va pas sans me poser quelques problèmes.
Je suis, par exemple incapable de changer le suffixe d'un fichier.
Le fichier que je joins est un fichier txt mais le suffixe qui est imposé est .xls
Il est sans aucune modification.

Pardonnez mon ignorance mais si j'ai une idée de ce qu'est VBA, je ne sais pas ce qu'est PowerQuery.
 

Pièces jointes

  • export_veille_301122_10 24 43.xls
    1.7 KB · Affichages: 9
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Bonjour,

patricktoulon à dit:
comme tu peux le voir on a un soucis là
Cliquez pour agrandir...
Il a dit que c'était un .txt, donc forcément si tu l'ouvres en tant que .xls, ça doit poser problème.
Commence par remettre la bonne extension avant d'ouvrir le fichier.


patricktoulon à dit:
je me demande bien pourquoi avec office 365 on t'impose l'extension ("xls" version anterieur à 2007)
Cliquez pour agrandir...
Il n'a jamais dit qu'Office 365 lui imposait du .xls.
Enfin... je n'ai pas vu ça en tout cas.
 
Dernière édition:
Vote positif 0 Vote négatif
J

jlm38070

XLDnaute Nouveau
Bonjour Patricktoulon et Chris,

Je sais bien, et ça m'énerve.
Je viens d'essayer la solution de Chris, ça fonctionne super bien !
Il a fallu déjouer les diverses sécurités pour pouvoir utiliser les macros.

Merci vraiment, vraiment.

Je vais pouvoir analyser aisément les données du point de vue de l'âge, et les trier en fonction des dates de décès.
C'est exactement ce que je voulais.
 
Vote positif 0 Vote négatif
J

jlm38070

XLDnaute Nouveau
TooFatBoy à dit:
Tu as bien dit que le fichier joint était .txt ?

C'est normal que le fichier comporte plein de noms de gens et des liens internet ???
Cliquez pour agrandir...
Oui, c'est un .txt, ça marche aussi avec .csv
Le fichier contient à chaque ligne :
N° de notice biographique, Nom, prénom, pseudonyme le cas échéant, date et lieu de naissance, mode de mort date et lieu de décès, profession, engagement (ou pas), URL vers la notice en ligne
Ce sont des données qui viennent du site Maitron des fusillés, dont je suis un des rédacteurs.
 
Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc
Bonjour
Pour joindre des txt ici, il faut les zipper et joindre le zip

Powerquery n'est pas du VBA ni des macros

Ci-joint exemple fait directement depuis ton fichier txt
Modifie le chemin en jaune sur Feuil1 puis Données, Actualiser Tout
Tu peux ensuite tester avec un autre fichier

En cas de message d'erreur
Lancer PowerQuery, Fichier, Options et paramètres, Options de requête, partie GLOBAL : Confidentialité, Toujours ignorer les paramètres de niveau de confidentialité

Cela supprimera le message d'erreur
Cette option par défaut de niveau de confidentialité ne sert à rien dans 99% des cas sauf à créer des problèmes

EDIT : j'ai laissé les dates de naissance en dates mais si tu veux les garder dans Excel, on peut mettre en texte sinon cela affichera des erreurs pour les dates antérieures à 1900
 

Pièces jointes

  • Demo_jlm38070_PQ.xlsx
    22.1 KB · Affichages: 2
Dernière édition:
Vote positif 1 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
oui on avait compris
avant tout il faut remasteriser tes fichier(txt ou csv)
car chaque ligne n'a pas le meme nombre de colonne
il faut donc corriger tout cela

sinon ca va être une torture a travailler
alors faire des replace "Né le " par "; Né le"
"mort " par ";mort "
"https"par ";https"
ect..ect...
ainsi tu pourra les exploiter en tant que csv

si joint un fichier dans le quel tu a des fonctions et une sub test

  1. lance la sub test
  2. le dialog s'ouvre et choisi le fichier txt ou csv (j'ai prevu les deux)
  3. ensuite tu a un message te demandant si tu veux voir le fichier remasterisé )
  4. si tu repond oui le fichier s'ouvrira en tant que csv
les colonnes seront bien distinctes
tu constatera aussi que les dates sont au format "jj/mm/aaaa"
on pourra ajouter aussi des expressions que je n'ai pas eu a gérer avec l'exemple de fichier que tu a donné

il te sera plus facile de retravailler sur des fichier csv en bon et due forme
on pourrait si tu veux ajouter la possibilité de remastériser tout tes fichier à la volée
c'est quasi instantané
ton csv au depart ouvert dans blocknote
on est d'accords que c'est compliqué il manque des séparateur et sur certaines ligne des hero de histoire il manque des données
voici après être passer par mes fonctions ouvert dans excel
comme tu peux le voir chaque colonne a un type de donnée
 

Pièces jointes

  • fich 3945.xlsm
    22.2 KB · Affichages: 2
Vote positif 0 Vote négatif
J

jlm38070

XLDnaute Nouveau
Je viens de faire un essai avec un fichier de plus de 100 lignes.
Il y a effectivement des erreurs pour les dates antérieures à 1900.
Du coup, j'hésite entre ta première solution et la suivante.
Hélas oui, nos notices ne sont pas assez rigoureusement rédigées. Nous le savons et essayons d'y remédier.
J'ai pensé à utiliser les espaces comme séparateurs pour créer des colonnes.
Je vais tester ta solution.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
Power Query extraction de donnees particulieres
Réponses
4
Affichages
413
Moi69
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
250
vgendron
G
  • Question
XL 2016 Comment concaténer plusieurs dates (provenant d'une formule) de différentes cellules en une seule cellule?
Réponses
4
Affichages
213
JHA
J
Y
  • Question
XL 2013 Récupérer les bornes d'une chronologie
Réponses
0
Affichages
434
Yvan1
Y
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
220
Etoto
P
  • Question
XL 2019 Ecart de dates+moyenne dans un TCD
Réponses
4
Affichages
456
JHA
J
  • Résolu(e)
XL pour MAC Fusion de 2 feuilles dont l'une est issue de Power Query
Réponses
5
Affichages
410
chris
N
  • Question
XL 2019 Aide pour optimiser mon tableau Excel de suivi d'activité
Réponses
6
Affichages
313
Nicolaasss
N
R
  • Question
XL 2021 Récupérer des données dans plusieurs classeurs sans les ouvrir - Résolu
Réponses
10
Affichages
465
job75
  • Question
Microsoft 365 Calcul de moyenne avec prise en compte de dates
Réponses
9
Affichages
281
Fipat
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…