Impression en VBA

[nadir****]

Bonjour.
Je voudrais imprimer une plage de cellules.
Pour des questions de mise en page (hauteur de lignes notamment) j'ai copié cette plage sur une feuille que j'ai crée temporairement dans mon classeur.
Voici le code que j'ai écrit:

Sub TestImp()
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("J1").Copy Destination:=Sheets(Sheets.Count).Range("A1")
    Range("A1").CurrentRegion.PrintOut
    Sheets(Sheets.Count).Select
    ActiveWindow.SelectedSheets.Delete
End Sub

Cela pose 2 problèmes :
1 - je ne reviens pas nécessairement sur la feuille précédemment active
2 - l'utilisateur doit confirmer la suppression de la feuille.

Est-ce que quelqu'un aurait une idée à me proposer pour résoudre ces 2 problèmes ?

Je joints un fichier exemple (les chiffres ne veulent rien dire) pour illustrer ce problème.

Merci

 

[Guest]

Re : Impression en VBA

Bonjour,

Sub TestImp()
    Dim Sh As Worksheet
    Set Sh = ActiveSheet
    Sheets.Add After:=Sheets(Sheets.Count) 'Devient la feuille Active
    Range("J1").Copy Destination:=Sheets(Sheets.Count).Range("A1")
    Range("A1").CurrentRegion.PrintOut
    Application.DisplayAlerts = False  'Empêche les alertes
    Activesheet.delete 'Supprime la feuille
    Application.DisplayAlerts = True 'Rétablit les alertes
    Sh.Activate  'Retourne sur la feuille d'origine
End Sub

A+

 

[nadir****]

Re : Impression en VBA

Merci Hasco.

 

[Guest]

Re : Impression en VBA

Re,

J'avais pas fait attention au reste de la macro mais avec ça cela devrait aller mieux.

Sub TestImp()
    Dim Sh As Worksheet
    Set Sh = ActiveSheet
    Sheets.Add After:=Sheets(Sheets.Count) 'Devient la feuille Active
  [COLOR=red]  Sh.Range("J1").Copy[/COLOR] Destination:=Sheets(Sheets.Count).Range("A1")
   [COLOR=blue] Application.DisplayAlerts = False  'Empêche les alertes
[/COLOR]   [COLOR=red] ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address
[/COLOR]    ActiveSheet.PrintPreview ' .[COLOR=red]PrintOut[/COLOR]
    ActiveSheet.Delete 'Supprime la feuille
    Application.DisplayAlerts = True 'Rétablit les alertes
    Sh.Activate  'Retourne sur la feuille d'origine
End Sub

Mais tu n'a qu'une cellule de copiée?

A+