bonjour,
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux.
C à D Que les deux premières est le n° 1, les suivantes le N° 2, ceci
ainsi de suite à la sortie de l'imprimante.
Cela est il possible avec WORD
merci de vos réponse
bonjour,
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux.
C à D Que les deux premières est le n° 1, les suivantes le N° 2, ceci
ainsi de suite à la sortie de l'imprimante.
Cela est il possible avec WORD
merci de vos réponse
bonjour,
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux.
C à D Que les deux premières est le n° 1, les suivantes le N° 2, ceci
ainsi de suite à la sortie de l'imprimante.
Cela est il possible avec WORD
merci de vos réponse
J'ai trouvé la fonction revnum qui numérote les enregistrements.
Est il possible de faire la même chose les impressions.J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux.
C à D Que les deux premières est le n° 1, les suivantes le N° 2, ceci
ainsi de suite à la sortie de l'imprimante.
Cela est il possible avec WORD
J'ai trouvé la fonction revnum qui numérote les enregistrements.
Est il possible de faire la même chose les impressions.
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux.
C à D Que les deux premières est le n° 1, les suivantes le N° 2, ceci
ainsi de suite à la sortie de l'imprimante.
Cela est il possible avec WORD
J'ai trouvé la fonction revnum qui numérote les enregistrements.
Est il possible de faire la même chose les impressions.J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux.
C à D Que les deux premières est le n° 1, les suivantes le N° 2, ceci
ainsi de suite à la sortie de l'imprimante.
Cela est il possible avec WORD
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux. C à D Que les deux premières est le n° 1, les suivantes le N°
2, ceci ainsi de suite à la sortie de l'imprimante.
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux. C à D Que les deux premières est le n° 1, les suivantes le N°
2, ceci ainsi de suite à la sortie de l'imprimante.
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ce fiches aient une numérotation jointes deux par
deux. C à D Que les deux premières est le n° 1, les suivantes le N°
2, ceci ainsi de suite à la sortie de l'imprimante.
Bonjour nicolas,J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ces fiches aient une numérotation jointes deux par
deux. C à D Que les deux premières est le n° 1, les suivantes le N°
2, ceci ainsi de suite à la sortie de l'imprimante.
Si je comprends que tu veux imprimer un formulaire de 2 pages, les 2 pages
portant le même numéro, en plusieurs exemplaires, et avec numérotation
séquentielle, je vois 2 possibilités :
1. Un publipostage "bidon" avec un seul champ qui contiendrait la liste
des numéros et qui fusionnerait uniquement avec ce champ
2. Une macro qui pourrait ressembler à celle-ci :
Sub Increment()
Dim NbExemplaires As Long, Serie As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Set Serie = ActiveDocument.Bookmarks("NumOrdre").Range
Compteur = 0
While Compteur < NbExemplaires
Serie.Delete
Serie.Text = NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
.Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
Dans ton formulaire, crée un signet "NumOrdre" en en-tête ou pied de page
afin qu'il se répète sur les 2 pages du formulaire.
Cette macro te demande le nombre d'exemplaires que tu souhaites imprimer,
numérote en séquence et imprime, puis enregistre dans un petit fichier
texte (Increment.txt) le futur numéro à utiliser si tu imprimes en
plusieurs fois. Dans le code, remplace Ton_Chemin par celui que tu veux.
Je viens de voir que ce n'est pas très clair pour Anacoluthe non plus.
Reviens donc préciser ta demande. Moi, c'est la 1re phrase qui m'intrigue
: "un formulaire comportant deux fiches différentes".
Tu veux dire qu'il a 2 pages ?
--
Tisane
Bonjour nicolas,
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ces fiches aient une numérotation jointes deux par
deux. C à D Que les deux premières est le n° 1, les suivantes le N°
2, ceci ainsi de suite à la sortie de l'imprimante.
Si je comprends que tu veux imprimer un formulaire de 2 pages, les 2 pages
portant le même numéro, en plusieurs exemplaires, et avec numérotation
séquentielle, je vois 2 possibilités :
1. Un publipostage "bidon" avec un seul champ qui contiendrait la liste
des numéros et qui fusionnerait uniquement avec ce champ
2. Une macro qui pourrait ressembler à celle-ci :
Sub Increment()
Dim NbExemplaires As Long, Serie As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Set Serie = ActiveDocument.Bookmarks("NumOrdre").Range
Compteur = 0
While Compteur < NbExemplaires
Serie.Delete
Serie.Text = NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
.Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
Dans ton formulaire, crée un signet "NumOrdre" en en-tête ou pied de page
afin qu'il se répète sur les 2 pages du formulaire.
Cette macro te demande le nombre d'exemplaires que tu souhaites imprimer,
numérote en séquence et imprime, puis enregistre dans un petit fichier
texte (Increment.txt) le futur numéro à utiliser si tu imprimes en
plusieurs fois. Dans le code, remplace Ton_Chemin par celui que tu veux.
Je viens de voir que ce n'est pas très clair pour Anacoluthe non plus.
Reviens donc préciser ta demande. Moi, c'est la 1re phrase qui m'intrigue
: "un formulaire comportant deux fiches différentes".
Tu veux dire qu'il a 2 pages ?
--
Tisane
Bonjour nicolas,J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ces fiches aient une numérotation jointes deux par
deux. C à D Que les deux premières est le n° 1, les suivantes le N°
2, ceci ainsi de suite à la sortie de l'imprimante.
Si je comprends que tu veux imprimer un formulaire de 2 pages, les 2 pages
portant le même numéro, en plusieurs exemplaires, et avec numérotation
séquentielle, je vois 2 possibilités :
1. Un publipostage "bidon" avec un seul champ qui contiendrait la liste
des numéros et qui fusionnerait uniquement avec ce champ
2. Une macro qui pourrait ressembler à celle-ci :
Sub Increment()
Dim NbExemplaires As Long, Serie As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Set Serie = ActiveDocument.Bookmarks("NumOrdre").Range
Compteur = 0
While Compteur < NbExemplaires
Serie.Delete
Serie.Text = NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
.Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
Dans ton formulaire, crée un signet "NumOrdre" en en-tête ou pied de page
afin qu'il se répète sur les 2 pages du formulaire.
Cette macro te demande le nombre d'exemplaires que tu souhaites imprimer,
numérote en séquence et imprime, puis enregistre dans un petit fichier
texte (Increment.txt) le futur numéro à utiliser si tu imprimes en
plusieurs fois. Dans le code, remplace Ton_Chemin par celui que tu veux.
Je viens de voir que ce n'est pas très clair pour Anacoluthe non plus.
Reviens donc préciser ta demande. Moi, c'est la 1re phrase qui m'intrigue
: "un formulaire comportant deux fiches différentes".
Tu veux dire qu'il a 2 pages ?
--
Tisane
Comment faire pour que l'impression de ce document passe
automatiquement par le code ci-dessus ?
Prenons une feuille A4 au format paysage. Dans celle-ci, deux zones
de texte « découpant » la feuille en deux parties (A3) droite et gauche.
La
partie de gauche contient des renseignements concernant un client (pour un
abonnement) à conserver. La partie de droite contient les conditions et
les
droits de l'abonnement à donner au client.
Voila pour la présentation.
Le problème est que je désire imprimer plusieurs de ces formulaires
et qu'ils soient numérotés c'est-à-dire que le numéro de la partie gauche
corresponde à la partie de droite.
De ton code qui m'a été indispensable j'ai tiré ceci :
Sub impr()
Dim NbExemplaires As Long, Serie, Serie1 As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("D:mes
documentsIncrement.txt", "Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Compteur = 0
While Compteur < NbExemplaires
ActiveDocument.Shapes(4).Select
Selection.TypeText Text:=NumOrdre
ActiveDocument.Shapes(5).Select
Selection.TypeText Text:=NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("D:mes documentsIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
' .Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
J'ai contourné le problème du signet (avec moi il y a un problème L )
par l'inscription du N° dans deux zones de texte.
Je vous remercie de votre aide qui mérite la même reconnaissance que
celle du MPFE
"Tisane" a écrit dans le message de news:
%Bonjour nicolas,J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ces fiches aient une numérotation jointes deux
par deux. C à D Que les deux premières est le n° 1, les suivantes
le N° 2, ceci ainsi de suite à la sortie de l'imprimante.
Si je comprends que tu veux imprimer un formulaire de 2 pages, les 2
pages portant le même numéro, en plusieurs exemplaires, et avec
numérotation séquentielle, je vois 2 possibilités :
1. Un publipostage "bidon" avec un seul champ qui contiendrait la
liste des numéros et qui fusionnerait uniquement avec ce champ
2. Une macro qui pourrait ressembler à celle-ci :
Sub Increment()
Dim NbExemplaires As Long, Serie As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Set Serie = ActiveDocument.Bookmarks("NumOrdre").Range
Compteur = 0
While Compteur < NbExemplaires
Serie.Delete
Serie.Text = NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
.Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
Dans ton formulaire, crée un signet "NumOrdre" en en-tête ou pied de
page afin qu'il se répète sur les 2 pages du formulaire.
Cette macro te demande le nombre d'exemplaires que tu souhaites
imprimer, numérote en séquence et imprime, puis enregistre dans un
petit fichier texte (Increment.txt) le futur numéro à utiliser si tu
imprimes en plusieurs fois. Dans le code, remplace Ton_Chemin par
celui que tu veux. Je viens de voir que ce n'est pas très clair pour
Anacoluthe non
plus. Reviens donc préciser ta demande. Moi, c'est la 1re phrase qui
m'intrigue"un formulaire comportant deux fiches différentes".
Tu veux dire qu'il a 2 pages ?
--
Tisane
Comment faire pour que l'impression de ce document passe
automatiquement par le code ci-dessus ?
Prenons une feuille A4 au format paysage. Dans celle-ci, deux zones
de texte « découpant » la feuille en deux parties (A3) droite et gauche.
La
partie de gauche contient des renseignements concernant un client (pour un
abonnement) à conserver. La partie de droite contient les conditions et
les
droits de l'abonnement à donner au client.
Voila pour la présentation.
Le problème est que je désire imprimer plusieurs de ces formulaires
et qu'ils soient numérotés c'est-à-dire que le numéro de la partie gauche
corresponde à la partie de droite.
De ton code qui m'a été indispensable j'ai tiré ceci :
Sub impr()
Dim NbExemplaires As Long, Serie, Serie1 As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("D:mes
documentsIncrement.txt", "Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Compteur = 0
While Compteur < NbExemplaires
ActiveDocument.Shapes(4).Select
Selection.TypeText Text:=NumOrdre
ActiveDocument.Shapes(5).Select
Selection.TypeText Text:=NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("D:mes documentsIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
' .Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
J'ai contourné le problème du signet (avec moi il y a un problème L )
par l'inscription du N° dans deux zones de texte.
Je vous remercie de votre aide qui mérite la même reconnaissance que
celle du MPFE
"Tisane" <b.tisane@laposte.net> a écrit dans le message de news:
%23O2QjQGuGHA.476@TK2MSFTNGP06.phx.gbl...
Bonjour nicolas,
J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ces fiches aient une numérotation jointes deux
par deux. C à D Que les deux premières est le n° 1, les suivantes
le N° 2, ceci ainsi de suite à la sortie de l'imprimante.
Si je comprends que tu veux imprimer un formulaire de 2 pages, les 2
pages portant le même numéro, en plusieurs exemplaires, et avec
numérotation séquentielle, je vois 2 possibilités :
1. Un publipostage "bidon" avec un seul champ qui contiendrait la
liste des numéros et qui fusionnerait uniquement avec ce champ
2. Une macro qui pourrait ressembler à celle-ci :
Sub Increment()
Dim NbExemplaires As Long, Serie As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Set Serie = ActiveDocument.Bookmarks("NumOrdre").Range
Compteur = 0
While Compteur < NbExemplaires
Serie.Delete
Serie.Text = NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
.Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
Dans ton formulaire, crée un signet "NumOrdre" en en-tête ou pied de
page afin qu'il se répète sur les 2 pages du formulaire.
Cette macro te demande le nombre d'exemplaires que tu souhaites
imprimer, numérote en séquence et imprime, puis enregistre dans un
petit fichier texte (Increment.txt) le futur numéro à utiliser si tu
imprimes en plusieurs fois. Dans le code, remplace Ton_Chemin par
celui que tu veux. Je viens de voir que ce n'est pas très clair pour
Anacoluthe non
plus. Reviens donc préciser ta demande. Moi, c'est la 1re phrase qui
m'intrigue
"un formulaire comportant deux fiches différentes".
Tu veux dire qu'il a 2 pages ?
--
Tisane
Comment faire pour que l'impression de ce document passe
automatiquement par le code ci-dessus ?
Prenons une feuille A4 au format paysage. Dans celle-ci, deux zones
de texte « découpant » la feuille en deux parties (A3) droite et gauche.
La
partie de gauche contient des renseignements concernant un client (pour un
abonnement) à conserver. La partie de droite contient les conditions et
les
droits de l'abonnement à donner au client.
Voila pour la présentation.
Le problème est que je désire imprimer plusieurs de ces formulaires
et qu'ils soient numérotés c'est-à-dire que le numéro de la partie gauche
corresponde à la partie de droite.
De ton code qui m'a été indispensable j'ai tiré ceci :
Sub impr()
Dim NbExemplaires As Long, Serie, Serie1 As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("D:mes
documentsIncrement.txt", "Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Compteur = 0
While Compteur < NbExemplaires
ActiveDocument.Shapes(4).Select
Selection.TypeText Text:=NumOrdre
ActiveDocument.Shapes(5).Select
Selection.TypeText Text:=NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("D:mes documentsIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
' .Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
J'ai contourné le problème du signet (avec moi il y a un problème L )
par l'inscription du N° dans deux zones de texte.
Je vous remercie de votre aide qui mérite la même reconnaissance que
celle du MPFE
"Tisane" a écrit dans le message de news:
%Bonjour nicolas,J'ai réalisé un formulaire comportant deux fiches différentes.
je souhaiterais que ces fiches aient une numérotation jointes deux
par deux. C à D Que les deux premières est le n° 1, les suivantes
le N° 2, ceci ainsi de suite à la sortie de l'imprimante.
Si je comprends que tu veux imprimer un formulaire de 2 pages, les 2
pages portant le même numéro, en plusieurs exemplaires, et avec
numérotation séquentielle, je vois 2 possibilités :
1. Un publipostage "bidon" avec un seul champ qui contiendrait la
liste des numéros et qui fusionnerait uniquement avec ce champ
2. Une macro qui pourrait ressembler à celle-ci :
Sub Increment()
Dim NbExemplaires As Long, Serie As Range
NbExemplaires = Val(InputBox("Nombre de formulaires à imprimer",
"Impression", "1"))
NumOrdre = System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre")
If NumOrdre = "" Then
NumOrdre = 1
End If
Set Serie = ActiveDocument.Bookmarks("NumOrdre").Range
Compteur = 0
While Compteur < NbExemplaires
Serie.Delete
Serie.Text = NumOrdre
ActiveDocument.PrintOut
NumOrdre = NumOrdre + 1
Compteur = Compteur + 1
Wend
System.PrivateProfileString("C:Ton_CheminIncrement.txt",
"Incrementation", "NumOrdre") = NumOrdre
With ActiveDocument.Bookmarks
.Add Name:="NumOrdre", Range:=Serie
End With
ActiveDocument.Save
End Sub
Dans ton formulaire, crée un signet "NumOrdre" en en-tête ou pied de
page afin qu'il se répète sur les 2 pages du formulaire.
Cette macro te demande le nombre d'exemplaires que tu souhaites
imprimer, numérote en séquence et imprime, puis enregistre dans un
petit fichier texte (Increment.txt) le futur numéro à utiliser si tu
imprimes en plusieurs fois. Dans le code, remplace Ton_Chemin par
celui que tu veux. Je viens de voir que ce n'est pas très clair pour
Anacoluthe non
plus. Reviens donc préciser ta demande. Moi, c'est la 1re phrase qui
m'intrigue"un formulaire comportant deux fiches différentes".
Tu veux dire qu'il a 2 pages ?
--
Tisane
