Lire ecrire textbox excel

Version imprimable

Bonjour à tous,

Étant débutant sur VB.net après 3 jours de combat intensif entre google qui et notre ami et developpez.com, j'ai réussi a attaché mon code afin que mon textbox redonne la valeur chiffre de ma cellule excel.

Je me retrouve un peu dans l'impasse car il m'ouvre bien mon excel, redonne la valeur, mais lorsque j'écris une valeur dans celle ci et que je ferme il n'enregistre pas ma valeur et mon programme ne tue pas tout les excel que j'ouvre à chaque fois.

donc voici mes deux question:

1: mon code lit il bien et ecrit t'il bien sur la feuille excel.
2: comment tué et nettoyé excel lancé en arrière plan.

Merci d'avance.
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 25 26 27 28 29 30 Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Dim xlApp As New Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load xlWorkBook = xlApp.Workbooks.Open("D:\DG") TextBox1.Text = xlWorkBook.Sheets("exemple").Range("D2").Value() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged xlWorkBook = xlApp.Workbooks.Open("D:\DG") TextBox1 = xlWorkSheet.Sheets("exemple").Range("D2").Value() xlApp.close() End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged xlWorkBook = xlApp.Workbooks.Open("D:\DG") TextBox1 = xlWorkSheet.Sheets("exemple").Range("D2").Value() Me.Close() End Sub End Class

Bonjour,

En fait ton problème, vient du fait à mon sens que tu ouvres plusieurs classeurs Excel et qu'il y a un souci de variable xlWorkSheet au lieu d'utiliser xlWorkBook comme dans ton Form1_Load.

Sinon, si cela ne résout pas ton problème, je te conseillerai bien d'ouvrir une seule fois ton classeur dans ton form1_load, de le refermer dans un form_closed et de declarer une variable privé pour ton xlWorkBook que tu utilise dans toutes tes méthodes.

Voici le code que cela donnerai :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
Imports Excel = Microsoft.Office.Interop.Excel
 
 
Public Class Form1
    Dim xlApp As New Excel.Application
' tu declare une variable privé uniquement accessible à ton form1
    Private xlWorkBook As Excel.Workbook
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' tu ouvres ton classeur et tu le stocke dans ta variable xlWorkBook
        xlWorkBook = xlApp.Workbooks.Open("D:\DG")
        ton textbox 1 prend la valeur de ta cellule dans ta feuille excel 
        TextBox1.Text = xlWorkBook.Sheets("exemple").Range("D2").Value()
    End Sub
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
' ta cellule dans ta feuille excel classeur prend la valeur de ton textbox1
        xlWorkBook.Sheets("exemple").Range("D2").Value=TextBox1.Text
'tu demandes à ton formulaire de se fermer
        Me.Close()
    End Sub
 
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
' ta cellule dans ta feuille excel prend la valeur de ton textbox2
        xlWorkBook.Sheets("exemple").Range("D2").Value=TextBox2.Text
'tu demandes à ton formulaire de se fermer
        Me.Close()
 
    End Sub
 
Private Sub Form1_Closed(ByVal sender As Object, _ByVal e As System.EventArgs) Handles MyBase.Closed
xlApp.close()
End Sub
 
End Class

Dis-moi si tu as toujours des problèmes car cela fait longtemps que je n'ai pas touché au .net, sinon n'hésites pas à aller sur ce site il est très bien fait :

http://msdn.microsoft.com/fr-fr/library/w0x726c2.aspx

06/06/2013, 07h26
pierresammy

@unareil

Merci :ccool: je vais tester cela aujourd'hui . j’espère que ça ira.
et te donnerais des nouvelles de l'avancement de celui!.

Bonjour bonjour!

alors j'ai nettoyer un peu mon code car j'ai trouvé quelques erreurs dans ton code que je poste (donner pour recevoir ) pour ceux qui chercherai comment faire pour:

- Fermer correctement le programme et
- Imprimer une feuille Excel

Je ne sais pas si c'est vraiment correctement écrit mais ça fonctionne

mais le grand problème et l'actualisation du textbox2:

En effet lorsque j'écris dans mon textbox1 les feuilles qui sont dans mon classeur et qui doivent faire des calculs assez compliquer qui me donnent la valeur en "H51" cependant le textbox2 ne me redonne pas la valeur après calcule. (je ne veux pas mettre de bouton qui actualise le textbox2 car j'ai déjà assez de boutons dans mon logiciel.). sauf si je rentre une valeur dans le textbox2 il va me l'actualiser.

Donc ma question serait :

comment faire pour Actualiser automatiquement mon textbox2 après écriture du textbox1.

Merci encore pour la réponse de la semaine dernière ça m'a beaucoup avancé et appris.

Voici mon code:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Imports Excel = Microsoft.Office.Interop.Excel
 
 
 
Public Class Form1
    Dim xlApp As New Excel.Application
    Private xlWorkBook As Excel.Workbook
    'Si je rajoute xlworksheet permet'il de faire quelque chose ou je peut l'effacer?
    Dim xlWorkSheet As Excel.Worksheet
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ' tu ouvres ton classeur et tu le stocke dans ta variable xlWorkBook
        xlWorkBook = xlApp.Workbooks.Open("D:\DG")
        'ton textbox 1 prend la valeur de ta cellule dans ta feuille excel 
 
        TextBox1.Text = xlWorkBook.Sheets("exemple").Range("D2").Value()
        TextBox2.Text = xlWorkBook.Sheets("Feuil1").Range("H51").Value()
 
    End Sub
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ' ta cellule dans ta feuille excel classeur prend la valeur de ton textbox1
        xlWorkBook.Sheets("exemple").Range("D2").Value() = TextBox1.Text
 
 
    End Sub
 
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
 
        TextBox2.Text = xlWorkBook.Sheets("Feuil1").Range("H51").Value
 
 
    End Sub
    ' private sub releaseobject et code du bouton a copier coller pour effacer la mémoire occuper et pour arreter le processus EXCEL.EXE 
    Private Sub releaseObject(ByVal obj As Object)
        xlApp.Quit()
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'ferme la feuille
        xlWorkBook.Close()
        ' Quitter l'Excel Application
        xlApp.Quit()
        ' nettoyer
        releaseObject(xlWorkBook)
        releaseObject(xlApp)
        Me.Close()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' donne la valeur de la feuille a imprimer
        xlWorkSheet = xlWorkBook.Sheets("Feuil1")
        ' affiche Excel
        xlApp.Visible = True
        'imprime la feuille
        xlWorkSheet.PrintOut(From:=1, To:=1, Copies:=1, Collate:=True)
    End Sub
 
End Class

en attendant vos réponses:

Bonne début de semaine à tous!