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

**hanane78** · 11/04/2013, 13h20

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

**Pol63** · 11/04/2013, 13h27

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)

**hanane78** · 11/04/2013, 13h44

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

**prologic** · 11/04/2013, 14h00

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 :

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

**hanane78** · 11/04/2013, 14h13

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

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

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

**Pol63** · 11/04/2013, 14h18

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

**Vince** · 11/04/2013, 15h06

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

**prologic** · 11/04/2013, 15h23

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 :

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
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".

**hanane78** · 11/04/2013, 16h42

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

**prologic** · 11/04/2013, 17h28

Tu n'appelle pas la Sub

Code :

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

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

**IL-MAFIOSO** · 11/04/2013, 18h56

Hello,

Heu je sais, je suis pas un pro en vbnet

. 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 ?

**hanane78** · 12/04/2013, 12h08

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

**Mario Rousson** · 12/04/2013, 12h19

Code :

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

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

**Pol63** · 12/04/2013, 13h33

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/

**prologic** · 12/04/2013, 16h23

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.

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

VB.NET

Discussions similaires

Partager

Partager