Ouvrir un fichier Excel
Cette fonction permet d'ouvrir un fichier Excel.
L'argument "strFile" correspond au chemin complet et au nom du fichier que l'on souhaite ouvrir.
Function OpenFileExcel(strFile As String)
Dim appXl As Excel.Application
Set appXl = CreateObject("Excel.Application")
With appXl
.Workbooks.Open strFile
.Visible = True
End WithSet appXl = Nothing
End Function
Auteur : Jessy SEMPERE