Nombre de copie d'impression

[Thibault2612]

Bonjour à tous,

j'ai réaliser une macro permettant de lancer une impression en appuyant sur un bouton mais j'aimerais pouvoir choisir le nombre de copie que je vais lancer en impression en appuyant sur mon bouton.

Je sais que c'est la fonction "Selection.PrintOut Copies:=1" qui la determine mais je ne sais comment remplacer le 1 par une cellule dans laquelle je saisirais le nombre de copie.

Je vous remercie de votre aide, cordialement. (Je vous met le code ci-dessous)

Sub Imprim()
    If MsgBox("Opération irréversible. Souhaitez-vous continuez ?", vbYesNo + vbQuestion + vbDefaultButton1, "Confirmation d'action") = vbNo Then
    Exit Sub
    End If

    Range("B7:B8").Select
    Range("B8").Activate
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

 

[natorp]

Bonjour Thibault

Comme ça :

     Range("B7:B8").Select
     Range("B8").Activate
     nbcop = InputBox("Nombre de copies ?", "Copie")
     Selection.PrintOut Copies:=nbcop, Collate:=True

Cordialement, Gérard

 

[Lone-wolf]

Bonjour Thibault , Gérard , le Forum

Sub test()
Dim nbCopies As Long

    nbCopies = ActiveSheet.Range("g2").Value

    With ActiveSheet
        .PageSetup.PrintArea = "$B$7:$B$8"
        .PrintOut copies:=nbCopies
    End With
End Sub

 

[Thibault2612]

Bonjour, merci pour votre solution néanmoins je veux choisir ce paramètre dans une cellule.
Cela est-il possible?

Cordialement

 

[Lone-wolf]

Re Thibault

Lit mon message Post #3

 

[Thibault2612]

Re Lone-Wolf, en effet mon message précédent été écrit quand je n'avais pas lu votre post.

Je viens d'essayer votre solution qui me paraît excellent mais lors de l'execution de la macro, le nombre d'impression ne change pas alors que j'ai saisi 2 ou 3 dans la cellule.

Merci

 

[natorp]

Re,

Moi la solution de Lone-Wolf (bjr !!) marche ...

Cordialement, Gérard

 

[Thibault2612]

Re bonjour,
Effectivement ça marche, le problème venais de moi.
Un dernier détail, j'aimerais que la cellule qui choisis le nombre de copie se trouve en Feuille 2.
J'ai essayer :
nbCopies = ActiveSheet.Range("Feuil2!g2").Value

mais cela ne marche pas...

 

[kadelmalin]

Bonjour,
Es tu sûr que ta feuille active est bien la feuille 2 ?

 

[natorp]

Re,

comme ça :

nbCopies = Sheets("Indicateur retards").Range("k2").Value

Cordialement, Gérard

 

[Lone-wolf]

Bonjour kadelmalin , re à tous

Si c'est bien la feuille 2

nbCopies = Feuil2.Range("g2").Value ou nbCopies = Sheets(2).Range("g2").Value

 

[Thibault2612]

Je vous remercie fortement

cordialement.