Ecrire dans un fichier excel avec VB6?????Résolu

Question

Comment faire pour ecrire dans un fichier excel avec VB6?

Merci...

cs_ITALIA · Accepted Answer

Tu Coches Projet...R&#233;f&#233;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&#231;ais
    'S&#233;l&#233;ction de la feuille 1
    Set xlSheet = xlBook.Worksheets(1)
End With

With xlSheet
   .Cells(2, 1) = "Italia"
End With

xlApp.Visible = True


'D&#233;truit les objets
Set xlRang = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

It@li@

cs_ITALIA · Answer

Le Fichier EXCEL existe t-il d&#233;ja ?

It@li@

faitasse · Answer

Oui je peux creer ce fichier.
Je voudrais que mon prog envoie la date et un commentaire des qu'une action se produit.

cs_ITALIA · Answer

Tu veux que soit VB qui cr&#233; le fichier ou est-ce que tu souhaite remplir un fichier XLS d&#233;ja existant ????

It@li@

faitasse · Answer

Je veux  que VB remplisse une ligne avec plusieurs colonnes, puis apres ca rempli l'autre ligne avec les plusieurs colonnes.

faitasse · Answer

En fait,je veux faire comme un historique, des qu'une alarme se declenche, je met l'heure et un commentaire pour dire quel detecteur a sonne.

cs_ITALIA · Answer

Je repete ma Question :

Tu veux que soit VB qui cr&#233; le fichier ou est-ce que tu souhaite remplir un fichier XLS d&#233;ja existant ????


It@li@

faitasse · Answer

Je veux remplir un fichier deja existant.Desole.

faitasse · Answer

Merci ca fonctionne....

Si je me galere encore sur excel je te refais signe.

cs_ITALIA · Answer

Ok...Coches Reponse Accept&#233;e

@+

It@li@

faitasse · Answer

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

cs_ITALIA · Answer

Regardes avec :

xlApp.Close SaveChanges:=0

It@li@

faitasse · Answer

Run-Time error '438'
Object doesn't support this property or method

C'est ce qui s'affiche.

A mon avis y'a un objet ou un truc dans le genre que g pas mis...

cs_ITALIA · Answer

Alors essayes avec :

xlBook.Close SaveChanges:=0

It@li@

faitasse · Answer

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

Ackby · Answer

j'ai essayé cela mais la première fois, le fichier excel ne s'affiche pas, il faut cliquer une deuxième fois (sous VB6). Est-ce normal ?