Comment imprimer une feuille d'un autre classeur avec une VBA ?

Bonjour

il me semble que la bonne ecriture serait plutot :

chemXLS = "fichier.xls"
Set Fichier = Workbooks.Open(chemXLS)
With Fichier.ActiveSheet
.PrintOut
End With
Fichier.Close True

mais bon ...

bon courage
Asterix

Bonjour Lorcan,

'-----------------------------
Sub Imprimer()
Dim ChemXLS As String

'La variable doit contenir le chemin et le nom du fichier
ChemXLS = "c:ExcelClasseur1.xls" '
Set Fichier = Workbooks.Open(ChemXLS)

With Fichier
With .Worksheets("Feuil1") 'Nom de la feuille à adapter
'cette commande n'est pas obligatoire
'mais elle limite la plage à imprimer
.PageSetup.PrintArea = .Range("A1:A10").Address
.PrintOut
'Utile si la commmande PageSetUp.PrintArea a été utilisé
.PageSetup.PrintArea = ""
End With
End With
Fichier.Close True

Set Fichier = Nothing

End Sub
'-----------------------------------


Salutations!
'-----------------------------


"Lorcan" <laurent_hosch@hotmail.com> a écrit dans le message de news:2C1DEA2D-2C1B-4EFB-A024-DC7CA935251F@microsoft.com...
Hello!

Voici ce que j'ai mis dans mon code :

---------------------------------------------------------------------------------
chemXLS = "fichier.xls"
Set Fichier = Workbooks.Open(chemXLS)
With Fichier.ActiveSheet

ActiveSheet.PrintOut
ou
Sheets("Feuil1").PrintOut
ou
Fichier.ActiveSheet.PrintOut

End With
Fichier.Close True
---------------------------------------------------------------------------------


Il se contente d'ouvrir et de refermer le fichier sans l'imprimer... qqn peut m'éclaircir sur ce sujet? Merci d'avance