Plaats reactie

Générer arbre automatique (sous Excel) à partir du GEDCOM

pascalissimo
male
Berichten: 6
Stamboom : Grafisch
Stamboom bekijken
Bonjour à la communauté
Je mets à votre disposition un fichier Excel que j'ai réalisé pour me permettre d'imprimer automatiquement les ascendants d'une personne sur 5 générations.
Il suffit de générer le fichier GEDCOM depuis Geneanet et de l'enregistrer sur son ordinateur au même endroit que le fichier Excel.
Ensuite un bouton permet d'importer le GEDCOM, et un autre de générer la liste des individus et des familles.

Après, il suffit de choisir dans un menu déroulant l'individu à partir duquel on souhaite générer l'arbre.

Il existe déjà probablement un tas d'autres outils, mais celui-ci répondait à mon besoin.
Je le partage avec plaisir et pourrai le faire évoluer si besoin.

N'hésitez pas à me contacter (adresse et mode d'emploi dans le fichier)

Bien cordialement.
Bijlagen
notice.PNG
générateur.xlsm
v 1.1
(64.11 KiB) 6 keer gedownload
générateur 1_2.xlsm
v1.2
(66.84 KiB) 3 keer gedownload
générateur 1_3.xlsm
v1.3
(68.77 KiB) Nog niet gedownload
générateur 1_4b.xlsm
v 1.4b (gestion affichage dates calendriers alternatifs)
(75.74 KiB) 3 keer gedownload
Laatst gewijzigd door pascalissimo op 16 juni 2020, 10:07, 5 keer totaal gewijzigd.

oau
oau
Berichten: 2525
Stamboom : Niet grafisch
Stamboom bekijken
Bonjour,

Lors de l'import gedcom utilisez vous le non rafraichissement ?
Application.ScreenUpdating = False ' Exécution sans rafraîchissement

Parce que cela a mouliné longtemps pour mon gedcom (17,7 mega)

Ensuite cela a planté au step 2 "générer INDIV et FAM"
1.JPG
Sur cette ligne
2.JPG
prenom contient Charles
contenu contient 1 NAME MarieE
slash1 contient 0

OAU

Edit : J'ai excel 2007

Edit 2 : MarieE est un alias => https://gw.geneanet.org/oau?lang=fr&p=madeleine&n=villez

Il y a 2 lignes NAME dans le gedcom et pas de /

0 @I1310@ INDI
1 NAME Marie "Madeleine" /Villez/
1 NAME MarieE
1 SEX F
1 BIRT
2 DATE 25 JUN 1768
2 PLAC Illiers-l'Evêque, 27350, Eure, Normandie, France
3.JPG
Edit 3 : Après suppression des lignes "1 NAME MarieE" cela plante sur "Sub tri_nom()" Je suis passé outre.

Cela se termine mais il n'y a que 52 individus dans l'onglet "INDIV"...Cela ne fait pas beaucoup

Dans le menu déroulant de l'onglet notice...il n'y a rien.

pascalissimo
male
Berichten: 6
Stamboom : Grafisch
Stamboom bekijken
Bonsoir OAU

Suite à vos remarques, je viens de générer une version 1.2.
Je bloque effectivement le rafraîchissement d'écran.
En fonction de la taille du GEDCOM cela peut prendre un certain temps.
Le mien ne contient que 7000 lignes et s'exécute en quelques secondes.
Il est possible également dans le cas de gros fichiers que le calcul automatique ralentisse le processus.
Je l'ai donc désactivé dans la nouvelle version.

Concernant la ligne NAME, je n'ai pas eu dans mon export de NAME sans /.
Je ne savais pas que c'était possible. Probablement parce que c'est un alias.
Je tiens donc compte dans la v1.2 de ce cas.

La cause du problème de tri vient probablement de la version MS 2007.
Je l'ai donc dissocié du programme principal.
Le tri permet d'avoir un tri alphabétique dans le déroulant.
Il suffit donc de le faire manuellement.

Je vous joins la version 1.2.

Cordialement.

Pascal
Bijlagen
générateur.xlsm
v 1.2
(66.84 KiB) 6 keer gedownload

oau
oau
Berichten: 2525
Stamboom : Niet grafisch
Stamboom bekijken
Bonjour,

Bravo pour votre extrême rapidité de réponse :o

Vos correctifs marchent très très bien, j'ai pu arriver au bout des imports et j'ai généré les planches sans problème.

Le résultat est très bien, bravo :D . Je n'ai pas pu tester à l'impression, n'ayant pas cet appareil.

Est-il possible de :
- Mettre des pop-up de bonne fin à l'import de gedcom et génération des planches, comme pour la génération INDIV et FAM ?
- d'en mettre une au démarrage de chaque étape, du style "travail en cours merci de patienter jusqu'à la fin, cela peut être long suivant la taille du gedcom". Pour ne pas être surpris du temps.
- Supprimer les "@#dfrench r@" lors de la création des planches ?
- Allonger la plage de sélection du menu déroulant ? J'ai 34919 individus et cela s’arrête au 599.

OAU

pascalissimo
male
Berichten: 6
Stamboom : Grafisch
Stamboom bekijken
Bonjour
La version 1.3 intègre ces nouvelles fonctionnalités :
- ajout panneau d'attente et message de traitement terminé,
- automatisation de la taille du menu déroulant,
- ajout bouton d'effacement (avec confirmation).

En revanche OAU je ne vois pas ce que signifie : Supprimer les "@#dfrench r@" lors de la création des planches ?
Je n'ai pas ce souci et donc ne vois pas comment y remédier.
Pouvez-vous m'envoyer en BAL perso une copie d'écran ?

Cordialement.

Pascalissimo
Bijlagen
générateur 1_3.xlsm
v 1.3
(68.78 KiB) 9 keer gedownload

baufretong
baufretong
Berichten: 370
Stamboom : Niet grafisch
Stamboom bekijken
Bonsoir,
Je viens de regarder votre fichier Excel
Excellent travail
Quelques petites remarques
Je suis avec Excel 2007.
Il faudrait supprimer le "Debug.Print ligne_indi" dans la procédure "generer_donnees()"
Sur env 3300 individus, j'ai gagné 20 à 30 secondes sans le debug (2 tests)

Pour le tri, effectivement je crois que la méthode Add2 n'est pas compatible avec la version 2007, j'ai modifié avec Add
Pourquoi pour le premier tri (noms) la plage est de B2:B5000 et pour le 2eme tri (prénoms) C2:C55000, (finger mistake?)

J'ai remarqué un souci sur les planches, je n'ai pas toutes les ascendances alors que celles-ci existent.
Exemple
Sur geneanet:
Capture1.JPG
Sur la feuille "Planche" du fichier excel
Capture.JPG
Je pense que cela vient que l'individu a plusieurs unions (dans l'exemple M-R POUPELIN)

Gilles
Logiciel de généalogie :webtrees 1.7.15 - En local
OS: Windows10 (occasionnellement Linux)
Navigateur: en priorité Firefox (dernière version si possible) et Google Chrome

baufretong
baufretong
Berichten: 370
Stamboom : Niet grafisch
Stamboom bekijken
Je pense que le probleme des ascendants doit venir de la fonction recherche_parents(l,s)

Code: Selecteer alles

famille = Sheets("INDIV").Range("H" & ligne).Value
Il n'y a qu'une recherche dans la colonne H (DESC1), alors qu'il y a 3 autres colonnes à vérifier I-J-K
Pour l'exemple que j'ai donné, le numero de famille correspondant se trouve en colonne I (DESC2), donc n'est pas trouvé.

Gilles
Logiciel de généalogie :webtrees 1.7.15 - En local
OS: Windows10 (occasionnellement Linux)
Navigateur: en priorité Firefox (dernière version si possible) et Google Chrome

oau
oau
Berichten: 2525
Stamboom : Niet grafisch
Stamboom bekijken
pascalissimo schreef:
15 juni 2020, 09:23

En revanche OAU je ne vois pas ce que signifie : Supprimer les "@#dfrench r@" lors de la création des planches ?
Je n'ai pas ce souci et donc ne vois pas comment y remédier.
Pouvez-vous m'envoyer en BAL perso une copie d'écran ?
Bonsoir;

Voilà
(et ajouter un blanc avant le tiret, OK je chipote :P )
Capture.JPG
OAU

pascalissimo
male
Berichten: 6
Stamboom : Grafisch
Stamboom bekijken
baufretong schreef:
15 juni 2020, 18:44
Bonsoir,
Je viens de regarder votre fichier Excel
Excellent travail
Quelques petites remarques
Je suis avec Excel 2007.
Il faudrait supprimer le "Debug.Print ligne_indi" dans la procédure "generer_donnees()"
Sur env 3300 individus, j'ai gagné 20 à 30 secondes sans le debug (2 tests)

Pour le tri, effectivement je crois que la méthode Add2 n'est pas compatible avec la version 2007, j'ai modifié avec Add
Pourquoi pour le premier tri (noms) la plage est de B2:B5000 et pour le 2eme tri (prénoms) C2:C55000, (finger mistake?)

J'ai remarqué un souci sur les planches, je n'ai pas toutes les ascendances alors que celles-ci existent.
Exemple
Sur geneanet:
Capture1.JPG
Sur la feuille "Planche" du fichier excel
Capture.JPG
Je pense que cela vient que l'individu a plusieurs unions (dans l'exemple M-R POUPELIN)

Gilles
Bonsoir
Merci pour ces remarques. Du coup ça fait bien évoluer.
1- le debug est effectivement pratique en développement, mais pas en production, c'est clair. Supprimé.
2- le finger mistake : ;) j'ai modifié de telle manière que maintenant toutes les tailles des zones d'effacement sont calculées dynamiquement. J'en ai profité pour remplacer le add2 par add. Dites-moi si c'est bon sous MS 2007.
3- les multi-mariages : je pense avoir réglé le souci en intégrant les colonnes I,J et K que j'avais d'ailleurs prévues à cet effet. Mais dans mon arbre je n'avais qu'un seul cas. Dites-moi si ça fonctionne pour vous maintenant.

Je dépose donc la v1.4.

Cordialement.
Pascal
Bijlagen
générateur 1_4.xlsm
version 1.4
(72.15 KiB) 1 keer gedownload

pascalissimo
male
Berichten: 6
Stamboom : Grafisch
Stamboom bekijken
oau schreef:
15 juni 2020, 21:44
pascalissimo schreef:
15 juni 2020, 09:23

En revanche OAU je ne vois pas ce que signifie : Supprimer les "@#dfrench r@" lors de la création des planches ?
Je n'ai pas ce souci et donc ne vois pas comment y remédier.
Pouvez-vous m'envoyer en BAL perso une copie d'écran ?
Bonsoir;

Voilà
(et ajouter un blanc avant le tiret, OK je chipote :P )

Capture.JPG

OAU
Bonsoir OAU

Désolé mais je ne vois absolument pas à quoi correspond cette entrée "@#dfrench r@" du GEDCOM. Je n'en ai pas trace dans le mien :(
Il me faudrait un fichier GEDCOM avec ce type d'entrée pour voir à quoi elle correspond et du coup comment la traiter.

EDIT 1 : en creusant un peu la question, je crois comprendre qu'il s'agit des dates du calendrier révolutionnaire (brumaire, frimaire ...).
à réfléchir...
EDIT 2 : du coup pour que je puisse intégrer ce traitement, pouvez-vous juste m'envoyer (en bal perso) un extrait de votre GEDCOM dans lequel apparaît cette mention ? Et d'ailleurs, comment ces dates ont-elles pu être entrées dans ce format ? Dans GENEANET ce n'est pas possible si ?

SOLUTION TROUVÉE : :) comme quoi, avec un peu d'huile de coude on y arrive...
La 1.4b normalement affiche les dates du calendrier révolutionnaire abrégé (telle qu'enregistrées dans le GEDCOM)

Pascal
Bijlagen
générateur 1_4b.xlsm
version 1.4b (calendrier révolutionnaire)
(72.78 KiB) 9 keer gedownload

forhanp
forhanp
Berichten: 4329
Stamboom : Niet grafisch
Stamboom bekijken
Bonjour,
pascalissimo schreef:
15 juni 2020, 23:17
Désolé mais je ne vois absolument pas à quoi correspond cette entrée "@#dfrench r@" du GEDCOM. Je n'en ai pas trace dans le mien :(
Il me faudrait un fichier GEDCOM avec ce type d'entrée pour voir à quoi elle correspond et du coup comment la traiter.
C'est une date en calendrier Républicain.
Le GEDCOM prévoit l'utilisation possible de 4 calendriers :
- @#DGREGORIAN@ : Calendrier Grégorien, jamais utilisé car valeur par défaut.
- @#DJULIAN@ : Calendrier Julien
- @#DHEBREW@ : Calendrier Hébraïque
- @#DFRENCH R@ : Calendrier Républicain

Par exemple :
1 BIRT
2 DATE @#DFRENCH R@ 26 FLOR 6
est identique à :
1 BIRT
2 DATE 15 May 1798

Cordialement,

EDIT : Merci Dominique pour la correction du mois, en anglais dans le GEDCOM.
Laatst gewijzigd door forhanp op 16 juni 2020, 10:46, 2 keer totaal gewijzigd.
Pascal Forhan

dominique95880
dominique95880
Berichten: 6330
Stamboom : Niet grafisch
Stamboom bekijken
Bonjour pascalissimo

Voir par exemple http://genopresse.com/blog/2011/03/lentree-des-dates-en-genealogie/

Rectification pour le nom du mois (en anglais, bien que le français soit aussi admis par certains logiciels))
Par exemple :
1 BIRT
2 DATE @#DFRENCH R@ 26 FLOR 6
est identique à :
1 BIRT
2 DATE 15 May 1798

Dominique

pascalissimo
male
Berichten: 6
Stamboom : Grafisch
Stamboom bekijken
Merci pour ces précisions.
J'ai intégré hier un traitement qui permet d'afficher correctement ces différentes dates.

Cordialement.

Pascal

baufretong
baufretong
Berichten: 370
Stamboom : Niet grafisch
Stamboom bekijken
Bonjour,
J'ai testé votre nouvelle version.
Tout semble fonctionner
Gilles
Logiciel de généalogie :webtrees 1.7.15 - En local
OS: Windows10 (occasionnellement Linux)
Navigateur: en priorité Firefox (dernière version si possible) et Google Chrome

Plaats reactie

Terug naar “Le bistrot”