Générer une BD à partir d'étiquettes

Bonjour Croy,

[...]

Quelqu'un connaitrait-il le moyen de réinjecter les adresses prisent
dans des cases d'etiquettes (tableaux Word) dans une base de donnée
stucturée ?
Certes, le nombre de ligne que compose l'adresse est variable, et par
conséquent une récupération automatique méritera vraissemblablement
d'être retravaillée, mais bon cela ira toujours infiniment plus vite
que tout ressaisire.

Indépendamment du nombre de lignes variable qui pose un problème et qu'il
est difficile de normaliser car on ne sait pas quels sont les champs
manquants, tu peux essayer la technique suivante :
- si ton tableau fait 2 colonnes (par exemple), coupe la 2e colonne et
colle-la au-dessous de la 1re
- élargis, si tu veux, la colonne restante
- menu Edition | Remplacer
- clique sur le bouton [Plus...], puis sur le bouton [Spécial...]
- sélectionne "Marque de paragraphe" (tu peux aussi taper directement ^p)
- dans la zone "Remplacer par", tape un ;
- clique sur [Remplacer tout]
Tu devrais avoir une adresse par ligne de tableau
- menu Tableau | Convertir | Tableau en texte
- garde "Marques de paragraphe" sélectionné

Tu obtiendras une ligne ou plus exactement un paragraphe par adresse, dont
chaque champ sera séparé par un ;
Tu peux éventuellement reconvertir le texte en tableau pour faciliter le
déplacement des champs ou enregistrer ce fichier au format texte pour
pouvoir l'importer dans Excel ou Access, etc.

--
Tisane

Dans le message de news
1163423888.260416.102740@m7g2000cwm.googlegroups.com,
Croy <croy@tcag.ch> a écrit:
| Bonjour à tous,
Bonsoir,


|
|
| J'imagine que cette question à du être posée à mainte reprises,
| mais je ne la trouve pas dans les archives.
|
| Il est encore assez courant que les entreprises gèrent leurs listes
| mailing via des étiquettes qui ont été saisies en direct (pas via
| une fusion), et qu'il n'existe aucune BD structurée de l'information
| en question.
|
| Quelqu'un connaitrait-il le moyen de réinjecter les adresses prisent
| dans des cases d'etiquettes (tableaux Word) dans une base de donnée
| stucturée ?

J'aurais à le faire, je commencerais par une macro qui remplace les marques
de § par des ;
Etape suivante: chercher les codes postaux (dernière ligne de chaque
cellule), remplacer le 1er blanc par un ;
Ensuite, conversion des tableaux en texte (ce qui génère des retours marge)
Enregistrer sous nom.csv
Lire dans Excel
Ajouter les cellules là où elles sont nécessaires
Sauver en .xls
Importer dans Access

Ce n'est bien sûr qu'une première idée, à creuser, programmer et tester.

A+

Jacques
|
| Certes, le nombre de ligne que compose l'adresse est variable, et par
| conséquent une récupération automatique méritera vraissemblablement
| d'être retravaillée, mais bon cela ira toujours infiniment plus vite
| que tout ressaisire.
|
| Merci d'avance pour vos suggestions - Croy

Bonjour Jacques-A,

Quelqu'un connaitrait-il le moyen de réinjecter les adresses prisent
dans des cases d'etiquettes (tableaux Word) dans une base de donnée
stucturée ?

J'aurais à le faire, je commencerais par une macro qui remplace les
marques de § par des ;
Etape suivante: chercher les codes postaux (dernière ligne de chaque
cellule), remplacer le 1er blanc par un ;
Ensuite, conversion des tableaux en texte (ce qui génère des retours
marge) Enregistrer sous nom.csv
Lire dans Excel
Ajouter les cellules là où elles sont nécessaires
Sauver en .xls
Importer dans Access

Echange de bons procédés... Si tu avais à la faire, tu pourrais gagner du
temps sur 2 points :
- création d'une macro pas nécessaire pour remplacer les ¶ (voir
Rechercher/Remplacer)
- passage par Excel pas utile non plus si la destination est Access qui
reconnaît parfaitement le format texte .csv

En revanche, ta recherche sur les codes postaux est intéressante.
Dans ce cas, toujours avec Rechercher/Remplacer :
Dans la zone Rechercher : [0-9][0-9][0-9][0-9][0-9]
ou, plus court, [0-9]{5}
et cocher "Utiliser les caractères génériques"
Dans la zone Remplacer par, taper ^&;
Ce qui aura pour effet de rechercher 5 chiffres et de le remplacer par la
même chose (^&) suivie d'un ;
Le ^& peut être obtenu en cliquant sur le bouton [Plus], puis [Spécial] et
en sélectionnant "Rechercher"
A affiner et cela ne vaut que si le fichier d'adresses est franco-français.

--
Tisane

- création d'une macro pas nécessaire pour remplacer les ¶ (voir
Rechercher/Remplacer)
- passage par Excel pas utile non plus si la destination est Access qui
reconnaît parfaitement le format texte .csv

En revanche, ta recherche sur les codes postaux est intéressante.
Dans ce cas, toujours avec Rechercher/Remplacer :
Dans la zone Rechercher : [0-9][0-9][0-9][0-9][0-9]
ou, plus court, [0-9]{5}
et cocher "Utiliser les caractères génériques"
Dans la zone Remplacer par, taper ^&;
Ce qui aura pour effet de rechercher 5 chiffres et de le remplacer par la
même chose (^&) suivie d'un ;
Le ^& peut être obtenu en cliquant sur le bouton [Plus], puis [Spécia l] et
en sélectionnant "Rechercher"
A affiner et cela ne vaut que si le fichier d'adresses est franco-franç ais.

Très impressionné ! Voilà ce qui me chatouille encore...
a) ¶ est un caractère spécial non reconnu comme tel par la boîte
Rech/Remp
Au niveau code ¶ équivaut à un retour à la ligne donc doit
normalement correspondre au code 10. ";" correspond quant à lui au
code 59. D'où pour la macro

Cells.Replace What:=Chr(10), Replacement:=Chr(59), LookAt:=xlPart

Ceci dit il y a surement la possibilité de passer par la boîte
Rech/Remp pour remplacer ce type de charactère, si vous avez la
solution... très volontier.

b) cocher "Utiliser les caractères génériques" : c'est chtrouve pas
:?(

c) Le ^& peut être obtenu en cliquant sur le bouton [Plus], puis
[Spécial] et
en sélectionnant "Rechercher"

Qu'est ce à dire ? Quel est ce bonton [Spécial] ? Où se trouve-t-il
sur le clavier, dans la box ?
Qu'entends-tu par "SELECTIONNER Rechercher" ??? N'est-ce pas une
information à inscrire dans la plage rechercher de la box ?

Voilà mes amis, je sais je suis un peu enquiquineur mais bon c'est
tellement cool de pouvoir échanger ses idées qu'on aurait tort de
s'en priver non ?

Merci à vous deux - Croy

Très impressionné ! Voilà ce qui me chatouille encore...
a) ¶ est un caractère spécial non reconnu comme tel par la boîte
Rech/Remp

Si tu relis mon 1er message, je n'ai pas dis de taper le ¶, mais son
équvalent ^p.
Je cite :
- clique sur le bouton [Plus...], puis sur le bouton [Spécial...]
- sélectionne "Marque de paragraphe" (tu peux aussi taper directement ^p)

Au niveau code ¶ équivaut à un retour à la ligne donc doit
normalement correspondre au code 10. ";" correspond quant à lui au
code 59. D'où pour la macro
Cells.Replace What:=Chr(10), Replacement:=Chr(59), LookAt:=xlPart

Tu parles de vbCrLf (Carriage Return+Line Feed)
Chr(10) (LineFeed) ne suffit pas. Il faut lui adjoindre Chr(13) (Carriage
Return)

b) cocher "Utiliser les caractères génériques" : c'est chtrouve pas
:?(
c) Le ^& peut être obtenu en cliquant sur le bouton [Plus], puis
[Spécial] et
en sélectionnant "Rechercher"
Qu'est ce à dire ? Quel est ce bonton [Spécial] ? Où se trouve-t-il
sur le clavier, dans la box ?
Qu'entends-tu par "SELECTIONNER Rechercher" ??? N'est-ce pas une
information à inscrire dans la plage rechercher de la box ?

Tout ça, c'est dans la boîte de dialogue Remplacer (du menu Edition).
Mais je crains que nous ne parlions pas de la même version. On aurait dû
commencer par là.
Par défaut, on parle de la v2003. Et toi ?

--
Tisane

- création d'une macro pas nécessaire pour remplacer les ¶ (voir
Rechercher/Remplacer)
- passage par Excel pas utile non plus si la destination est Access
qui reconnaît parfaitement le format texte .csv

En revanche, ta recherche sur les codes postaux est intéressante.
Dans ce cas, toujours avec Rechercher/Remplacer :
Dans la zone Rechercher : [0-9][0-9][0-9][0-9][0-9]
ou, plus court, [0-9]{5}
et cocher "Utiliser les caractères génériques"
Dans la zone Remplacer par, taper ^&;
Ce qui aura pour effet de rechercher 5 chiffres et de le remplacer
par la même chose (^&) suivie d'un ;
Le ^& peut être obtenu en cliquant sur le bouton [Plus], puis
[Spécial] et en sélectionnant "Rechercher"
A affiner et cela ne vaut que si le fichier d'adresses est
franco-français.

En effet, je suis misérablement sur 2002.... (;_;)

ça me rassure j'ai eu peur un moment d'être vraiment tatignole.

Je vais essayé de m'en tirez avec tes propositions initiales de
remaniement des colonnes où avec du code...


Merci à tout les deux - Croy

Non d'un petit bonhomme, en me relisant je constate que j'aurais dû
faire les championats d'orthographe... j'aurais collectionné les
trophées... - Croy

En effet, je suis misérablement sur 2002.... (;_;)

Cela aurait pu être pire ;-)

ça me rassure j'ai eu peur un moment d'être vraiment tatignole.
Je vais essayé de m'en tirez avec tes propositions initiales de
remaniement des colonnes où avec du code...

J'ai désinstallé la 2002 pour ne garder que le 2000 et la 2003.
Mais, je viens de vérifier et toutes les codes que j'ai indiqués sont déjà
dans la v2000.
Dans la boîte de dialogue Remplacer, tu as un bouton [Plus] (si c'est
[Moins], c'est que le Plus est déjà affiché ;-))
Et tu dois avoir un autre bouton [Spécial].
Avant de cliquer sur le [Spécial], ton curseur doit être dans la zone
Rechercher ou dans la zone Remplacer selon où tu en es car le contenu de la
liste des choix sera différent.
Tu trouveras aussi une case à cocher pour les caractères génériques.

Si tu optes pour le Rechercher/Remplacer, reprends mon "mode d'emploi" et
suis-le pas à pas.

Si tu préfères le code, Jacques-A va sans doute repasser par là.

PS : tant pis pour tes fautes, on ne va retenir que ça ;-))

--
Tisane

Hé les gars j'ai trouvé le bouton "Plus" !

C'est décidé le 1er janvier j'arrête la moquette ! Vous constaterez
que je n'ai pas précisé de quel année ! :-))

Le schmolito de service vous remercie pour votre inébranlable
patience. - Croy

Hé les gars j'ai trouvé le bouton "Plus" !

Bon, tu as fait le plus dur ...

C'est décidé le 1er janvier j'arrête la moquette ! Vous constaterez
que je n'ai pas précisé de quel année ! :-))
Le schmolito de service vous remercie pour votre inébranlable
patience. - Croy

PS : T'as déjà vu un "gars" boire de la tisane ?-)

--
Tisane (une fille qui n'en boit pas non plus)