Code macro pour imprimer un fichier sur le bureau via excel

[zombe]

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.

Code: Tout sélectionner

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

[Yvouille]

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 :

Code: Tout sélectionner

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

[zombe]

Salut
Merci pour ta proposition.
Ou doit-on inserer ton code?
Fais pas attention a la cass. je vais revoir ca.

[Yvouille]

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

Ou doit-on inserer ton code?

Un peu où tu veux

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 :

Code: Tout sélectionner

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

juste avant ton End Sub

[zombe]

Merci pour ton feedback.
Suis satisfait.