remplir ligne excel via textbox vb net

**raye2010** · 21/05/2012, 15h45

Bonjour a tous, j'ai un souci.
J'arrive à ouvrir un fichier excel à partir de vb net 2010, à assigner la valeur d'un textbox à une cellule excel. Mais je n'arrive pas a remplir les cellules successive d'une ligne excel à partir des valeurs rentrées dans un seul textbox.

Merci d'avance.

**BenoitM** · 21/05/2012, 15h52

C'est bien d'avoir fait une recherche. Part contre si tu n'expliques pas quel est ton problème on ne pourra pas t'aider

**raye2010** · 23/05/2012, 10h07

Bjr, merci d'avance pour ta réponse. ce que je veux c'est que j'ai pu ouvrir un fichier excel a partir de vb. et je récupérer la valeur d'un textbox vb dans une cellule excel avec le code suivant:

Code :

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

workbook.Worksheets("linebasetps").Range("E5").Value =Me.TypeTextBox.Text

Maintenant j'aimerai remplir toute les cellules d'une ligne excel constituant un tableau à partir des différentes valeurs rentrées dans un seul textbox, ces valeur seront par la suite utilisées pour faire une courbe sur excel.

Merci d'avance.

Edit

je vais reprendre mon explication:
je veux saisir les données dans la textbox et les insérer une à une dans les cellules successive d'excel. En fait j'ai deux textbox, dans lesquelles je rentre les données pour mon calcul.Chacune des données rentrées doivent se loger successivement dans les cellules excel sur deux lignes différentes( chaque ligne pour un textbox, un peu comme un tableau)

on peut mettre un bouton qui permet d'ajouter la donnée entrée dans le textbox ( apres avoir fait mon opération).
J'espere avoir été assez clair. Merci

**hunteshiva** · 23/05/2012, 12h03

Bonjour,

oui en soit c'est pas compliqué, mais je ne comprend pas trop le truc.

Ce que tu veux c'est ajouter des données à la suite de ton fichier Excel?

Parce que s'il contient déjà des valeurs, comment fait tu?
tu les effaces? ou tu les mets a la suite?

J'ai l'impression que tu ne fait qu'exposer ton problème,
sans montrer ton code, on ne peu donc pas t'aider...
et on a pas forcément le temps de coder a ta place.

**raye2010** · 23/05/2012, 13h11

Bjr,désolé mais je n'ai pas vraiment de code car je ne sais pas comment faire.Mais en voici un que j'ai trouvé sur le net:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ligne As Integer
 
        ligne = 20
        With workbook.Worksheets("lineattenuat")
        While excel.Cells(ligne, 1) = ""
        ligne = ligne + 1
        End While
        excel.Cells(ligne, 1).Value = TextBox1.Text
 
        End With

Mais il ne fonctionne pas.

Edit 1
Mon fichier excel est un rapport de vérification contenant le titre, la courbe à tracer et en desous de la courbe, il doit y avoir le tableau de données.
Donc je rentre mes données à partir d'une cellule précise et ainsi de suite. exemple :si la première valeur est en A36, la deuxieme sera en B36, la 3ème en C36........G36.

Edit 2
Et a chaque fois que je ferai ma vérification, j'utiliserai le meme emplacement pour les données.Si j'utilise 6 cellules, à ma prochaine vérification, mes données s'insèrerons dans ces 6 cellules.

Désolé, je sais ce que je veux faire, mais je ne sais pas cmt le faire.

**hunteshiva** · 23/05/2012, 14h12

je vois bien oui...

en ce qui concerne le fichier Excel, je peux te proposer une méthode:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
        ' #####################################################
        ' ############# Déclaration des variables #############
        ' #####################################################
 
        ' Fichier Excel
        Dim Excel_App As New Microsoft.Office.Interop.Excel.Application
        Dim Workbook As Microsoft.Office.Interop.Excel.Workbook
        Dim CheminFicher As String
        Dim BoiteDialogue As New OpenFileDialog
 
        ' #####################################################
        ' ############ Recherche du fichier Excel #############
        ' #####################################################
 
        With BoiteDialogue
            ' Initialisation de la boite de dialogue
            .Title = "Selection d'un essai"
            .InitialDirectory = My.Application.Info.DirectoryPath ' répertoire de l'application
            .Filter = "Fichiers Excel |*.xls; *xlsx"
            ' vérification de la séléction
            If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                CheminFicher = .FileName
            Else
                Exit Sub ' Abandon de la routine
            End If
        End With
 
        ' #####################################################
        ' ############## Lecture du fichier Excel #############
        ' #####################################################
 
        Try
            ' Ouverture du fichier Excel
            Workbook = Excel_App.Workbooks.Open(CheminFicher)
 
            ' Parcours du feuillet Excel
            For Each ExcelWorkSheets As Microsoft.Office.Interop.Excel.Worksheet In Workbook.Worksheets
 
                ' #####################################################
                ' ################## Feuille lineattenuat #################
                ' #####################################################
 
                If (ExcelWorkSheets.Name = "lineattenuat") Then
 
 
                    ' Exemple de lecture que je te laisse
                    Dim Nom_Formule As String
 
                    Try
                        ' Recupération du nom de formule
                        Nom_Formule = ExcelWorkSheets.Range("C8").Value.ToString
                    Catch ex As Exception
                        Nom_Formule = Nothing
                    End Try
 
 
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Erreur lors de la lecture du fichier Excel")
            Exit Sub ' Abandon de la routine
        End Try

Voila, j’espère qu'avec ça tu aura de quoi a avancer

**raye2010** · 23/05/2012, 15h05

slt, merci pour ton code mais il ne m'aide pas vraiment!

regarde celui que j'éssai d'ajuster:

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
Dim excel As New Excel.Application
    Dim workbook As Excel.Workbook
    Dim worksheet As Excel.Worksheet
    Dim rng As OXL.Range = Nothing
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        excel.Visible = False 'la fenêtre excel est visible 
 
        workbook = excel.Workbooks.Add("C:\Documents and Settings\stagiaire1\Bureau\exemple")
 
        worksheet = workbook.Worksheets("Feuil1") 'on ouvre une feuille dans le classeur excel
 
        Dim i As Integer = 5
        Dim cellule As String
        cellule = "C" + i
        workbook.Worksheets("Feuil1").Range(cellule).Value = Me.TextBox1.Text
        i = i + 1
    End Sub

**hunteshiva** · 23/05/2012, 15h51

regarde celui que j'éssai d'ajuster

Oui... Quel est la Question?

Et merci de mettre des balises de code, sinon j'arrive pas a lire...

**raye2010** · 23/05/2012, 15h56

ben lorsque je debug, j'ai l'érreur suivante:

La conversion de la chaîne "C" en type 'Double' n'est pas valide.

Voila, encore bloqué!!!!

**hunteshiva** · 23/05/2012, 17h38

tu ne regarde même pas la ligne ou ça bug...
tu aurais compris sinon que le bug se situe à la ligne suivante

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

cellule = "C" + i

Code :

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

cellule = "C" & i

Si je peux me permettre, ton code est très maladroit...
Tu commente trop peut, et puis c'est tout tassé, tu ne fait aucune vérifications

il y a aussi le

i = i + 1

je me demandais a quoi il sert

**raye2010** · 24/05/2012, 08h44

Bjr, le i = i + 1 me sert doit me servir à passer d'une cellule à l'autre quand je rentre une nouvelle valeur(exemple: C5, C6, C7...)
pour l'instant j'arrive juste à rentrer une seule valeur en C5.

**-N4w4k-** · 24/05/2012, 08h55

Salut,

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
    Dim excel As New Excel.Application
    Dim workbook As Excel.Workbook
    Dim worksheet As Excel.Worksheet
    Dim rng As OXL.Range = Nothing
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            '...
 
            Dim i As Integer = 5    'déclaration et instantiation de la variable locale
            Dim cellule As String
            cellule = "C" + i   'valeur variable locale => 5
            workbook.Worksheets("Feuil1").Range(cellule).Value = Me.TextBox1.Text
            i = i + 1  'changement valeur variable locale => 6
 
            'fin de la méthode...
            'destruction de la variable locale!
        End Sub

Si tu veux que i soit toujours "en vie" après l’exécution de la méthode, il faut la déclarer en dehors de ta méthode (avec les variable workbook, worksheet, rng).

De plus, quand tu fais cellule = "C" + i tu essaie d'ajouter un nombre (type Integer) à une chaîne de caractères (type String), d'ou l'erreur citée au dessus. Fais plutôt cellule = "C" + i.ToString().

**raye2010** · 24/05/2012, 09h08

Bjr et merci, mon compteur fonctionne maintenant! Mais ça ouvre un nouveau document excel a chaque fois que j'ajoute une valeur.ça n'implémente pas dans le meme document.

**hunteshiva** · 24/05/2012, 09h09

pour l'instant j'arrive juste à rentrer une seule valeur en C5

donc ton code fonctionne?

il tes reste plus qu'a dérouler les boucles For ou While,
et tu a fini

**hunteshiva** · 24/05/2012, 09h11

ça ouvre un nouveau document excel a chaque fois

montre nous la boucle.

je ne serais pas surpris que tu ais mis cette ligne dedans

Code :

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

 workbook = excel.Workbooks.Add("C:\Documents and Settings\stagiaire1\Bureau\exemple")

**raye2010** · 24/05/2012, 09h13

voici le code:

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        excel.Visible = False 'la fenêtre excel est visible 
 
        workbook = excel.Workbooks.Add("C:\Documents and Settings\stagiaire1\Bureau\exemple")
 
        worksheet = workbook.Worksheets("Feuil1") 'on ouvre une feuille dans le classeur excel
 
 
        Dim cellule As String
        With workbook.Worksheets("Feuil1")
            cellule = "C" + i.ToString()
            workbook.Worksheets("Feuil1").Range(cellule).Value = Me.TextBox1.Text
            i = i + 1
 
        End With
 
    End Sub

**-N4w4k-** · 24/05/2012, 09h14

Envoyé par raye2010

Mais ça ouvre un nouveau document excel a chaque fois que j'ajoute une valeur.ça n'implémente pas dans le meme document.

Je n'ai jamais utilisé Excel dans mes applications mais quelques lignes me troublent un peu:

Dans ta méthode Button1_Click:

Code :

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

1
2
3
        workbook = excel.Workbooks.Add("C:\Documents and Settings\stagiaire1\Bureau\exemple")
 
        worksheet = workbook.Worksheets("Feuil1") 'on ouvre une feuille dans le classeur excel

A chaque fois que tu vas clicker ça va exécuter ce code donc à chaque fois "on ouvre une feuille dans le classeur excel"..
Donc ce n'est peut-être pas le meilleur endroit pour placer ce code ?!

PS: Pense à la balise CODE (icone #) pour placer du code, ça sera beaucoup plus lisible.

**hunteshiva** · 24/05/2012, 09h27

ah ok... c'est normale, ton code ne va jamais fonctionner

a chaque click sur le bouton_1, tu créer un nouveau fichier excel ...

Code :

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

workbook = excel.Workbooks.Add("C:\Documents and Settings\stagiaire1\Bureau\exemple")

Pourquoi ne pas faire simplement une ouverture de fichier plutôt que d'en créer un a chaque fois?

Code :

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

1
2
' Ouverture du fichier Excel
Workbook = Excel_App.Workbooks.Open("C:\Toto.xls")

ensuite ton déplacement de cellule "i = i + 1" ne marchera pas non plus,
à chaque click sur le bouton_1, tu créer ta variable "i" et tu l'initialise à 5.
Donc tu restera tout le temps sur la cellule "C5"

Ce que tu veux faire, c'est un code qui te permet d'ajouter des valeurs via une TextBox à les unes à la suite des autres,
mais il faut que tu click à chaque fois?

c'est spéciale comme idée, surtout si tu doit ajouter 100 valeurs, ça va etre long...

PS: Merci de ne pas oublier les balises de code !
PPS: c'est un truc qu'on aime pas beaucoup voir sur le forum

**shayw** · 24/05/2012, 11h58

Salut raye2010

ah ok... c'est normale, ton code ne va jamais fonctionner

a chaque click sur le bouton_1, tu créer un nouveau fichier excel ...

fais gafe
petit conseil verifie avec le gestionaires des taches onglet processus
remplit d'excel

**hunteshiva** · 24/05/2012, 12h05

Oui, je voulais pas en parler pour éviter de compliquer les explications,
mais le gros défaut de cet automation est qu'il ferme mal les process "EXCEL.EXE"

Je n'ai pas retravaillé ma solution parceque je développe l'appli finale en Windev

Si tu veux une solution propre, passe par OLEDB

c'est plus rapide, et pas besoin d'avoir Excel,
Word ou Access d'installé sur ton pc.
*alors qu'avec le code que tu utilise actuellement, tu en a besoin...*

remplir ligne excel via textbox vb net

VB.NET

Discussions similaires

Partager

Partager