J'ai fait un mod=E8le de billet de concert b=E9n=E9fice dans=20
Publisher 2000 que j'ai import=E9 dans Excel. J'aimerais en=20
imprimer 50 mais avec un num=E9ro unique pour chaque billet.
(de 1 =E0 50)
Est-il possible de cr=E9er un compteur sur mon billet qui=20
s'incr=E9mente =E0 toutes les fois que j'imprime le billet.
Exemple : Je lance l'impression de 50 copie, mon premier=20
billet s'imprime avec le # 1, le deuxieme billet s'imprime=20
avec le #2, etc.
J'esp=E8re avoir =E9t=E9 assez clair.
Merci d'avance
Michel
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
Philippe.R
Bonsoir Michel, Le code suivant le fait avec le numéro en A1 :
Sub imprimoica() 'MPFE le 28/09/2004 Dim i As Integer, comBien As Integer comBien = InputBox("Combien de copies ?", "MPFE") * 1 For i = 1 To comBien [A1] = i 'emplacement à adapter ActiveSheet.PrintOut Copies:=1, Collate:=True Next End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:460201c4a56f$bb301560$ Bonjour à tous,
J'ai fait un modèle de billet de concert bénéfice dans Publisher 2000 que j'ai importé dans Excel. J'aimerais en imprimer 50 mais avec un numéro unique pour chaque billet. (de 1 à 50)
Est-il possible de créer un compteur sur mon billet qui s'incrémente à toutes les fois que j'imprime le billet.
Exemple : Je lance l'impression de 50 copie, mon premier billet s'imprime avec le # 1, le deuxieme billet s'imprime avec le #2, etc.
J'espère avoir été assez clair. Merci d'avance Michel
Bonsoir Michel,
Le code suivant le fait avec le numéro en A1 :
Sub imprimoica()
'MPFE le 28/09/2004
Dim i As Integer, comBien As Integer
comBien = InputBox("Combien de copies ?", "MPFE") * 1
For i = 1 To comBien
[A1] = i 'emplacement à adapter
ActiveSheet.PrintOut Copies:=1, Collate:=True
Next
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Michel" <lmichel@croissancetravail.qc.ca> a écrit dans le message de
news:460201c4a56f$bb301560$a401280a@phx.gbl...
Bonjour à tous,
J'ai fait un modèle de billet de concert bénéfice dans
Publisher 2000 que j'ai importé dans Excel. J'aimerais en
imprimer 50 mais avec un numéro unique pour chaque billet.
(de 1 à 50)
Est-il possible de créer un compteur sur mon billet qui
s'incrémente à toutes les fois que j'imprime le billet.
Exemple : Je lance l'impression de 50 copie, mon premier
billet s'imprime avec le # 1, le deuxieme billet s'imprime
avec le #2, etc.
J'espère avoir été assez clair.
Merci d'avance
Michel
Bonsoir Michel, Le code suivant le fait avec le numéro en A1 :
Sub imprimoica() 'MPFE le 28/09/2004 Dim i As Integer, comBien As Integer comBien = InputBox("Combien de copies ?", "MPFE") * 1 For i = 1 To comBien [A1] = i 'emplacement à adapter ActiveSheet.PrintOut Copies:=1, Collate:=True Next End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:460201c4a56f$bb301560$ Bonjour à tous,
J'ai fait un modèle de billet de concert bénéfice dans Publisher 2000 que j'ai importé dans Excel. J'aimerais en imprimer 50 mais avec un numéro unique pour chaque billet. (de 1 à 50)
Est-il possible de créer un compteur sur mon billet qui s'incrémente à toutes les fois que j'imprime le billet.
Exemple : Je lance l'impression de 50 copie, mon premier billet s'imprime avec le # 1, le deuxieme billet s'imprime avec le #2, etc.
J'espère avoir été assez clair. Merci d'avance Michel
michdenis
Bonjour Michel,
Sur l'image de ton billet, tu insères une zone de texte que tu formates selon les besoins ... et tu peux par la suite utiliser ce type de macro pour imprimer ton billet avec un compteur
Le principe : Tu lances autant de fois l'impression de la feuille que tu as besoin de billet numéroté en lieu et place de lancer une fois l'impression de la feuille avec 50 copies !
'------------------------ For A = 1 To 50 With Worksheets("Feuil1") With .Shapes("Zone de texte 2").OLEFormat.Object .Text = A End With .PrintOut '... End With '------------------------
Salutations!
"Michel" a écrit dans le message de news:460201c4a56f$bb301560$ Bonjour à tous,
J'ai fait un modèle de billet de concert bénéfice dans Publisher 2000 que j'ai importé dans Excel. J'aimerais en imprimer 50 mais avec un numéro unique pour chaque billet. (de 1 à 50)
Est-il possible de créer un compteur sur mon billet qui s'incrémente à toutes les fois que j'imprime le billet.
Exemple : Je lance l'impression de 50 copie, mon premier billet s'imprime avec le # 1, le deuxieme billet s'imprime avec le #2, etc.
J'espère avoir été assez clair. Merci d'avance Michel
Bonjour Michel,
Sur l'image de ton billet, tu insères une zone de texte que tu formates selon les besoins ... et tu peux par la suite
utiliser ce type de macro pour imprimer ton billet avec un compteur
Le principe : Tu lances autant de fois l'impression de la feuille que tu as besoin de billet numéroté en lieu et place de
lancer une fois l'impression de la feuille avec 50 copies !
'------------------------
For A = 1 To 50
With Worksheets("Feuil1")
With .Shapes("Zone de texte 2").OLEFormat.Object
.Text = A
End With
.PrintOut '...
End With
'------------------------
Salutations!
"Michel" <lmichel@croissancetravail.qc.ca> a écrit dans le message de news:460201c4a56f$bb301560$a401280a@phx.gbl...
Bonjour à tous,
J'ai fait un modèle de billet de concert bénéfice dans
Publisher 2000 que j'ai importé dans Excel. J'aimerais en
imprimer 50 mais avec un numéro unique pour chaque billet.
(de 1 à 50)
Est-il possible de créer un compteur sur mon billet qui
s'incrémente à toutes les fois que j'imprime le billet.
Exemple : Je lance l'impression de 50 copie, mon premier
billet s'imprime avec le # 1, le deuxieme billet s'imprime
avec le #2, etc.
J'espère avoir été assez clair.
Merci d'avance
Michel
Sur l'image de ton billet, tu insères une zone de texte que tu formates selon les besoins ... et tu peux par la suite utiliser ce type de macro pour imprimer ton billet avec un compteur
Le principe : Tu lances autant de fois l'impression de la feuille que tu as besoin de billet numéroté en lieu et place de lancer une fois l'impression de la feuille avec 50 copies !
'------------------------ For A = 1 To 50 With Worksheets("Feuil1") With .Shapes("Zone de texte 2").OLEFormat.Object .Text = A End With .PrintOut '... End With '------------------------
Salutations!
"Michel" a écrit dans le message de news:460201c4a56f$bb301560$ Bonjour à tous,
J'ai fait un modèle de billet de concert bénéfice dans Publisher 2000 que j'ai importé dans Excel. J'aimerais en imprimer 50 mais avec un numéro unique pour chaque billet. (de 1 à 50)
Est-il possible de créer un compteur sur mon billet qui s'incrémente à toutes les fois que j'imprime le billet.
Exemple : Je lance l'impression de 50 copie, mon premier billet s'imprime avec le # 1, le deuxieme billet s'imprime avec le #2, etc.
J'espère avoir été assez clair. Merci d'avance Michel
