XL pour MAC VBA Excel 2016 - Problème Impression

youky(BJ)

XLDnaute Barbatruc

• 26 Novembre 2019

• #2

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

 

Vote positif 0 Vote négatif

ArnaudSi

XLDnaute Nouveau

• 26 Novembre 2019

• #3

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Novembre 2019

• #4

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

 

Vote positif 0 Vote négatif

ArnaudSi

XLDnaute Nouveau

• 26 Novembre 2019

• #5

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!

 

Vote positif 0 Vote négatif

ArnaudSi

XLDnaute Nouveau

• 26 Novembre 2019

• #6

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Novembre 2019

• #7

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

 

Vote positif 0 Vote négatif