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......
 

je vais te faire une réponse con :
si la création marche
si l'écriture marche quand le fichier existe
...
ferme ton fichier après l'avoir créé puis rouvre le
Etonnant non !

oui c vrai que c assez logique !  
donc a priori je ferme pas bien mon fichier avec ca:
 
objBook.Close
'Set objCell = Nothing
Set objSheet = Nothing
Set objBook = Nothing
objExcel.Quit
Set objExcel = Nothing
 
comment qu'on fait pour bien le fermer alors ?

 
 
pourtant à priori c bon comme ça

 
merci c'est ce qu'il me manquait ca va bcp mieux maintenant !