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

[pascalissimo]

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.

[oau]

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"

Sur cette ligne

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

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]

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

[oau]

Bonjour,

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

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 . 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]

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

[baufretong]

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:

Sur la feuille "Planche" du fichier excel

Je pense que cela vient que l'individu a plusieurs unions (dans l'exemple M-R POUPELIN)

Gilles

[baufretong]

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

[oau]

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 )

OAU

[pascalissimo]

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

[pascalissimo]

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 )

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

[forhanp]

Bonjour,

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.

[dominique95880]

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]

Merci pour ces précisions.
J'ai intégré hier un traitement qui permet d'afficher correctement ces différentes dates.

Cordialement.

Pascal

[baufretong]

Bonjour,
J'ai testé votre nouvelle version.
Tout semble fonctionner
Gilles

[francoisbaux]

bonjour et merci pour ce partage, cela fonctionne pas sous macOS mais je vais essayer sur mon PC. merci encore et bon dimanche a vous

MAJ 20230918 : sur la version 1.4, usage d'un fichier de geneanet via exportation.
import ok sur Excel 2016
mais je suis stoppé sur le VBA "générer INDIV et FAM"
prenom = Mid(contenu, 8, slash1 - 9)