Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word Publipostage et numérotation automatique

Publipostage et numérotation automatique

10 réponses
Avatar
cpalo
Bonjour,
sous word, je fais un publipostage qui m'édite pour chacun des adhérents de
mon club un bon avec leurs coordonnées. Je souhaiterai que ces bons soient
numérotés automatiquement.
du genre N.01 , N.02, et ainsio de suite
Merci de votre aide
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
cpalo
Rebonjour,
la numérotation automatique fonctionne, mais ce que je cherche c'est la
faire démarrer à un chiffre bien précis
Par exemple N.86 , N.87 , N.88 ...



"cpalo" a écrit dans le message de news:

Bonjour,
sous word, je fais un publipostage qui m'édite pour chacun des adhérents
de

mon club un bon avec leurs coordonnées. Je souhaiterai que ces bons soient
numérotés automatiquement.
du genre N.01 , N.02, et ainsio de suite
Merci de votre aide




Avatar
JLuc
--
Bonjour cpalo,

Grace aux insertions automatiques, essaye ca :
define_numero = Val(NormalTemplate.AutoTextEntries("moncompteur")) + 1
NormalTemplate.AutoTextEntries("moncompteur").Value = define_numero
Pour creer moncompteur, tu ouvres word, tu tapes ton numero, tu le
selectionnes et tu fais :
Insertion/insertion automatique/creer
tu donne moncompteur comme nom d'entree et le tour est jouer

JLuc
Pour m'ecrire, supprimer 'ns.' dans l'adresse.
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~
"cpalo" a écrit dans le message de
news:%
Rebonjour,
la numérotation automatique fonctionne, mais ce que je cherche c'est la
faire démarrer à un chiffre bien précis
Par exemple N.86 , N.87 , N.88 ...



"cpalo" a écrit dans le message de news:

Bonjour,
sous word, je fais un publipostage qui m'édite pour chacun des adhérents
de

mon club un bon avec leurs coordonnées. Je souhaiterai que ces bons
soient


numérotés automatiquement.
du genre N.01 , N.02, et ainsio de suite
Merci de votre aide








Avatar
boblebob
salut,

et si tu rajoutais une colonne dans ton tableau adhérents avec cette
numérotation ?
"cpalo" a écrit dans le message de
news:
Bonjour,
sous word, je fais un publipostage qui m'édite pour chacun des adhérents
de

mon club un bon avec leurs coordonnées. Je souhaiterai que ces bons soient
numérotés automatiquement.
du genre N.01 , N.02, et ainsio de suite
Merci de votre aide




Avatar
Anacoluthe
Bonjour !

"JLuc" nous a écrit ...
Grace aux insertions automatiques, essaye ca :
define_numero > Val(NormalTemplate.AutoTextEntries("moncompteur")) + 1
NormalTemplate.AutoTextEntries("moncompteur").Value = define_numero
Pour creer moncompteur, tu ouvres word, tu tapes ton numero, tu le
selectionnes et tu fais : Insertion/insertion automatique/creer
tu donne moncompteur comme nom d'entree et le tour est jouer


Pas mal l'idée de placer un incrément dans une IA ! Ce code doit
être placé dans une macro automatique AutoNew ou AutoOpen selon
l'usage qu'on en fait, ou dans un événement. Il faudra quand même
entrer d'une façon manuelle l'IA dans le document final...

Maintenant, je pense que pour le publipostage de "cpalo"
il suffirait d'un champ calculé N.{ ={ MERGEREC } + 85 }
pour avoir N.86 N.87 N.88 ...

Anacoluthe
« L'arithmétique, c'est être capable de compter jusqu'à vingt
sans enlever ses chaussures. »
- Walt DISNEY

PS [HS] :
Jluc, peux tu éviter dans ton Outlook Express de placer --
au début de tes posts : ce signe est pris en général pour
le début d'une signature que bien des lecteurs de news
ne 'quotent' pas (citer en plaçant un symbole devant) :-(
merci ;-) A~

Avatar
JLuc
Salut Anacoluthe

Pas mal l'idée de placer un incrément dans une IA ! Ce code doit
être placé dans une macro automatique AutoNew ou AutoOpen selon
l'usage qu'on en fait, ou dans un événement. Il faudra quand même
entrer d'une façon manuelle l'IA dans le document final...


Qu'appeles tu IA ?
Ce code, je l'utilise dans une macro AutoNew et la variable j'en fais ce que
je veux

monfichier = "Document N" & moncompteur

ensuite j'enregistre :
ChangeFileOpenDirectory "d:FichiersWord"
ActiveDocument.SaveAs FileName:=monfichier, FileFormat:=wdFormatDocument

Si tu pouvais me donner plus d'explications...

PS [HS] :
Jluc, peux tu éviter dans ton Outlook Express de placer --
au début de tes posts : ce signe est pris en général pour
le début d'une signature que bien des lecteurs de news
ne 'quotent' pas (citer en plaçant un symbole devant) :-(
merci ;-) A~



Ok pour la signature, j'en mettrais plus promis. Mais comment faites vous
pour commencer par :
"Bonjour untel" ou "untel nous a ecrit
et finir par une signature personnelle ?
A+
JLuc

Avatar
Sa.Cha.
Salut,
JLuc, de ses doigts agiles, nous tapota ce qui suit :

| Salut Anacoluthe
|
[...]
| Ok pour la signature, j'en mettrais plus promis. Mais comment faites
| vous pour commencer par :
| "Bonjour untel" ou "untel nous a ecrit
| et finir par une signature personnelle ?

OE-Quotefix sur la http://www.faqoe.com



--
Bien amicalement,
Sa.Cha.
Je suis contre les femmes, le plus "contre" possible.
(Sacha Guitry).


---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date: 11/12/2003
Avatar
Geo
Bonsoir JLuc,


Mais comment faites
vous pour commencer par :
"Bonjour untel" ou "untel nous a ecrit


Pour les utilisateurs d'outlook express, c'est la magie d'OEquotefix
tu trouveras le lien là
http://www.faqoe.com/

et finir par une signature personnelle ?


OE quote fix en fait aussi, mais j'utilise les signatures de OE tout
bêtement, tiens en voici quelques unes (on en choisit une par défaut
qui apparait quand on clique sur "insérer une signature":

--

Geo de la douce Touraine (France)

--
A+

--
Voir la faq de la webmistress marina
(où il y en plein d'autres bonnes choses aussi)
http://faq.ms.word.free.fr/

Avatar
JLuc
Salut Sa.Cha.,

Super, ca marche ! ;-)))

--
Et encore merci !
JLuc
Pour m'ecrire, supprimer 'ns.' dans l'adresse.
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~
Salut,
JLuc, de ses doigts agiles, nous tapota ce qui suit :

Salut Anacoluthe

[...]

Ok pour la signature, j'en mettrais plus promis. Mais comment faites
vous pour commencer par :
"Bonjour untel" ou "untel nous a ecrit
et finir par une signature personnelle ?


OE-Quotefix sur la http://www.faqoe.com



Avatar
Sa.Cha.
Salut,
JLuc, de ses doigts agiles, nous tapota ce qui suit :

| Salut Sa.Cha.,
|
| Super, ca marche ! ;-)))
|
|| Salut,
|| JLuc, de ses doigts agiles, nous tapota ce qui suit :
||
||| Salut Anacoluthe
|||
|| [...]
||| Ok pour la signature, j'en mettrais plus promis. Mais comment faites
||| vous pour commencer par :
||| "Bonjour untel" ou "untel nous a ecrit
||| et finir par une signature personnelle ?
||
|| OE-Quotefix sur la http://www.faqoe.com

Content pour toi ! mais il faudrait pour bien faire décocher la case "curseur au début"


--
Bien amicalement,
Sa.Cha.
Un mélomane est celui qui, entendant chanter une femme dans sa salle de bains, s'approche du trou de la serrure et y colle son
oreille.
(Francis Blanche).


---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date: 11/12/2003
Avatar
Anacoluthe
Bonjour !

"JLuc" nous a écrit ...
Qu'appeles tu IA ?


Oups ! désolé IA = Insertion Automatique !
Word n'a pas encore d'Intelligence Artificielle
ça m'apprendra à me moquer des TCD de certains :-)

Si tu pouvais me donner plus d'explications...


Ton code utilise d'une part une variable numérique VBA 'define_numero'
que tu peux utiliser dans une macro, par exemple pour former
un nom de fichier, et d'autre part une IA 'moncompteur' pour
insérer facilement la valeur dans le texte. Une macro automatique
se charge de synchroniser les deux. La valeur courante est gardée
dans le modèle (c'est là que sont rangées les IA) ce qui évite
les réinitialisations de variables dans VBA.

En toute logique, d'après ce que tu nous avais écris
monfichier = "Document N" & moncompteur
ActiveDocument.SaveAs FileName:=monfichier
devrait plutôt s'écrire
monfichier = "Document N" & Str(define_numero)
ActiveDocument.SaveAs FileName:=monfichier

Anacoluthe
« Il est toujours aisé d'être logique.
Il est presque impossible d'être logique jusqu'au bout. »
- Albert CAMUS