Forums Geneanet

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 veux bien tester. j'ai une partie de ma genealogie à sortir dans un excel.

baralu Escreveu: ↑01 abril 2017, 13:48 A quoi sert ce genre de transfert ?

vous obtenez une feuille excel avec toutes les données saisies.
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

Bonjour,

Je veux bien vous aider en testant votre macro !

Cordialement,

Philippe Boitrel

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

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

bendiyan Escreveu: ↑01 abril 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 1° : Non rien de tout prêt, mais je vais essayer de te le faire
Pour le 2° : je comprends pas. Une sorte de barre de progression ?

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

bendiyan Escreveu: ↑01 abril 2017, 18:35
une macro complète permettant la recherche du fichier gedcom  ?

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 End
Ç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

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  ?

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

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

philippeboitrel Escreveu: ↑01 abril 2017, 21:18 .....
-Je pense qu'il serait judicieux de séparer le NAME en 2 colonnes ( patronyme, prénoms)

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 Escreveu: ↑01 abril 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 )
.....

De quelles notes parles tu? pour moi toutes les notes sont dans une cellule de la ligne qui concerne l'individu auquel elle se rapporte

A+
pascal

bendiyan Escreveu: ↑02 abril 2017, 20:18 J'ai intégré quelques remarques que vous m'avez fournies et j'ai trouvé une barre de progresion .

Salut
Ok reçu et testé. C'est déjà mieux comme ça.
Si tu as besoin, n'hésites pas
@+

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

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