faitasse
Messages postés10Date d'inscriptionmardi 10 mai 2005StatutMembreDernière intervention 9 juin 2005
-
7 juin 2005 à 13:29
Ackby
Messages postés44Date d'inscriptionmardi 16 février 2010StatutMembreDernière intervention28 juillet 2010
-
13 mars 2010 à 10:57
Comment faire pour ecrire dans un fichier excel avec VB6?
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 20099 8 juin 2005 à 13:08
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
faitasse
Messages postés10Date d'inscriptionmardi 10 mai 2005StatutMembreDernière intervention 9 juin 20051 8 juin 2005 à 16:52
Me revoila,
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".
faitasse
Messages postés10Date d'inscriptionmardi 10 mai 2005StatutMembreDernière intervention 9 juin 20051 9 juin 2005 à 12:38
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.