Excel et VB6

Résolu
Signaler
Messages postés
6
Date d'inscription
mardi 19 juillet 2005
Statut
Membre
Dernière intervention
22 juillet 2005
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
Bonjour à tous, je suis un simple débutant en language visual basic et j'aimerai une aide pour créer un programme. Dans ce programme j'aimerai ouvrir un fichier excel existant ("c:\test.xls"), importer des données d'excel vers le programme, exporter des données du programme vers excel et enfin enregistrer les modifs dans le même fichier excel.
Si quelqu'un pouvais me donner un exemple de programme ça me serais d'une grande aide.
Merci pour les futures réponses.

4 réponses

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonsoir,

N'oublie pas dans Projet/Références de cocher la case Microsoft Excel
x.0 Object Library.Ce code copie le texte Bonjour et comment vas-tu
dans les cellules B1 et B2, à la place tu peux mettre des TextBox, pour
importer des des TextBox, tu fais l'inverse.

Text1 = wsXL.Cells(2, 1).Value



Private Sub Command1_Click()

Dim objXL As New Excel.Application

Dim wbXL As New Excel.Workbook

DimwsXL as New Excel.Worksheet



If Not IsObject(objXL) Then

MsgBox "Vous avez besoin d'Excel pour cette fonction", vbExclamation, "Excel"

Exit Sub

End If

'Ouvre Excel

objXL.Visible = True

Set wbXL = objXL.Workbooks.Open("C:\Test.xls")

Set wsXL = objXL.ActiveSheet



'Ecrit dans les cellules B1 et B2

wsXL.Cells(2, 1).Value = "Bonjour"

wsXL.Cells(2, 2).Value = "Comment vas-tu ?"



objExcel.ActiveWorkBook.SaveAs ("C:\test.xls")

objXL.WorkBooks.Close

End Sub



jpleroisse



si la réponse te conviens clique réponse acceptée
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
mardi 19 juillet 2005
Statut
Membre
Dernière intervention
22 juillet 2005

Merci de ton conseil
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
si ça te vas valide la réponse pour marquer que la question est terminée et permettre aux autre de repondre aux question sans réponse..

++

Zlub