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

faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 7 juin 2005 à 13:29 - Dernière réponse : Ackby 44 Messages postés mardi 16 février 2010Date d'inscription 28 juillet 2010 Dernière intervention
- 13 mars 2010 à 10:57
Comment faire pour ecrire dans un fichier excel avec VB6?

Merci...
Afficher la suite 

16 réponses

cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 8 juin 2005 à 13:08
+3
Utile
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

It@li@
Cette réponse vous a-t-elle aidé ?  
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 7 juin 2005 à 13:37
0
Utile
Le Fichier EXCEL existe t-il déja ?

It@li@
faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 7 juin 2005 à 15:13
0
Utile
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 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 8 juin 2005 à 09:00
0
Utile
Tu veux que soit VB qui cré le fichier ou est-ce que tu souhaite remplir un fichier XLS déja existant ????

It@li@
faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 8 juin 2005 à 10:27
0
Utile
Je veux que VB remplisse une ligne avec plusieurs colonnes, puis apres ca rempli l'autre ligne avec les plusieurs colonnes.
faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 8 juin 2005 à 10:59
0
Utile
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 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 8 juin 2005 à 11:20
0
Utile
Je repete ma Question :

Tu veux que soit VB qui cré le fichier ou est-ce que tu souhaite remplir un fichier XLS déja existant ????


It@li@
faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 8 juin 2005 à 12:51
0
Utile
Je veux remplir un fichier deja existant.Desole.
faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 8 juin 2005 à 14:58
0
Utile
Merci ca fonctionne....

Si je me galere encore sur excel je te refais signe.
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 8 juin 2005 à 16:28
0
Utile
Ok...Coches Reponse Acceptée

@+

It@li@
faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 8 juin 2005 à 16:52
0
Utile
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 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 9 juin 2005 à 08:24
0
Utile
Regardes avec :

xlApp.Close SaveChanges:=0

It@li@
faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 9 juin 2005 à 11:46
0
Utile
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 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 9 juin 2005 à 12:06
0
Utile
Alors essayes avec :

xlBook.Close SaveChanges:=0

It@li@
faitasse 10 Messages postés mardi 10 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 9 juin 2005 à 12:38
0
Utile
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 44 Messages postés mardi 16 février 2010Date d'inscription 28 juillet 2010 Dernière intervention - 13 mars 2010 à 10:57
0
Utile
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 ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.