XL 2010 Extraire du texte d'une zone de texte (Text Box)

[oderoaldes]

Bonjour,
je vais encore vous solliciter car J'ai récupéré des répertoire dans lequel pour chaque année, il y a environ 300 factures dans lesquelles les coordonnées du client on été mise en insérant une zone de texte (Text Box 1 ou Text Box 2) dans la feuille.
Je voudrais pouvoir récupérer toutes ces adresses pour créer une base de donnée ainsi que si possible le numéro de facture en A8
J'ai pas mal cherché mais ne trouve vraiment rien qui fonctionne vraiment et qui me permette surtout de passer si possible tout le répertoire en une fois.
Je vous joins un petit exemple du fichier.
Merci d'avance pour votre aide.
Bien cordialement.

 

[sylvanu]

Bonsoir,
Je remettrais tout ça carré à la fin, ainsi que les commentaires.
De toute façon il faudra au moins nettoyer tous les espions posés. ( partie droite des résultats )

 

[oderoaldes]

Bonjour,
J'ai pu grâce à cette macro récupérer 657 adresses exactement, c'est top.
Un tout petit travail derrière mais rien de méchant. Par contre il me reste environ 75 fichiers qui me renvoient une message :
Erreur d'exécution 9 : l'indice n'appartient pas à la sélection
J'ai beau regarder ces fichiers, rien, à priori" ne diffère des autres et je ne comprends pas bien d'ou vient le soucis sur que quand je place la souris en debogage sur :
Addr1 = tablo(1) ' Première partie de l'adresse qui semble être la source du problème cela lit bien le libellé dans la zone de texte.
Une idée ?
Une fois cette dernière version "nettoyée" je passerai les autres années pour récupération.
Merci de votre aide.

 

[sylvanu]

Bonjour Oderoaldes,
Pouvez vous anonymisé un de ces fichiers ( sans toucher aux listbox et autre )
Cela voudrait dire que tablo ne contient qu'une ligne, puisque la ligne du dessus Nom=tablo(0) passe.
Comme si une textbox n'avait que le nom de la socièté.
Mais c'est quand même une bonne nouvelle.

 

[sylvanu]

... comme il semble qu'il y ait des autres années
Envoyez moi le nom exact des dossiers, je les introduirais dans la prochaine version.

 

[oderoaldes]

Bonjour,
Voici 2 fichiers
Je me suis aperçu que certains fichiers en défaut étaient très gros, 2036 Ko alors que le fichier normal fait environ 50 Ko et qu'ils ont exactement la même structure, nombre de feuille, etc, une autre idée ?
Post 64 en fait j'ai commencé à le mettre dans des répertoires 2018-2019 avec un indice que je pensais renommer au fur et à mesure pour garder 2018-2018.
Merci

 

[sylvanu]

Dans FE8002 PANTIN2 (1).xlsx, vous avez .... hi hi hi !!!! ....

Adresse dans Text Box 5 ET IBAN dans ZoneTexte 5 !!!!
Vous en avez encore beaucoup des comme ca.

Je vais regarder comment s'en sortir.

 

[sylvanu]

Testez cette PJ.
Avant d'analyser l'adresse, je regarde les 4 premiers caractères.
Et si je trouve ... "IBAN" je passe au suivant.

Je suppose qu'on va avoir d'autres plaisanteries de ce type.

1- Pendant que j'y pense. Il serait bien que vous fassiez un VRAI modèle de facture pour l'avenir .
Ce serait plus simple.
2- J'ai peur qu'en remontant dans le temps, on déterre d'autres problèmes !

 

[oderoaldes]

Merci, je teste dans la soirée.

L'objet de cette récupération d'adresses et de passer sur un nouvel ERP qui évitera tous ces problèmes.

Merci encore.

 

[sylvanu]

Vous avez pu tester la V15 ?

 

[oderoaldes]

Bonjour,
Vraiment désolé mais je n'ai pas touché terre la semaine dernière. J'ai pu bosser ce weekend sur la V15. Tout passe bien et en plus avec le lien sur la facture cela permet de remonter et de corriger les dernières petites erreurs. J'ai pu faire la même manip sur des factures plus anciennes avec un résultat plus que satisfaisant. C'est super, un grand merci

 

[sylvanu]

Bonjour,
Content de l'apprendre.
Ce fut un joli exercice. Au plaisir d'un nouveau défi.

 

[oderoaldes]

Merci de votre compréhension et certainement à bientôt.

 

[sylvanu]

Oderoaldes, la V16 ne vous servira à rien.
La V16 est là pour archivage sur XLD.
Idem que la V15 mais "nettoyage" des résidus de traçabilité.
Add commentaires pour être plus compréhensible.
Est un bon exemple d'analyse fichiers, textbox, listbox. Peut être réadapté sur d'autres contextes.