Mon Soucis est que je dois crée un fichier excel s'il n'exsite pas puis inserer des données dans ses cellules je sais réaliser la création ou l'écriture mais la creation suivie de l'écriture/controle des cellules ne fonctionne pas.
je crée mon fichier xls de cette facon:
Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
'Dim objCell As Excel.Range
Set objExcel = New Excel.Application
Set objBook = objExcel.Workbooks.Add
Set objSheet = objExcel.Worksheets.Add
objBook.SaveAs Module1.Fichierhistorique
objBook.Close
'Set objCell = Nothing
Set objSheet = Nothing
Set objBook = Nothing
objExcel.Quit
Set objExcel = Nothing
puis lorsque plus loin je désire l'ouvrir:
Dim i As Integer
Dim obj As New Excel.Application
Dim xwBook As New Excel.Workbook
Dim xsSheet As New Excel.Worksheet
' ouverture d'excel
obj.Workbooks.Close
obj.Workbooks.Open (Module1.Pathfichierhistorique)
' je positionne a la fin du fichier
Do
i = i + 1
Loop Until IsEmpty(Cells(i, 1))
la methode cell echoue ici
si le fichier Module1.Pathfichierhistorique existe déja aucun pb ici
si qq a une chtite idée......