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]

Là, je suis largué !!! Chez moi, ça marche.
Je n'y comprends plus rien.
Ce n'est pas un problème de temps d’accès. Ni de version XL ( je suis en XL2007)
Ce n'est pas un problème de nom de TextBox, ce n'est pas un problème de syntaxe.

En désespoir de cause, pouvez vous dézipper ce fichier et lancer la V10.
Puis regardez le fichier TONNAY CHARENTE, SVP.

Chez moi tout est ok.

 

[oderoaldes]

Malheureusement le résultat est le même.
J'ai essayé sur un autre poste en Excel 2010 c'est la même chose que sur mon poste en 2013.
Je défragmente ce soir, on verra à moins que vous ayez une autre idée.
Merci en tous cas de votre aide

 

[sylvanu]

Comme les temps sont nuls, c'est que les fichiers s'ouvrent en moins de 1 seconde.
Mais ceci dit une défragmentation est toujours utile. cependant si vous êtes sous Win10, il devrait l'effectuer en permanence.
Ce qui est bluffant, c'est que certains passent et pas d'autres. J'ai regardés les fichiers ce sont les mêmes.

On verra après défragmentation. Je vais continué à chercher.
A demain.

 

[oderoaldes]

Je suis sur Windows 7 pro, cela peut il avoir un impact ?
Merci

 

[sylvanu]

Franchement aucune idée. C'est trop pointu.
La défragmentation sur Win7Pro s'effectue normalement toutes les semaines, donc je ne sais pas si ça aura un impact;
Je regarde de mon coté, je vais rajouté quelques sécurités pour une V11.
Je vous envoie ça ce soir pour pouvoir tester avec un PC tout propre.

 

[oderoaldes]

Super Merci

 

[sylvanu]

La voila la V11.
Je n'ai rien trouvé.
J'ai rajouté quelques re confirmations de fichiers et sheet. Mais à mon avis ne sert pas à grand chose.
Par contre j'enregistre tous les shapes trouvés ainsi que le chemin complet du fichier.
Au moins si on sera sur des noms de shapes qu'il trouve, cela fera peut être une piste.

 

[oderoaldes]

Merci pour la V11 voila le résultat.
J'ai rajouté 3 fichiers dont 1 avec un avoir pour voir et il remonte et le même en changeant la zone de texte 5 par 7, mais ça n'a pas l'air de faire grand chose.
On défragmente et on essaie demain.

 

[sylvanu]

Il y a des trucs intéressant : Des ZoneTexte 7 et des TextBox 7. Ce qui n'était pas prévu.
Je vais pouvaoir enfin sortir une V12 pour demain !

 

[oderoaldes]

si ça pouvait être ça ce serait cool, j'attends la V12 avec impatience.
Bonne soirée et encore merci

 

[sylvanu]

Bonsoir/Bonjour,

La V12 promise.
Je cherche les ZoneTexte et les TextBox, le tout avec et sans espace.
Je regarde les adresses sur trois ou quatre lignes. Les codes postaux à droite ou à gauche.
Plus quelques petites modifs de sécurisation.
J'ai laissé l'instrumentation, je préfère rester prudent.

Je suis curieux de voir le résultat car j'arrive au bout de mon imagination.
( le coup des ZoneTexte ou TextBox était pas mal. )

 

[oderoaldes]

Bonjour,
Désolé de vous avoir fait attendre mais je pense que votre persévérance et compétences ont payé.
Ci-joint le résultat avec 10 fichiers ajoutés.

il y a une petite erreur sur

AVOIR N°8235

FACTURE N°405

AVOIR N°7781

ou l'adresse 2 passe en ville, mais ça je peux facilement le retraiter une fois extrait.
Je vais faire quelques sondage supplémentaires mais ça m'a l'air vraiment parfait.

La colonne O ne correspond pas au lien de la G mais je pense que c'est normal.

Je dois m'absenter à partir de 11:00, mais cela va pouvoir me permettre d'avancer
Encore un immense merci pour votre aide.

 

[sylvanu]

Bonjour Ça fait plaisir.

Je viens de m'apercevoir qu'à la fin je trie la zone bleue par ordre alphabétique de la société, mais que je ne trie pas la zone blanche qui est juste une zone de test appelée à disparaitre. Donc effectivement c'est normal ce décalage de fichier. Mais ça n'a aucune importance.
Trois questions :
1- Qu'entendez vous par petite erreur sur les N° de facture ? Ils sont faux, ils ne correspondent pas aux fichier ?
2- J'ai vu des villes nommées BP, TSA et CS. J'ai peur qu'on ait des ville du type "60123 ALBI BP12345".
Ce qui évidemment va me poser problème car les 5 chiffres du code postal ... sont des deux cotés.
Pouvez vous me donner la ligne Ville des fichiers Décatlon, Jardiland et Sarlat pour comprendre.
3- Dans les fichiers, pour les villes, peux t-on avoir :
a- CodePostal VILLE
b- VILLE CodePostal
c- Pas de CODEPOSTAL ( par exemple le N° de département seul)
Si le cas "a" est toujours le cas, alors c'est une erreur facile à rectifier, puisque le code postal est toujours à gauche.

Je pense avoir trouvé le bug. Ca va pas être facile à résoudre. On peut avoir :

Nom Société	Nom Société
Adresse	Adresse
BP 12345	CodePost Ville
CodePost Ville

et je me base sur la présence de 5 chiffres pour détecter la Ville qui peut être en 3eme ou 4eme ligne.
Dans la 1ere colonne, quand je trouve 12345 je le considère que un CodPost, donc j'extrais la ville, d'où les BP, TSA,CS.
Je vais faire une version pour détecter ces 3 mots et ignorer la ligne en tant que ville.

 

[sylvanu]

Re,
Voici une V14 ( non, non pas de V13 )
Le bug des CP TSA et BP ( bugs lignes 3,9,10 et 19 de votre fichier) est corrigé.
Si une ligne comporte un de ces trois mots, même s'il y a 5 chiffres, elle n'est pas considéré comme une Ville. ( Si une ville s'appelle TSA alors problème ... mais ça m'étonnerait.

 

[oderoaldes]

Bonsoir,
Désolé je suis encore en déplacement jusqu'à ce soir tard avec juste un IPad, je teste la V14 demain.
Encore merci pour tout et bravo pour ces macros documentées et explicatives qui aident bien à progresser. Bonne soirée