XL pour MAC VBA Excel 2016 - Problème Impression

ArnaudSi · 26 Novembre 2019

Bonjour

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

VB:

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) · 26 Novembre 2019

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 · 26 Novembre 2019

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) · 26 Novembre 2019

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 · 26 Novembre 2019

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

VB:

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 · 26 Novembre 2019

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

youky(BJ) · 26 Novembre 2019

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

XL pour MAC VBA Excel 2016 - Problème Impression

ArnaudSi

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

ArnaudSi

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

ArnaudSi

XLDnaute Nouveau

ArnaudSi

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Discussions similaires