XL pour MAC VBA Excel 2016 - Problème Impression

[ArnaudSi]

Bonjour

Excel ne prend plus en considération la demande d'imprimer que certaines pages il les imprime toutes.

Sub ImprimeFeuillesOffre()
''
Dim Reponse As Integer
''
Reponse = MsgBox("Confirmez-vous l'impression de les feuilles Offre ?", vbYesNo)
If Reponse = vbYes Then
    With Worksheets("Commande")
        .PrintOut From:=6, To:=7
    End With
    MsgBox "Les feuilles Offres sont imprimés, merci."
''
Else
MsgBox "Imprimerie Annulé"
End If
''
End Sub

Lorsque je lance la macro, toute les pages de la feuille sont imprimés.

Y a t i peut être une autre macro pour l'impression de pages spécifique à une feuille?

Merci.

 

[youky(BJ)]

Bonjour ArnaudSi,
Plusieurs solutions
1- With ActiveWorkbook au lieu Worksheets("Commande")

2- If Reponse = vbYes Then
Feuil5.PrintOut :Feuil6.PrintOut
Else
Voir le nom Feuil5 en propriété (1ere ligne (name)

Bruno

 

[ArnaudSi]

Bonjour Bruno

Merci pour votre réponse

La commande est lancé à partir d'un bouton sur la feuille "Calcul" donc "ActiveWorkbook" ne fonctionne pas correctement
Et la solution 2 imprime aussi toute les pages de la feuille

 

[youky(BJ)]

Re,
>>>Toutes les pages de la feuille ! ! ! !
Cela imprime toute la Feuil5 et 6 oui
Maintenant si tu veux imprimer qu'une plage de cellules et non la page entière
Feuil5.PageSetup.PrintArea = "$A$1:$C$5" 'plage à imprimer
Feuil6.PageSetup.PrintArea = "$A$1:$C$5"
Feuil5.PrintOut :Feuil6.PrintOut
'adapter "$A$1:$C$5"
Bruno

 

[ArnaudSi]

Re,
Merci pour votre réponse
Ça fonctionne mais... cela imprime 2x la page en question

Sub ImprimeFeuillesOffre()
''
Dim Reponse As Integer
'
Reponse = MsgBox("Confirmez-vous l'impression de la feuille Offre ?", vbYesNo)
If Reponse = vbYes Then
    With Worksheets("Commande")
    .PageSetup.PrintArea = "$BH$1:$BR$34" 'plage à imprimer
    .PrintOut , Copies:=1
    MsgBox "Les feuilles Offres sont imprimés, merci."
    End With
Else
MsgBox "Imprimerie Annulé"
End If
''
End Sub

C'est a dire que la page est bien imprimé mais en deux exemplaires... C'est à n'y rien comprendre...
Merci en tout cas!

 

[ArnaudSi]

C'était en fait un problème de paramètre de l'imprimante.
Ça fonctionne ! Merci beaucoup!

 

[youky(BJ)]

Cela ne viens pas de la macro.
Bon tu viens de répondre avant mon envoi
Bruno