connecter fichier excel à vb6

salut;
je veux realiser un petit projet, mais j'ai rencontrer un probleme.
mon projet presente 2 textbox et un boutton de commande et une base sur un fichier excel. je desire que le contenu des textbox soient transférer vers les cellules du fichier excel de maniere successive.

Bonjour,

En l état, ton projet fonctionne (il y avait juste une erreur pour insérer Text2 --> l'offset doit etre à 1 pour etre sur la même ligne que Text1), mais Excel est fermé sans etre sauvegardé à la fin de l'exécution des commandes du bouton. Si tu veux enregistrer ta saisie, il faut fermer Excel de la façon suivante :

Code:

---

1 2	Call xlw.Close(True)

---

Sinon, si tu as plusieurs valeurs à insérer, il vaut mieux ouvrir Excel à l ouverture du projet, et le fermer à la fermeture :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim XL As New excel.Application Dim xlw As excel.Workbook Dim xlsheet As Worksheet   Private Sub Command1_Click() Dim range As Integer   xlw.Sheets("feuil1").Select   XL.range("A65536").End(xlUp).Offset(1, 0).Value = Text1.Text XL.range("b65536").End(xlUp).Offset(1, 0).Value = Text2.Text   End Sub   Private Sub Form_Load() Set xlw = XL.Workbooks.Open(App.Path & "\N.xls") End Sub   Private Sub Form_Unload(Cancel As Integer) Call xlw.Close(True) Set xlw = Nothing Set XL = Nothing End Sub

---

Citation:

---

Envoyé par spdev666

Bonjour,

En l état, ton projet fonctionne (il y avait juste une erreur pour insérer Text2 --> l'offset doit etre à 1 pour etre sur la même ligne que Text1), mais Excel est fermé sans etre sauvegardé à la fin de l'exécution des commandes du bouton. Si tu veux enregistrer ta saisie, il faut fermer Excel de la façon suivante :

Code:

---

1 2	Call xlw.Close(True)

---

Sinon, si tu as plusieurs valeurs à insérer, il vaut mieux ouvrir Excel à l ouverture du projet, et le fermer à la fermeture :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim XL As New excel.Application Dim xlw As excel.Workbook Dim xlsheet As Worksheet   Private Sub Command1_Click() Dim range As Integer   xlw.Sheets("feuil1").Select   XL.range("A65536").End(xlUp).Offset(1, 0).Value = Text1.Text XL.range("b65536").End(xlUp).Offset(1, 0).Value = Text2.Text   End Sub   Private Sub Form_Load() Set xlw = XL.Workbooks.Open(App.Path & "\N.xls") End Sub   Private Sub Form_Unload(Cancel As Integer) Call xlw.Close(True) Set xlw = Nothing Set XL = Nothing End Sub

---

---

bonjour
Avant tout je dis Merci et j'essayerai ce code

Bonjour
Avant tout je dis Merci
j'ai ajouté deux lignes , le code sa marche bien maintenant on va ajouter un boutton de commande qui fait la recherche.