Discussion :

[imfami]

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[imfami]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[imfami]

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.