Nombre de copie d'impression

Thibault2612

XLDnaute Junior
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)
VB:
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
 

Lone-wolf

XLDnaute Barbatruc
Bonjour Thibault :), Gérard :), le Forum :)

VB:
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
 
Dernière édition:

Thibault2612

XLDnaute Junior
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
 

Thibault2612

XLDnaute Junior
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...
 

Discussions similaires

Réponses
7
Affichages
453

Statistiques des forums

Discussions
312 799
Messages
2 092 224
Membres
105 296
dernier inscrit
bob44