Conversion Gedcom to Excel : Cherche testeur de logiciel
-
- Messages : 77
- Saisie : Standard
- Navigation : Arbre
- Voir son arbre
Bonjour
je n'ai pas trouvé de logiciel permettant de convertir toutes les rubriques d'un fichier Gedcom en excel
alors j'ai crée une macro Excel permettant de le faire.
comme cela peut servir à d'autres Généanautes je vais la transmettre gratuitement
mais avant de le diffuser largement, je cherche des personnes voulant bien tester cette macro
Je vous enverrai le fichier excel et les explications
Merci de m'aider
===========================================================================
Pour l'obtenir
J'ai crée une page sur mon site perso de demande de la macro de conversion de fichier GEDCOM en EXCEL XLS, Ged2Xls
Il vous suffit de cliquer sur le lien ci dessous et de remplir le formulaire, (votre adresse mail ne sera utilisée que pour la généalogie),
vous recevrez un mail automatiquement.
Si toutefois vous ne recevez rien, n'hésitez pas à me recontacter sur Geneanet
page de demande de GED2XLS
http://bendiyan.org/PHPMailer-5.2.26/Ged2xls/sendmail.php
cordialement
je n'ai pas trouvé de logiciel permettant de convertir toutes les rubriques d'un fichier Gedcom en excel
alors j'ai crée une macro Excel permettant de le faire.
comme cela peut servir à d'autres Généanautes je vais la transmettre gratuitement
mais avant de le diffuser largement, je cherche des personnes voulant bien tester cette macro
Je vous enverrai le fichier excel et les explications
Merci de m'aider
===========================================================================
Pour l'obtenir
J'ai crée une page sur mon site perso de demande de la macro de conversion de fichier GEDCOM en EXCEL XLS, Ged2Xls
Il vous suffit de cliquer sur le lien ci dessous et de remplir le formulaire, (votre adresse mail ne sera utilisée que pour la généalogie),
vous recevrez un mail automatiquement.
Si toutefois vous ne recevez rien, n'hésitez pas à me recontacter sur Geneanet
page de demande de GED2XLS
http://bendiyan.org/PHPMailer-5.2.26/Ged2xls/sendmail.php
cordialement
Dernière modification par bendiyan le 14 mai 2020, 21:29, modifié 1 fois.
je veux bien tester. j'ai une partie de ma genealogie à sortir dans un excel.
-
- Messages : 77
- Saisie : Standard
- Navigation : Arbre
- Voir son arbre
vous obtenez une feuille excel avec toutes les données saisies.baralu a écrit : ↑01 avril 2017, 13:48 A quoi sert ce genre de transfert ?
Cela sert à pouvoir faire des analyses personnelles.
type statistique sur les lieux , les jours, les années, le prénoms... et toutes celles que vous pouvez imaginer.
a facilement faire une recherche sur un critère non prévu par un logiciel de généalogie ou Geneanet
-
- Messages : 130
- Saisie : Geneweb
- Navigation : Fiche
- Voir son arbre
Bonjour,
Je veux bien vous aider en testant votre macro !
Cordialement,
Philippe Boitrel
Je veux bien vous aider en testant votre macro !
Cordialement,
Philippe Boitrel
-
- Messages : 103
- Saisie : Standard
- Navigation : Fiche
- Voir son arbre
Pascal
Viens juste de tester le fichier.
Le contenu me parait bon à première vue.
Pour améliorer le tout, dans un premier temps :
* Faire un traitement sur les caractères avec accents (majuscules et minuscules)
* Sur les gros fichiers, la MsgBox toutes les 1000 lignes traitées est pénible à la longue. A supprimer rapidement
* Il faudrait traiter un Delete pour la feuille (« error »)
* Aller chercher le fichier ged par macro de type Application.GetOpenFilename("Fichiers ged ,*.ged") plutôt que de le renseigner par clavier en B4 et B5 : plus facile pour les néophytes
* Expliquer aux utilisateurs qu’il faut activer les macros pour pouvoir utiliser le classeur
Bon travail en tout cas
Viens juste de tester le fichier.
Le contenu me parait bon à première vue.
Pour améliorer le tout, dans un premier temps :
* Faire un traitement sur les caractères avec accents (majuscules et minuscules)
* Sur les gros fichiers, la MsgBox toutes les 1000 lignes traitées est pénible à la longue. A supprimer rapidement
* Il faudrait traiter un Delete pour la feuille (« error »)
* Aller chercher le fichier ged par macro de type Application.GetOpenFilename("Fichiers ged ,*.ged") plutôt que de le renseigner par clavier en B4 et B5 : plus facile pour les néophytes
* Expliquer aux utilisateurs qu’il faut activer les macros pour pouvoir utiliser le classeur
Bon travail en tout cas
-
- Messages : 77
- Saisie : Standard
- Navigation : Arbre
- Voir son arbre
Vos idées sont très pertinentes
Je vais les intégrer au plus vite
Vous semblez très connaisseur en matière de développement
Auriez-vous :
une macro complète permettant la recherche du fichier gedcom ?
Une macro simple permettant d afficher un popup type mignon mais sans intervention de l utilisateur afin de l informer de l évolution du traitement ?
Merci
Pascal
Je vais les intégrer au plus vite
Vous semblez très connaisseur en matière de développement
Auriez-vous :
une macro complète permettant la recherche du fichier gedcom ?
Une macro simple permettant d afficher un popup type mignon mais sans intervention de l utilisateur afin de l informer de l évolution du traitement ?
Merci
Pascal
-
- Messages : 103
- Saisie : Standard
- Navigation : Fiche
- Voir son arbre
Pour le 1° : Non rien de tout prêt, mais je vais essayer de te le fairebendiyan a écrit : ↑01 avril 2017, 18:35
Auriez-vous :
une macro complète permettant la recherche du fichier gedcom ?
Une macro simple permettant d afficher un popup type mignon mais sans intervention de l utilisateur afin de l informer de l évolution du traitement ?
Pour le 2° : je comprends pas. Une sorte de barre de progression ?
-
- Messages : 130
- Saisie : Geneweb
- Navigation : Fiche
- Voir son arbre
Bonsoir,
J'ai testé la macro, et elle tourne correctement !
j'ai retiré les msgbox pour ne pas interrompre le traitement
-Je pense qu'il serait judicieux de séparer le NAME en 2 colonnes ( patronyme, prénoms)
-Je pense que les notes devraient être incorporées en colonnes et non en ligne comme actuellement pour que chaque colonne soit un champ et chaque ligne un enregistrement ( comme dans les bases de données )
il est possible pour accelerer le traitement d'inclure en tete de macro:
Application.ScreenUpdating=false
Application.EnableEvents=false
et en fin de macro
Application.ScreenUpdating=true
Application.EnableEvents=true
-Ajouter en tete de macro ( pour effacer le contenu de la feuille "error" )
Sheets("error").Cells.ClearContents
cordialement
Philippe Boitrel
J'ai testé la macro, et elle tourne correctement !
j'ai retiré les msgbox pour ne pas interrompre le traitement
-Je pense qu'il serait judicieux de séparer le NAME en 2 colonnes ( patronyme, prénoms)
-Je pense que les notes devraient être incorporées en colonnes et non en ligne comme actuellement pour que chaque colonne soit un champ et chaque ligne un enregistrement ( comme dans les bases de données )
il est possible pour accelerer le traitement d'inclure en tete de macro:
Application.ScreenUpdating=false
Application.EnableEvents=false
et en fin de macro
Application.ScreenUpdating=true
Application.EnableEvents=true
-Ajouter en tete de macro ( pour effacer le contenu de la feuille "error" )
Sheets("error").Cells.ClearContents
cordialement
Philippe Boitrel
-
- Messages : 103
- Saisie : Standard
- Navigation : Fiche
- Voir son arbre
Déjà, pour la recherche du fichier ged un peu plus "pro", j'ai nettoyé ta macro surtout au début, une phrase au milieu et tout à la fin avant le Endbendiyan a écrit : ↑01 avril 2017, 18:35
une macro complète permettant la recherche du fichier gedcom ?
Ça donne (changements en rouge)
Sub ImportGedcom()
Maxcol = 99
Dim Tb(99) As String
Dim erreur As Integer
Dim nf As String, num As Long, nblig As Long, cpt As Long, txt As String, trouve As String, rubr As String
Sheets("Resultat").Select
Cells.Select
Selection.ClearContents
nf = Application.GetOpenFilename("Fichiers ged,*.ged")
On Error GoTo ErrorHandler
Worksheets("Parametres").Cells(5, 2).Value = nf
'permet de retrouver le 1er numéro libre de désignation d'un fichier
num = FreeFile
'ouvre le fichier en lecture
Open nf For Input As #num
i = -1
'boucle tant que l'on n'a pas atteint la fin du fichier
'============================================================1ereboucle pour Entete de colonne
(...) J'ai rien changé ici
'=============================================================================2emeboucle pour creation des lignes
'permet de retrouver le 1er numéro libre de désignation d'un fichier
num = FreeFile
'ouvre le fichier en lecture
Open nf For Input As #num
i = -1
nblig = 1
While Not EOF(1)
'***************Stockage des lignes dans la variable tableau Tb
(....) rien changé jusqu'à ErrorHandler
ErrorHandler:
MsgBox "Action annulée"
End Sub
-
- Messages : 77
- Saisie : Standard
- Navigation : Arbre
- Voir son arbre
Philippe et bobby merci
Philippe je ne connaissais pas ces instructions d optimisation je crois qu'elles me seront souvent utiles
Boby merci pour ce bout de macro
Oui je voudrais soit une vraie barre de progression soit plus simple juste un message qui affiche un message indiquant l évolution comme le msgbox mais sans blocage
Que pouvez vous me proposer ?
Philippe je ne connaissais pas ces instructions d optimisation je crois qu'elles me seront souvent utiles
Boby merci pour ce bout de macro
Oui je voudrais soit une vraie barre de progression soit plus simple juste un message qui affiche un message indiquant l évolution comme le msgbox mais sans blocage
Que pouvez vous me proposer ?
-
- Messages : 130
- Saisie : Geneweb
- Navigation : Fiche
- Voir son arbre
Bonjour,
Je vous ai transmis par mail, le fichier avec le début d'implémentation d'une barre de progression !
Il reste à définir sur quel critère et sur quel pas, l'information de la progression sera réalisée ( taille du fichier, nb d'individus, nb de lignes, ... )
Cordialement,
Philippe Boitrel
Je vous ai transmis par mail, le fichier avec le début d'implémentation d'une barre de progression !
Il reste à définir sur quel critère et sur quel pas, l'information de la progression sera réalisée ( taille du fichier, nb d'individus, nb de lignes, ... )
Cordialement,
Philippe Boitrel
-
- Messages : 77
- Saisie : Standard
- Navigation : Arbre
- Voir son arbre
J'ai intégré quelques remarques que vous m'avez fournies et j'ai trouvé une barre de progresion .
j'ai donc une version 1.2 que je vous ai transmis
philippe
A+
pascal
j'ai donc une version 1.2 que je vous ai transmis
philippe
n'etant pas spécialiste des fichiers gedcom , je ne fais que convertir les lignes en cellules sans aucune transformation. les utilisateurs de ce genre de macro , sont assez averti pour triturer les fichiers dans tous les sens.philippeboitrel a écrit : ↑01 avril 2017, 21:18 .....
-Je pense qu'il serait judicieux de séparer le NAME en 2 colonnes ( patronyme, prénoms)
De quelles notes parles tu? pour moi toutes les notes sont dans une cellule de la ligne qui concerne l'individu auquel elle se rapportephilippeboitrel a écrit : ↑01 avril 2017, 21:18
-Je pense que les notes devraient être incorporées en colonnes et non en ligne comme actuellement pour que chaque colonne soit un champ et chaque ligne un enregistrement ( comme dans les bases de données )
.....
A+
pascal
-
- Messages : 103
- Saisie : Standard
- Navigation : Fiche
- Voir son arbre
Salutbendiyan a écrit : ↑02 avril 2017, 20:18 J'ai intégré quelques remarques que vous m'avez fournies et j'ai trouvé une barre de progresion .
Ok reçu et testé. C'est déjà mieux comme ça.
Si tu as besoin, n'hésites pas
@+
-
- Messages : 1
- Saisie : Standard
- Navigation : Arbre
- Voir son arbre
Bonjour,
Je suis a la recherche de ce genre de choses depuis quelques semaines. Je connais un peu les macros excel mais j'ai du mal avec la stucture des fichiers Gedcom.
J'aimerai tester votre fichier.
Cordialement
Je suis a la recherche de ce genre de choses depuis quelques semaines. Je connais un peu les macros excel mais j'ai du mal avec la stucture des fichiers Gedcom.
J'aimerai tester votre fichier.
Cordialement
-
- Messages : 12
- Saisie : Standard
- Navigation : Arbre
- Voir son arbre
Bonjour,
mon complément vient un peu tard, et n'ayant pas accès au fichier, mes remarques n'ont peut-être pas / plus lieu d'être.
Je n'y connais encore rien en fichier Gedcom, mais j'utilise régulièrement les macros Excel.
Comme barre de progression, il est possible d'afficher dans le pied-de-page de la fenêtre Excel des informations, exemple :
DoEvents
Application.StatusBar = "Début du traitement"
Et toujours ajouter en fin de macro :
Application.StatusBar = False
Le fait de charger le fichier source (Gedcom en l'occurrence) dans un tableau virtuel Excel, dimensionné ou non, accélère énormément le traitement.
Cordialement,
Caroline
mon complément vient un peu tard, et n'ayant pas accès au fichier, mes remarques n'ont peut-être pas / plus lieu d'être.
Je n'y connais encore rien en fichier Gedcom, mais j'utilise régulièrement les macros Excel.
Comme barre de progression, il est possible d'afficher dans le pied-de-page de la fenêtre Excel des informations, exemple :
DoEvents
Application.StatusBar = "Début du traitement"
Et toujours ajouter en fin de macro :
Application.StatusBar = False
Le fait de charger le fichier source (Gedcom en l'occurrence) dans un tableau virtuel Excel, dimensionné ou non, accélère énormément le traitement.
Cordialement,
Caroline