Ecrire dans un fichier excel avec VB6????? [Résolu]
faitasse10
Messages postés mardi 10 mai 2005Date d'inscription
9 juin 2005
Dernière intervention
-
7 juin 2005 à 13:29 - Dernière réponse : Ackby44
Messages postés mardi 16 février 2010Date d'inscription
28 juillet 2010
Dernière intervention
- 13 mars 2010 à 10:57
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.
a aidé 94 internautes ce mois-ci