Comment Faire

Sub Imprimer()
Dim ChemXLS As String
'La variable doit contenir le chemin et le nom du fichier
ChemXLS = "C:\Excel\Nom.xls" '
Set Fichier = Workbooks.Open(ChemXLS)
With Fichier
With .Worksheets("Cédule") '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

Sub Liste()
Dim Fichiers() As String
Dim I As Byte
With Application.FileSearch
   .FileType = msoFileTypeExcelWorkbooks
   .LookIn = "C:\Excel\CoucheTard"
   .Execute
   With .FoundFiles
      ReDim Fichiers(1 To .Count, 1 To 1)
      For I = 1 To .Count
         Fichiers(I, 1) = .Item(I)
      Next I
   End With
End With
End Sub