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 WithSet appXl = Nothing
End Function
Auteur : Jessy SEMPERE