Bonjour
Dans une cellule d'un tableau excel, je souhaiterais saisir le nombre de
copies désirées et qu'automatiquement, lorsque je lance l'impression, ça
s'imprime avec le nombre de copies souhaité.
Est-ce possible où est-ce que je rêve encore ?
ajoute ces lignes dans le module ThisWorkbook dans Private Sub Workbook_BeforePrint(Cancel As Boolean) :
nbCopies = Sheets(1).Range("A1") (a adapter) ActiveWindow.SelectedSheets.PrintOut Copies:=nbCopies, _ Collate:=True
bon courage
-----Message d'origine----- Bonjour Dans une cellule d'un tableau excel, je souhaiterais saisir le nombre de
copies désirées et qu'automatiquement, lorsque je lance l'impression, ça
s'imprime avec le nombre de copies souhaité. Est-ce possible où est-ce que je rêve encore ?
.
ChrisV
Bonjour Isa,
Dans la feuille de code de ThisWorkbook (en supposant que la cellule Feuil1!A1 contienne le nom d'exemplaires, et que l'édition concerne la feuille "Feuil1")
Private Sub Workbook_BeforePrint(Cancel As Boolean) With Sheets("Feuil1") .PrintOut Copies:=.[A1] End With End Sub
ChrisV
"Isa" a écrit dans le message de news:cd5k59$q3d$
Bonjour Dans une cellule d'un tableau excel, je souhaiterais saisir le nombre de copies désirées et qu'automatiquement, lorsque je lance l'impression, ça s'imprime avec le nombre de copies souhaité. Est-ce possible où est-ce que je rêve encore ?
Bonjour Isa,
Dans la feuille de code de ThisWorkbook
(en supposant que la cellule Feuil1!A1 contienne le nom d'exemplaires, et
que l'édition concerne la feuille "Feuil1")
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets("Feuil1")
.PrintOut Copies:=.[A1]
End With
End Sub
ChrisV
"Isa" <burotic.formation@wanadoo.fr> a écrit dans le message de
news:cd5k59$q3d$1@news-reader2.wanadoo.fr...
Bonjour
Dans une cellule d'un tableau excel, je souhaiterais saisir le nombre de
copies désirées et qu'automatiquement, lorsque je lance l'impression, ça
s'imprime avec le nombre de copies souhaité.
Est-ce possible où est-ce que je rêve encore ?
Dans la feuille de code de ThisWorkbook (en supposant que la cellule Feuil1!A1 contienne le nom d'exemplaires, et que l'édition concerne la feuille "Feuil1")
Private Sub Workbook_BeforePrint(Cancel As Boolean) With Sheets("Feuil1") .PrintOut Copies:=.[A1] End With End Sub
ChrisV
"Isa" a écrit dans le message de news:cd5k59$q3d$
Bonjour Dans une cellule d'un tableau excel, je souhaiterais saisir le nombre de copies désirées et qu'automatiquement, lorsque je lance l'impression, ça s'imprime avec le nombre de copies souhaité. Est-ce possible où est-ce que je rêve encore ?
