XL 2010 Impression recto/verso

[team18fr]

Bonjour,
J'ai un fichier dans lequel j'ai 2 feuilles que je dois imprimer recto/verso et pour faire je dois aller sur mise en page / option et mettre recto/verso sur chaque feuille. Mes 2 feuilles sont aussi protégées.
J'ai cherché mais je ne trouve pas de code vba correspondant. Mon imprimant fait bien le recto/verso.
J'ai testé ce bout de code mais cela m'imprime qu'une seul face et plusieurs fois et je n'arrive pas à l'adapter.

Sub ImprPage1()
Dim CountDown As Date
  Sheets("recto").PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
  CountDown = Now + TimeValue("00:00:10")
  Application.OnTime CountDown, "Reset"
End Sub
Sub Reset()
  Dim count As Range
  Set count = [A1]
  count.Value = count.Value - 1
  If count <= 0 Then
  Sheets("verso").PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
  Exit Sub
  End If
  Call ImprPage1
End Sub

Sub DisableTimer()
  On Error Resume Next
  Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False
End Sub

Merci de votre aide.

 

[NICOALBERT]

Bonjour team18fr ,

Une petite macro qui fonctionne chez moi , à tester .

Sub ImprimRectoVerso()
Sheets(Array("recto", "verso")).Select
Sheets("recto").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

@+

 

[team18fr]

Merci je teste ça demain mais juste pour être sur je dois bien remplacer recto et verso par le nom de mes feuilles ?

 

[team18fr]

Bon je viens d'essayer et cela m'imprime 2 feuilles il faut toujours que j'aille dans mise en page avant.