Impression

[Bruce68]

Bonsoir à tous

Je voudrais imprimer la page 2 tout en restant sur la page 1, ma macro d'impression ne fonctionne pas ( la page est envoyée à l'imprimante mais pas d'impression).
Pouvez vous me dire ce qui manque dans ma macro d'impression pour que cela fonctionne.

Le vous remercie de votre aide

 

[DoubleZero]

Re : Impression

Bonjour, Bruce68, le Forum,

Peut-être en remplaçant la macro existante par celle-ci :

Sub Impression()
Application.ScreenUpdating = False
Sheets("Feuil2").Activate
With Sheets("feuil2")
reponse = MsgBox("Voulez-vous Imprimer:   " & Fac_Dev & " ?", vbYesNo)
        If reponse = vbYes Then

        Ligne = .Range("C65536").End(xlUp).Row
          .PageSetup.PrintArea = "$B$4" & ":K" & Ligne
          ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
          End If
    End With
 Sheets("Feuil1").Activate
 Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[Bruce68]

Re : Impression

Bonjour DoubleZero et le forum

Merci pour la macro cela fonctionne comme je voulais.
Bonne journée à tous