Tu Coches Projet...Références...Micrososoft Excel XX Object Library
Dans ton Code :
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlRang As Excel.Range
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
With xlApp
'Ouverture du document XLS
Set xlBook = .Workbooks.Open(FileName:="C:\MonFichier.xls", ReadOnly:=False, Editable:=True) ' Français
'Séléction de la feuille 1
Set xlSheet = xlBook.Worksheets(1)
End With
With xlSheet
.Cells(2, 1) = "Italia"
End With
xlApp.Visible = True
'Détruit les objets
Set xlRang = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Je voudrais que excel ne se lance pas et que les renseignements (date, commentaire, ca c'est bon...), se marque dans excel et que ca s'enregistre directement.
C possible je suppose.....
G essaye avec la commande:
ActiveWorkbook.Save mais il me met Run Time error "1004" le fichier est en read only.
Et avec ca:
Xls.ActiveWorkbook.SaveAs ("C:\Temp\Tests.csv")
Xls.ActiveWorkbook.Close False
Xls.Quit
Il me dit "Objet required".
En fait quand je veux regarder dans ma feuille excel quand je quitte l'application, il me dit que ma feuille est deja ouverte donc il ne ferme pas excel quand il quitte.
Y'a pas une facon de pas ouvrir excel et d'ecrire dans le fichier?
Je regarde partout sur le forum mais j'y arrive pas.