Discussion :

[SBAY3I]

bonsoir,
erreur d'execution'62'
l'entree dépasse la fin de fichier

[Qwazerty]

Salut

Sans ton code il nous est impossible de te répondre.

++
Qwaz

[SBAY3I]

voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Open nf For Input As 1
r = Input(LOF(1), 1)
Close

merci pour votre reponse

[patricktoulon]

bonjour
ca c'est une partie du code il nous faut tout le code !!

sica peut corriger te lacunes voici un exempe COMPLET!!! de lecture de fichier avec open
je te suggere de et attire ton attention sur les diezes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub lecture3()    ' recupe le texte complet avec input simple
    Dim x As Integer: x = FreeFile
    Dim lines As String
    fichier = "C:\Users\polux\Desktop\ttt.txt"
    Open fichier For Input As #x
    lines = Input$(LOF(x), #x)
    Close #x
    Debug.Print lines
End Sub

[78chris]

Bonjour

Je précise que SBAY3I

• est totalement débutant en Excel
• a posté sur plusieurs forums des fichiers texte qu'il souhaite convertir en Excel

Problème :
ce sont des captures d'impression avec en-têtes, titres, tableau, puis infos synthétiques du tableau puis pied de page.
les divers fichiers postés ont chacun une structure différente et les pages d'un même fichier ont aussi une structure différente.
Certaines infos des titres ou des synthèses doivent s'incorporer au tableau cible Excel

J'ai passé quelques heures à chercher une solution avant de répondre que faute de logique homogène, il était impossible d'automatiser.

Je n'ai eu aucune réponse de SBAY3I mais je vois surgir des messages ici et là qui n'expliquent pas le contexte donc je le précise...

[Qwazerty]

Salut

Merci pour les infos 78chri.

++
Qwaz

[78chris]

Re

Le souci c'est la différence de structure et d'un fichier à l'autre et d'une page du même fichier à l'autre. Et je pense qu'il peut y avoir encore d'autres structures que celles postées sur ces 2 forums

Même en VBA il faut une logique... et si les infos ne sont pas dans le fichier on ne peut les inventer (vitesse par exemple)

[Qwazerty]

@78Chris et Patrick: Merci pour ces compléments d'information

@SBAY3I, je suppose que ces fichiers sont extraits d'un logiciel ou d'un site web? Peux-tu nous en dire plus?

Si je comprends bien, les fichiers sont issus de 3 dispositifs de suivi différents (Tauris, Bengazir et TIPES MC2100). C'est différent matériel de suivi ne permettent-ils pas l'enregistrement des données sous un autre format qu'un format agencé pour l'impression sur papier?

Faire un code pour lire ça... c'est très aléatoire, nous ne connaissons même pas l'ensemble des cas de figure, la moindre modification de structure et pplop, ça va planter.

TIPES MC2100 serait sans doute faisable

• Début de feuille : "TIPES MC2100 ..." + récupération du numéro de page
• Récup des infos
  
  • "License amateur:"
  • "Nom :"
  • "No Seriel :"
  • "Lieu de lacher :"
  
  
• "-------------------------" précède les entêtes
• Récup des entêtes
  
  • séparation des entêtes par plus d'un espace
  
  
• "-------------------------" précède les données
• Récup des données
  
  • Comme pour les entêtes, la séparation est faite par au mini 2 espaces
  • "D'autres pigeons enloges:" ?? (Ça semble impacter la valeur de la colonne SN)
  • "AV / RET: ------------------" Aucune data
  
  
• "-------------------------" Clos les datas
• "Pigeons constatees (non enloges)" suivi de "------------------", Entête, "-----------------", Datas, "-------------------------"

TauRIS aussi c'est cyclique, ça ressemble pas mal au précédent, un peu plus embêtant à cause des dates qui n'apparaissent pas dans les datas mais les lignes ne contenant pas de date sont identifiables car l'info en "No." n'a pas le même format #### *** au lieu de #### #### *** (Il maque le numéro d'ordre d'arrivé)

• "Liste des Chronos TauRIS" Début de feuille
• "----------------"
• Infos participant et lieu de laché
• "---------------------" Suit les entêtes (il faut garder en tampon la ligne précédente à chaque lecture.) -> récup des entêtes
• Récup de Datas après "----------------------"
  
  • Plus d'un espace = séparation de champs.
  • Si "No." raccourci = par de date dans la colonne idoine
  
  
• "-----------------------" Fin des datas
• Informations divers
• "--------------------------------" Cloture la feuille, utiliser la mise en tampon pour ignorer la ligne précédente. Ou ignorée "(colombophile)"

Reste Benzing, à mon avis le plus chiant des trois. Beaucoup de champs présents en entête mais en effet peu de données. dans le tableau...
Dans les liens fournis au dessus, je me retrouve avec deux fichiers Benzing mais à mon avis l'un d'eux a été tripoté, les espacement ne sont plus respectés.
Sinon

• "BENZING - LISTE DE DEPOUILLEMENT" début de fichier - Récup date
• "--------------------------"
• Infos diverses
• "---+-----------" précède les entêtes
• Entêtes sur deux lignes... tout le temps?
• "---+-----------" fin des entêtes, début des datas
• Datas
  
  • Séparation par des "|"
  • Si pas de numéro d'ordre d'arrivé la structure diverge
  • Problème de connaitre les infos dans ta le tableau / par rapport au infos attendus dans les entêtes
  
  
• "---+-----------" fin des datas
• Infos
• "------------------------"
• D'autres info
• "---+-----------" fin du fichier

Mais bon, c'est beaucoup de boulot, ça permettrait par contre d'utiliser les expressions génériques peut-être....


++
Qwaz

[SBAY3I]

Merci à tous, chacun avec son propre nom
Je suis très heureux parce que mon sujet a reçu une grande attention de votre part, je voulais expliquer mon sujet de façon ennuyeuse mais la faiblesse de ma langue française m'a trahi, j'ai utilisé Google pour traduire. Pour une raison quelconque, le programme n'a pas lu le deuxième fichier, c'était à cause du unicode caracter. Comme le développeur du programme me l'a dit et résolu le problème,
@patricktoulon a une fois posté une image dans le forum contenant plusieurs codes, mais a été averti par les administrateurs du forum et le sujet a été fermé. Merci pour votre code publié mais je ne pourrai pas l'activer
@LittleWhite Merci d'avoir édité votre thème au format approprié
Pour vos @78chris, vous pouvez voir les fichiers joints, deux au meme format mais çammarche pas cause unicode.
@Qwazerty En ce qui concerne votre question, les fichiers texte sont extraits d’appareils électroniques pour l’enregistrement des temps d’arrivé au pigeon, appelés benzing, tauris et tibes, par des logiciel instalé sur computer.
Merci beucoup pour votre intérêt

[Qwazerty]

Salut

Avant de faire quoi que ce soit, il nous faudrait plus d'informations.
Comme dit plus haut, nous ne connaissons pas ce domaine, il est donc difficile de savoir quelle données sont importantes et quelles données ne le sont pas.

Pour t'aider à répondre, voila un fichier listant les information sur les système Tauris et Benzir. Merci de renseigner les cases jaunes et de mettre les données identiques les une en face des autres. Je te laisse également faire le même tableau à la suite des deux autre pour le système qui reste.
Dans la première colonne de la feuille1, merci de dire si OUI ou NON cette donnée doit apparaitre dans le résultat final

++
Qwaz

[SBAY3I]

merci beucoup @Qwazerty
mais j'ai connais rien a quoi tu veux faire, dans les pieces joints 3 fichier txt different et le fichier pdf contient la resumé de travail

[Qwazerty]

merci beucoup @Qwazerty
mais j'ai connais rien a quoi tu veux faire, dans les pieces joints 3 fichier txt different et le fichier pdf contient la resumé de travail

Et bien va falloir t'y mettre un minimum.

Je ne te demande pas de faire du code, juste de nous dire

• quelles informations sont importantes pour identifier celles que tu veux garder ou non (certains constructeurs donne beaucoup plus d'information que d'autres)
• Où retrouver les informations identiques en fonction du constructeur (Benzing, Tauris, Tipes) (remplir le tableau excel ou tout autre solution à ta convenance pourvu que ce soit claire)

++
Qwaz

[SBAY3I]

Et bien va falloir t'y mettre un minimum.

Je ne te demande pas de faire du code, juste de nous dire

• quelles informations sont importantes pour identifier celles que tu veux garder ou non (certains constructeurs donne beaucoup plus d'information que d'autres)
• Où retrouver les informations identiques en fonction du constructeur (Benzing, Tauris, Tipes) (remplir le tableau excel ou tout autre solution à ta convenance pourvu que ce soit claire)

++
Qwaz

merci @Qwazerty
voila les rensignement tu me demande dans pieces joints

[Qwazerty]

Salut

Bon ça n'est pas exactement ce que je voulais comme informations, du moins il en manque beaucoup pour arriver à faire un truc vraiment cohérent avec le besoin.

J'ai tout de même joué avec les expressions régulières (rationnelles). C'est génial... Bon ça prend du temps pour écrire les bonnes expressions mais après c'est implacable, ça dépote!

Le fichier ne lit que les Benzing, il peut y avoir plusieurs tickets les uns à la suite des autres et ils peuvent même être mélanger avec ceux des autres fournisseurs (qui eux ne seront pas lus).
Pour te faire une idée, j'ai mis un fichier txt qui contient un mélange.
Dans Accueil, tu cliques sur le bouton, tu sélectionnes le fichier. Une fois l'importation terminée (j'ai pas mis de message...) tu vas sur la feuille "Benzing", tu y trouveras deux tableaux.
Dans le 1er ce sont les concours et dans le second les data de chaque concours. Le lien entre les deux tableaux se fait via "Concours_ID".

++
Qwaz

[SBAY3I]

merci beucoup @Qwazerty pour toute les efforts
mais le fichier ci pas comme je voudrai, en plus le fichier ça marche pas avec tipes et tauris.
de toute façon le problème est résolu par un expert en excel. si tu veux le faire jusqu'à la fin je te dirai les bonnes informations

[Qwazerty]

Salut

Je passe sur le début du message mais

... je te dirai les bonnes informations

Il serait temps oui... mais si le problème est résolu, je n'en ai plus besoin.

++
Qwaz

[SBAY3I]

merci beucoup