Transfert des données vers Excel a partir de Visual Basic

Version imprimable

11/04/2013, 13h20
hanane78

Transfert des données vers Excel a partir de Visual Basic

bonjour, je suis debutante en Vb 2010 ,

mon probleme c'est que j'ai un formulaire sous VB qui contient 3 zone de texte ( Nom Prenom , Adresse)
et un bonton (Ajouter)

je veux que chaque fois faire la saiser de donnée dans les zone de texte de ma formulaire apres je clique sur le bonton (ajouter) les donneés enregisteré automatiquement dans un fichier Excel

Merci
11/04/2013, 13h27
Pol63

avec un fichier formaté avec des colonnes sans mise en forme : ole db excel
fichier xslx : il y a des librairies tierces qui font ca
sinon : interop excel (nécessite qu'excel soit installé sur le poste)
11/04/2013, 13h44
hanane78

Merci beaucoup, mais vraiment je suis encore debutante,
j'aimerais plus de simplicité dans votre reponse parceque je ne connais pas ('ole db excel')

Ca devrait le faire avec ce code, mais tu devras adapté avec tes différentes TextBox et les cellules que tu veux remplir.

Il faut également rajouter la référence "Microsoft Excel x.0 Library", x étant dépendant de ta version de Office.

Syntaxe : wsExcel.Cells(ligne, colonne).Value

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
Imports Microsoft.Office.Interop
 
Sub Transfert()
 
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
appExcel = CreateObject("Excel.Application")
wbExcel = appExcel.Workbooks.Add
wsExcel = wbExcel.Worksheets(1)
 
'Placement des variables dans les cellules
'A modifier selon les besoins
wsExcel.Cells(1, 1).Value = TextBox1.Text
wsExcel.Cells(1, 2).Value = TextBox2.Text
wsExcel.Cells(1, 3).Value = TextBox3.Text
 
'Rendre excle visible
appExcel.Visible = True
 
'Nettoyage mémoire
wsExcel = Nothing
wbExcel = Nothing
appExcel = Nothing
GC.Collect()
 
End Sub

j'ai seulement une seule bonton et 2 zone de texte

j'ai ajouter le code que vous m'avez envoyé

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
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Imports Microsoft.Office.Interop
 
Sub Transfert()
 
        'Déclaration des variables
        Dim appExcel As Excel.Application 'Application Excel
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
        appExcel = CreateObject("Excel.Application")
        wbExcel = appExcel.Workbooks.Add
        wsExcel = wbExcel.Worksheets(1)
 
        'Placement des variables dans les cellules
        'A modifier selon les besoins
        wsExcel.Cells(1, 1).Value = TextBox1.Text
        wsExcel.Cells(1, 2).Value = TextBox2.Text
        'wsExcel.Cells(1, 3).Value = TextBox3.Text
 
        'Rendre excle visible
        appExcel.Visible = True
 
        'Nettoyage mémoire
        wsExcel = Nothing
        wbExcel = Nothing
        appExcel = Nothing
        GC.Collect()
 
    End Sub
 
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
    End Sub
 
 
End Class

il ya des erreur

11/04/2013, 14h18
Pol63

Citation:

Envoyé par hanane78

Merci beaucoup, mais vraiment je suis encore debutante,
j'aimerais plus de simplicité dans votre reponse parceque je ne connais pas ('ole db excel')

la réponse à tout c'est google
vous tapez ole db excel dans google et vous saurez ce que c'est, à quoi ca sert, et comment on s'en sert
à ce moment là vous réfléchissez si ca répond à votre besoin, sinon vous googlez mes 2 autres propositions
11/04/2013, 15h06
Vince

Tuto pour piloter Excel avec VB :
http://drq.developpez.com/vb/tutoriels/Excel/

Citation:

Envoyé par hanane78

j'ai seulement une seule bonton et 2 zone de texte

j'ai ajouter le code que vous m'avez envoyé

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
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Imports Microsoft.Office.Interop
 
Sub Transfert()
 
        'Déclaration des variables
        Dim appExcel As Excel.Application 'Application Excel
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
        appExcel = CreateObject("Excel.Application")
        wbExcel = appExcel.Workbooks.Add
        wsExcel = wbExcel.Worksheets(1)
 
        'Placement des variables dans les cellules
        'A modifier selon les besoins
        wsExcel.Cells(1, 1).Value = TextBox1.Text
        wsExcel.Cells(1, 2).Value = TextBox2.Text
        'wsExcel.Cells(1, 3).Value = TextBox3.Text
 
        'Rendre excle visible
        appExcel.Visible = True
 
        'Nettoyage mémoire
        wsExcel = Nothing
        wbExcel = Nothing
        appExcel = Nothing
        GC.Collect()
 
    End Sub
 
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
    End Sub
 
 
End Class

il ya des erreur

Comme je l'ai dit, il faut adapter le code. Là tu as copié/collé ce que j'ai donné sans te préocuper de quoi que ce soit. La s'apelle via le bouton et le Imports va en début de code, avant le "Public Class Form1".

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
 
Imports Microsoft.Office.Interop
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    End Sub
    Sub Transfert()
        Dim appExcel As Excel.Application 'Application Excel
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
        appExcel = CreateObject("Excel.Application")
        wbExcel = appExcel.Workbooks.Add
        wsExcel = wbExcel.Worksheets(1)
 
        'Placement des variables dans les cellules
        'A modifier selon les besoins
        wsExcel.Cells(1, 1).Value = TextBox1.Text
        wsExcel.Cells(1, 2).Value = TextBox2.Text
 
 
        'Rendre excle visible
        appExcel.Visible = True
 
        'Nettoyage mémoire
        wsExcel = Nothing
        wbExcel = Nothing
        appExcel = Nothing
        GC.Collect()
 
    End Sub
 
 
End Class

j'ai lancé le form mais je vois pas le fichier excel qui contient les donnée je pense qu'il manque quelque chose

Tu n'appelle pas la Sub

Code:

1
2
3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Transfert
End Sub

11/04/2013, 18h56
IL-MAFIOSO

Hello,

Heu je sais, je suis pas un pro en vbnet :mrgreen:. Mais si tu es seule à utiliser ce fichier excel et que tu n'utilises pas de bases de données/SQL, pourquoi ne crée tu pas directement ton formulaire dans excel avec un script VBA ?

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
 
Imports Microsoft.Office.Interop
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Sub Transfert()
        Dim appExcel As Excel.Application 'Application Excel
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
        appExcel = CreateObject("Excel.Application")
        wbExcel = appExcel.Workbooks.Add
        wsExcel = wbExcel.Worksheets(1)
 
        'Placement des variables dans les cellules
        'A modifier selon les besoins
        wsExcel.Cells(1, 1).Value = TextBox1.Text
        wsExcel.Cells(1, 2).Value = TextBox2.Text
 
 
        'Rendre excle visible
        appExcel.Visible = True
 
        'Nettoyage mémoire
        wsExcel = Nothing
        wbExcel = Nothing
        appExcel = Nothing
        GC.Collect()
 
    End Sub
 
 
End Class

j'ai fait l'appel de la fonction Transfert() mais tjrs la meme erreur : inserer le ' End Sub' manquant

Code:

1
2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Sub Transfert()

Selon moi tu ne peut pas déclarer un Sub daus un Sub

12/04/2013, 13h33
Pol63

Citation:

Envoyé par hanane78

j'ai fait l'appel de la fonction Transfert() mais tjrs la meme erreur : inserer le ' End Sub' manquant

arrête tout, on ne s'improvise pas développeur en collant du code au hasard, donc va lire un cours et revient dans une dizaine de jours

http://plasserre.developpez.com/cours/vb-net/
12/04/2013, 16h23
prologic

Citation:

Envoyé par hanane78

j'ai fait l'appel de la fonction Transfert() mais tjrs la meme erreur : inserer le ' End Sub' manquant

Je t'ai donné le code du bouton, faut juste copier/coller.

Et je rejoins Pol63, et je ne suis pas developpeur pro.