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 With

Set appXl = Nothing

End Function

Auteur : Jessy SEMPERE