Responder

Conversion Gedcom to Excel : Cherche testeur de logiciel

bendiyan
male
Mensagens: 55
Árvore : Gráfico
Ver a árvore genealógica
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  :)

cajury77
female
Mensagens: 1
je veux bien tester. j'ai une partie de ma genealogie à sortir dans un excel.

Utilizador não registado (baralu)
avatar
A quoi sert ce genre de transfert ?

bendiyan
male
Mensagens: 55
Árvore : Gráfico
Ver a árvore genealógica
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

philippeboitrel
philippeboitrel
Mensagens: 81
Árvore : Não gráfico
Ver a árvore genealógica
Bonjour,

Je veux bien vous aider en testant votre macro !

Cordialement,

Philippe Boitrel

boby631
male
Mensagens: 103
Árvore : Gráfico
Ver a árvore genealógica
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

bendiyan
male
Mensagens: 55
Árvore : Gráfico
Ver a árvore genealógica
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

boby631
male
Mensagens: 103
Árvore : Gráfico
Ver a árvore genealógica
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 ?

philippeboitrel
philippeboitrel
Mensagens: 81
Árvore : Não gráfico
Ver a árvore genealógica
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

boby631
male
Mensagens: 103
Árvore : Gráfico
Ver a árvore genealógica
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





bendiyan
male
Mensagens: 55
Árvore : Gráfico
Ver a árvore genealógica
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  ?

philippeboitrel
philippeboitrel
Mensagens: 81
Árvore : Não gráfico
Ver a árvore genealógica
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

bendiyan
male
Mensagens: 55
Árvore : Gráfico
Ver a árvore genealógica
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

boby631
male
Mensagens: 103
Árvore : Gráfico
Ver a árvore genealógica
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
@+

rouland50
male
Mensagens: 1
Árvore : Gráfico
Ver a árvore genealógica
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

Responder

Voltar para “Autres logiciels”