Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

numero chronologique sur document

6 réponses
Avatar
Sosal
Bonjour,

Je souhaiterai que dans chacun de mes courriers sur Word, un numéro
automatique soit effectuer en tant que reference.

J'avais deja possé cette question, et une personne m'avait donner un lien
qui pouvait m'aider, mais malheuresement je n'y arrive pas !

Voici le lien en question:
http://faqword.free.fr/articles.php?lng=fr&pg=636&prt=2

Quand j'effectue ma macro , il y a une erreur de syntaxe à ("numéro").Value


quelqu'un pourrait me donner un coup de pouce !? ou me donner une autre
solution plus simple parce que les macro c'est pas mon truc !
lol


Merci

Sophie

6 réponses

Avatar
Anacoluthe
Bonjour !

'Sosal' nous a écrit ...
Je souhaiterai que dans chacun de mes courriers sur Word, un numéro
automatique soit effectuer en tant que reference.
J'avais deja possé cette question, et une personne m'avait donner un lien
qui pouvait m'aider, mais malheuresement je n'y arrive pas !
Voici le lien en question:
http://faqword.free.fr/articles.php?lng=fr&pgc6&prt=2
Quand j'effectue ma macro , il y a une erreur de syntaxe à ("numéro").Value



Cette macro http://faqword.free.fr/articles.php?lng=fr&pgc6
(votre lien est défectueux, il lance une impression)
suppose que dans le modèle qui vous sert à faire des documents
numérotés vous avez d'abord créé une insertion automatique 'numéro'
qui conservera votre précieux compteur :

- Ouvrez votre modèle ModèleDeLettreNumérotée.dot comme un document
(Fichier / Ouvrir et non pas Fichier / Nouveau )
- tapez 0000
- sélectionnez 0000
- faites Alt+F3
- donnez le nom 'numéro' à cette IA (insertion automatique)
- allez maintenant dans
Outils / Modèles et compléments / Organiser / Insertion automatique
- Transférez l'IA numéro de Normal.dot à ModèleDeLettreNumérotée.dot
- Effacez 0000 de votre modèle

Votre modèle contient maintenant une IA numéro

Ajoutons une macro qui incrémente numéro à chaque création d'un
document (Fichier / Nouveau) avec ModèleDeLettreNumérotée.dot

Toujours dans l'édition de ModèleDeLettreNumérotée.dot
faites Alt+F11
Dirigez-vous dans TemplateProject(ModèleDeLettreNumérotée)
puis dans ThisDocument
Copiez dans la fenêtre de code ceci :

Private Sub Document_New()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
ActiveDocument.AttachedTemplate.Save
ActiveDocument.Fields.Update
End Sub

J'ai un peu modifié la macro de la FAQ qui concerne plutôt
l'incrémentation du /nom_de_fichier/ du document. Ici on se
contente d'incrémenter la valeur de l'IA numéro

Quittez l'éditeur de macros Alt+F11

Placez dans votre modèle sur votre ligne référence
votre nouvelle insertion automatique :
Insertion / Champ / InsertionAuto : numéro
Si vous faites la bascule Alt+F9 vous devez voir le champ
{ AUTOTEXT numéro * MERGEFORMAT }

Bon maintenant enregistrez votre modèle, c'est fini.

À chaque création d’un nouveau courrier avec ce modèle
le numéro de référence devrait être incrémenté automatiquement.

Il y a d'autres façons de faire, ceci était pour préciser
un peu la technique que vous avez trouvée dans la FAQ.

Vous y arrivez ?

Anacoluthe
« L'automatisation : système simplifiant tellement le travail
qu'on finira par avoir besoin d'un cerveau électronique
pour se tourner les pouces. »
- Benjamin SUBAC – NOCTUEL

Avatar
Anacoluthe
Re !

{ AUTOTEXT numéro * MERGEFORMAT }


J'y pense : si on entre la référence dans un champ AUTOTEXT
au lieu de faire numéro{F3} la référence risque de prendre
lors d'une réouverture du document le numéro en cours dans le modèle.
Mieux vaut donc fixer ce champ (Ctrl+Maj+F9) ce qu'on peut automatiser
dans la macro en ajoutant une ligne Unlink :

Private Sub Document_New()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
ActiveDocument.AttachedTemplate.Save
ActiveDocument.Fields.Update
ActiveDocument.Fields.Unlink
End Sub

Si ça gêne de déchamper d'autres champs dans le modèle, revenez
on l'écrira autrement :-)

Anacoluthe
« L'automatisation : système simplifiant tellement le travail
qu'on finira par avoir besoin d'un cerveau électronique
pour se tourner les pouces. »
- Benjamin SUBAC – NOCTUEL

Avatar
Sosal
Merci anacoluthe!

Je vais m'y mettre (j'ai du boulot, j'suis une débutante!!) et je vais voir
ce que ca donne!!

Grand merci.

Sophie
"Anacoluthe" a écrit dans le message de news:

Bonjour !

'Sosal' nous a écrit ...
Je souhaiterai que dans chacun de mes courriers sur Word, un numéro
automatique soit effectuer en tant que reference.
J'avais deja possé cette question, et une personne m'avait donner un lien
qui pouvait m'aider, mais malheuresement je n'y arrive pas !
Voici le lien en question:
http://faqword.free.fr/articles.php?lng=fr&pgc6&prt=2
Quand j'effectue ma macro , il y a une erreur de syntaxe à
("numéro").Value



Cette macro http://faqword.free.fr/articles.php?lng=fr&pgc6
(votre lien est défectueux, il lance une impression)
suppose que dans le modèle qui vous sert à faire des documents
numérotés vous avez d'abord créé une insertion automatique 'numéro'
qui conservera votre précieux compteur :

- Ouvrez votre modèle ModèleDeLettreNumérotée.dot comme un document
(Fichier / Ouvrir et non pas Fichier / Nouveau )
- tapez 0000
- sélectionnez 0000
- faites Alt+F3
- donnez le nom 'numéro' à cette IA (insertion automatique)
- allez maintenant dans
Outils / Modèles et compléments / Organiser / Insertion automatique
- Transférez l'IA numéro de Normal.dot à ModèleDeLettreNumérotée.dot
- Effacez 0000 de votre modèle

Votre modèle contient maintenant une IA numéro

Ajoutons une macro qui incrémente numéro à chaque création d'un
document (Fichier / Nouveau) avec ModèleDeLettreNumérotée.dot

Toujours dans l'édition de ModèleDeLettreNumérotée.dot
faites Alt+F11
Dirigez-vous dans TemplateProject(ModèleDeLettreNumérotée)
puis dans ThisDocument
Copiez dans la fenêtre de code ceci :

Private Sub Document_New()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
ActiveDocument.AttachedTemplate.Save
ActiveDocument.Fields.Update
End Sub

J'ai un peu modifié la macro de la FAQ qui concerne plutôt
l'incrémentation du /nom_de_fichier/ du document. Ici on se
contente d'incrémenter la valeur de l'IA numéro

Quittez l'éditeur de macros Alt+F11

Placez dans votre modèle sur votre ligne référence
votre nouvelle insertion automatique :
Insertion / Champ / InsertionAuto : numéro
Si vous faites la bascule Alt+F9 vous devez voir le champ
{ AUTOTEXT numéro * MERGEFORMAT }

Bon maintenant enregistrez votre modèle, c'est fini.

À chaque création d’un nouveau courrier avec ce modèle
le numéro de référence devrait être incrémenté automatiquement.

Il y a d'autres façons de faire, ceci était pour préciser
un peu la technique que vous avez trouvée dans la FAQ.

Vous y arrivez ?

Anacoluthe
« L'automatisation : système simplifiant tellement le travail
qu'on finira par avoir besoin d'un cerveau électronique
pour se tourner les pouces. »
- Benjamin SUBAC – NOCTUEL



Avatar
Sosal
Bonjour,

Je tiens à vous remercier de votre aide concernant l'insertion automatique
d'un numéro.

J'ai bien suivi votre démarche, mais j'ai un soucis à la fin quand il faut
faire insertion/champs/InsertionAuto : numéro.

Jusqu'a champs ca va, mais je n'ai pas d'onglet ou icone InsertionAuto, donc
je ne peut pas avoir la bascule alt+F9

Est-ce que je m'y prend mal ou est ce une erreur ??

merci de votre aide.

Sophie

"Sosal" a écrit dans le message de news:
430c95a2$0$27433$
Merci anacoluthe!

Je vais m'y mettre (j'ai du boulot, j'suis une débutante!!) et je vais
voir ce que ca donne!!

Grand merci.

Sophie
"Anacoluthe" a écrit dans le message de
news:
Bonjour !

'Sosal' nous a écrit ...
Je souhaiterai que dans chacun de mes courriers sur Word, un numéro
automatique soit effectuer en tant que reference.
J'avais deja possé cette question, et une personne m'avait donner un
lien qui pouvait m'aider, mais malheuresement je n'y arrive pas !
Voici le lien en question:
http://faqword.free.fr/articles.php?lng=fr&pgc6&prt=2
Quand j'effectue ma macro , il y a une erreur de syntaxe à
("numéro").Value



Cette macro http://faqword.free.fr/articles.php?lng=fr&pgc6
(votre lien est défectueux, il lance une impression)
suppose que dans le modèle qui vous sert à faire des documents
numérotés vous avez d'abord créé une insertion automatique 'numéro'
qui conservera votre précieux compteur :

- Ouvrez votre modèle ModèleDeLettreNumérotée.dot comme un document
(Fichier / Ouvrir et non pas Fichier / Nouveau )
- tapez 0000
- sélectionnez 0000
- faites Alt+F3
- donnez le nom 'numéro' à cette IA (insertion automatique)
- allez maintenant dans
Outils / Modèles et compléments / Organiser / Insertion automatique
- Transférez l'IA numéro de Normal.dot à ModèleDeLettreNumérotée.dot
- Effacez 0000 de votre modèle

Votre modèle contient maintenant une IA numéro

Ajoutons une macro qui incrémente numéro à chaque création d'un
document (Fichier / Nouveau) avec ModèleDeLettreNumérotée.dot

Toujours dans l'édition de ModèleDeLettreNumérotée.dot
faites Alt+F11
Dirigez-vous dans TemplateProject(ModèleDeLettreNumérotée)
puis dans ThisDocument
Copiez dans la fenêtre de code ceci :

Private Sub Document_New()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
ActiveDocument.AttachedTemplate.Save
ActiveDocument.Fields.Update
End Sub

J'ai un peu modifié la macro de la FAQ qui concerne plutôt
l'incrémentation du /nom_de_fichier/ du document. Ici on se
contente d'incrémenter la valeur de l'IA numéro

Quittez l'éditeur de macros Alt+F11

Placez dans votre modèle sur votre ligne référence
votre nouvelle insertion automatique :
Insertion / Champ / InsertionAuto : numéro
Si vous faites la bascule Alt+F9 vous devez voir le champ
{ AUTOTEXT numéro * MERGEFORMAT }

Bon maintenant enregistrez votre modèle, c'est fini.

À chaque création d'un nouveau courrier avec ce modèle
le numéro de référence devrait être incrémenté automatiquement.

Il y a d'autres façons de faire, ceci était pour préciser
un peu la technique que vous avez trouvée dans la FAQ.

Vous y arrivez ?

Anacoluthe
« L'automatisation : système simplifiant tellement le travail
qu'on finira par avoir besoin d'un cerveau électronique
pour se tourner les pouces. »
- Benjamin SUBAC - NOCTUEL







Avatar
Anacoluthe
Bonjour !

'Sosal' nous a écrit ...
J'ai bien suivi votre démarche, mais j'ai un soucis à la fin quand il faut
faire insertion/champs/InsertionAuto : numéro.


Selon votre version Word dans la boîte Insertion / Champ
vous devez sélectionner le champ AutoText ou InsertionAuto
(c'est pareil) et sélectionner votre insertion nommée 'numéro'

je ne peut pas avoir la bascule alt+F9


Quand on fait Alt+F9 on affiche/masque les codes des champs :
Utilisez cette bascule pour vérifier les champs de votre document

Pour réussir votre numérotation automatique de courriers
vous devez comprendre ce qu'est une insertion automatique (IA)
et ce qu'est un champ. Ici le principe est très simple:
vous utilisez une IA qui s'appelle numéro
et qui contient un nombre par exemple 1234
si vous écrivez numéro suivi de F3 le nombre 1234 est inséré
si vous placez un champ { AUTOTEXT Numéro } ça revient au même.
c'est clair ?

Ensuite tout le principe de la macro est de modifier
votre IA numéro pour que le nombre en question
soit incrémenté à chaque nouveau document.

Vous ne réussirez cette astuce que si vous en avez compris
le principe. Évitez d'appliquer des recettes toutes faites :-)

Anacoluthe
« L'automatisation : système simplifiant tellement le travail
qu'on finira par avoir besoin d'un cerveau électronique
pour se tourner les pouces. »
- Benjamin SUBAC - NOCTUEL

Avatar
Sosal
Bonjour,

Cool, j'ai bien compri le systeme, et en plus ca marche,

Enormes merci et a bientot p'tre !

Sophie

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

Bonjour !

'Sosal' nous a écrit ...
J'ai bien suivi votre démarche, mais j'ai un soucis à la fin quand il
faut
faire insertion/champs/InsertionAuto : numéro.


Selon votre version Word dans la boîte Insertion / Champ
vous devez sélectionner le champ AutoText ou InsertionAuto
(c'est pareil) et sélectionner votre insertion nommée 'numéro'

je ne peut pas avoir la bascule alt+F9


Quand on fait Alt+F9 on affiche/masque les codes des champs :
Utilisez cette bascule pour vérifier les champs de votre document

Pour réussir votre numérotation automatique de courriers
vous devez comprendre ce qu'est une insertion automatique (IA)
et ce qu'est un champ. Ici le principe est très simple:
vous utilisez une IA qui s'appelle numéro
et qui contient un nombre par exemple 1234
si vous écrivez numéro suivi de F3 le nombre 1234 est inséré
si vous placez un champ { AUTOTEXT Numéro } ça revient au même.
c'est clair ?

Ensuite tout le principe de la macro est de modifier
votre IA numéro pour que le nombre en question
soit incrémenté à chaque nouveau document.

Vous ne réussirez cette astuce que si vous en avez compris
le principe. Évitez d'appliquer des recettes toutes faites :-)

Anacoluthe
« L'automatisation : système simplifiant tellement le travail
qu'on finira par avoir besoin d'un cerveau électronique
pour se tourner les pouces. »
- Benjamin SUBAC - NOCTUEL