Ecrire dans un fichier excel avec VB6????? [Résolu]
faitasse
- Messages postés
- 10
- Date d'inscription
- mardi 10 mai 2005
- Dernière intervention
- 9 juin 2005
- Messages postés
- 44
- Date d'inscription
- mardi 16 février 2010
- Dernière intervention
- 28 juillet 2010
A voir également:
- Ecrire dans un fichier excel
- Ecrire dans un fichier excel c# - Meilleures réponses
- Vb6 - Meilleures réponses
- Manipuler des fichiers excel sous vb6 sans référencer excel et sans laisser de processus dans le ges - Conseils pratiques - Visual Basic / VB.NET
- Lire et ecrire dans un fichier excel ✓ - Forum - C / C++ / C++.NET
- Comment ouvrir/modifier/ecrire dans un fichier EXcel c#.net WINFORM ✓ - Forum - C# / .NET
- Creer un fichier Excel avec VB6 ✓ - Forum - Visual Basic 6
- Boucle de recherche sur fichier Excel avec VB6, pour appli pro (Urgentisime) ✓ - Forum - Visual Basic
16 réponses
Meilleure réponse
- Messages postés
- 2169
- Date d'inscription
- vendredi 20 avril 2001
- Dernière intervention
- 30 juin 2009
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@
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@
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 106 internautes ce mois-ci
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".
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.
Merci.
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.
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.