Impression

Luc · 3 Septembre 2005

Bonsoir le forum,
Je cale sur une macro, pouvez vous m'aider sur l'exemple ci joint.
Merci de votre aide. [file name=Classeur1_20050903222309.zip size=3886]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050903222309.zip[/file]

Bernard_XLD · 3 Septembre 2005

Bonjour Luc, le forum

rapidement

A+

Code:

Sub imprime()
Dim Tab_imp(1 To 2) As Range
Set Tab_imp(1) = Range('A6:J18')
Set Tab_imp(2) = Range('A21:J33')
On Error GoTo Fin
ActiveSheet.PageSetup.PrintArea = Tab_imp(Range('B3').Value).Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Exit Sub
Fin:
MsgBox 'la valeur de B3 n'est pas correcte', vbOKOnly + vbCritical
End Sub

Impression

Luc

Guest

Pièces jointes

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires

Impression

Luc

Guest

Pièces jointes

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency