Code impression recto-verso

Salut le forum

Je suis passé par l'enregistreur pour réaliser le code ci-dessous.

Il s'agit d'un code qui me permet de faire des impressions en recto-verso.

Le problème est que quand je deplace le code vers un autre fichier ayant la même structure, en exécutant le code, l'impression ne se réalise pas en recto-verso.

Pouvez-vous améliorer mon code svp.

Sub recto_verso()
'
' INVERSE Macro
'

'
    Sheets("COLINA").Select
    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("DONNE").Select
End Sub
Sub recto_verso2()
'
' recto_verso2 Macro
'

Sheets("COLINA").Select
    ExecuteExcel4Macro "PRINT(2,3,4,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("DONNE").Select
End Sub

Sub Recto_procuration()
'
' Recto_procuration Macro
'

'
    Sheets("PROCURATION").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("DONNE").Select
End Sub

Sub Bsms_recto()
'
' Bsms_recto Macro
'

'
    Sheets("BSMS").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("DONNE").Select
End Sub

Bonjour

Le problème est que quand je deplace le code vers un autre fichier ayant la même structure

pas de raison si les noms de Feuilles sont identiques. Sinon, il faut les modifier dans le Code.

Cordialement

bonsoir Amadéus

merci pour votre réponse.

J'ai corrigé le nom des feuilles et ca fonctionne.

Encore merci