Discussion :

[raye2010]

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]

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]

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]

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]

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]

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