Type mismatch sur une procédure de fermeture d'un fichier excel [Résolu]

[_developpeur_]

Bonjour, j ai un formulaire avec plusieurs bouton, sur le click de chauqu un de ces boutons j ouvre différent fichier excel.
J'essai de créer une fonction d'ouverture de fichier et une fermeture de fichier.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Function FnOuvrirFichierXls(CheminFichier As String) As Excel.Application
 
Dim xls As Excel.Application
 
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "D:\Documents and Settings\david.fernandes\Desktop\La poste_bdd\DSIC-Outil-Plan d'Activités-CSOL Fin_V0.10.xlsx"
xls.Visible = True
 
Set FnOuvrirFichierXls = xls
 
End Function

Code :

1
2
3
4
5
6
Public Function FnFermerFichierXls(objFichierXls As Excel.Application)
 
objFichierXls.Workbooks.Close
objFichierXls.Quit
 
End Function

Sur click d'un des boutons :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim xls As Excel.Application
Dim iNumLigne As Integer
 
FnControleSaisieActiviteService = True
 
'ouverture du ficher des activitées / services
Set xls = FnOuvrirFichierXls("D:\Documents and Settings\david.fernandes\Desktop\La poste_bdd\DSIC-Outil-Plan d'Activités-CSOL Fin_V0.10.xlsx")
 
While xls...
        FnControleSaisieActiviteService = False
        FnFermerFichierXls (xls)
Wend

j ai un type mismatch sur la ligne 'FnFermerFichierXls (xls)'. Je sais pas pourquoi.
si quelqu un peut m'aider, merci beaucoup.

[_developpeur_]

avec un call avant d'appeller la procédure FnFermerFichierXls, ca marche mieux