Code macro pour imprimer un fichier sur le bureau via Excel

Bonsoir à tous

J'ai cherche une aide pour pouvoir imprimer un fichier à partir d'excel.

Avec ce code j'arrive à imprimer une mêmle feuille de mon fichier excel.

Sub IMPRESSION_FEUILLES()

'Déclaration des variables

Dim valeur_donne_E40 As String

'Sélection de la valeur de !DONNE E40 et mise en variable

Sheets("DONNE").Select
Range("E40").Select
valeur_donne_E40 = ActiveCell.Value

'---------------------------------
'Vérification des conditions 1 à 20

'---------------------------------

'test de la condition 1 - 1 (PS PUBLIC sans manquant)

If valeur_donne_E40 = "1" Then
Sheets("PS").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("SPECI").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Else: MsgBox ("Rien à imprimer")

'Fin de la vérification des conditions
End If
End Sub

comment faire. L'autre fichier à intégrer dans l'impression et qui figure sur le bureau s'appelle CONDITIONS GENERALE.

Merci de m'aider

Salut,

Voici un code créé avec l'enregistreur de macro qui permet d'imprimer un fichier "CONDITIONS GENERALE" ** placé au bout du chemin "C:\Users\Lacy\Documents" à partir d'un autre fichier :

Sub xx()

Workbooks.Open Filename:="C:\Users\Lacy\Documents\CONDITIONS GENERALE.xlsx"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

ActiveWorkbook.Close

End Sub

A adapter

** Pourquoi en majuscules ? Pourquoi sans S à générales ?

Cordialement

Salut

Merci pour ta proposition.

Ou doit-on inserer ton code?

Fais pas attention a la cass. je vais revoir ca.

Lorsque je te dis qu'il faudra adapter, je pense bien entendu à mon chemin C:\Users\Lacy\Documents\ qui sera différent chez toi.

zombe a écrit :

Ou doit-on inserer ton code?

Tu peux décider d'imprimer les conditions générales d'abord puis de terminer ton code ou d'abord exécuter ton code et finir avec l'impression des conditions générales.

Place par exemple le passage :

Workbooks.Open Filename:="C:\Users\Lacy\Documents\CONDITIONS GENERALE.xlsx"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

ActiveWorkbook.Close

juste avant ton End Sub

Merci pour ton feedback.

Suis satisfait.