Function creerFichier(chemin As String, feuille As Worksheet)
Dim xlApp As Excel.Application
'Dim xlBook1 As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Dim xlBook2 As Excel.Workbook
Dim xlSheet2 As Excel.Worksheet
'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets
xlApp.SheetsInNewWorkbook = 1
'On ajoute un classeur
Set xlBook2 = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook2.SaveAs (chemin)
'On rend le classeur visible
'xlApp.Visible = True
' Selection de la feuille source du classeur actif par son nom.
' (feuille à copier)
Set xlSheet1 = feuille
' Feuille destination
'Set xlSheet2 = xlBook2.Worksheets("Feuil1")
Dim nbfeuille As Integer
nbfeuille = xlBook2.Sheets.Count
' ActiveSheet.Copy before:=Workbooks("Factures Eric 2007.xls").Sheets(nbfeuille)
' Copie de la feuille.
xlSheet1.Move before:=xlBook2.Worksheets(1)
End Function