Christian0258
XLDnaute Accro
Bonjour à tout le forum,
Pourriez-vous me dire ce qu'il faut modifier sur cette macro qui en l'état fonctionne mal ;
Sub ImprimVdeMidiSoir()
Dim X As Integer
For X = 10 To 60
Range("C5K52").Select
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCFROID1 sur Ne" & X & ":", Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCPROD_cartes sur Ne" & X & ":", Collate:=True
Next X
Range("D1").Select
End Sub
Merci pour votre aide.
Bien à vous,
Christian
Pourriez-vous me dire ce qu'il faut modifier sur cette macro qui en l'état fonctionne mal ;
Sub ImprimVdeMidiSoir()
Dim X As Integer
For X = 10 To 60
Range("C5K52").Select
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCFROID1 sur Ne" & X & ":", Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCPROD_cartes sur Ne" & X & ":", Collate:=True
Next X
Range("D1").Select
End Sub
Merci pour votre aide.
Bien à vous,
Christian