Imprimer un fichier Excel

Cette fonction permet d'imprimer un fichier Excel.

L'argument "strFile" correspond au chemin complet et au nom du fichier que l'on souhaite imprimer.

Function PrintFileExcel(strFile As String)

Dim appXl As Excel.Application

Set appXl = CreateObject("Excel.Application")

With appXl
    .Workbooks.Open strFile
    .ActiveWorkBook.PrintOut
    .Quit
End With

Set appXl = Nothing

End Function

Auteur : Jessy SEMPERE