Discussion :

[sorbetframboise]

Bonjour,

Je débute en Visual Basic et voici mon problème, j'essaye de remplir une cellule excel avec VB.net sans que le fichier excel s'ouvre et je veux aussi faire l'inverse.

par exemple quand je remplis ma Textbox1 la cellule A1 se remplit une fois que j'appuie sur le button1 ensuite mon dossier excel effectue les calculs puis la Textbox2 prend la valeur de la cellule B2.

Pour l'instant avec mes recherches j'ai ce

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
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:\Users\BUC\Desktop\Nouveau dossier\test VBA.xlsx")
 
        Worksheet = Workbook.Worksheets("Feuil2") 'on ouvre une feuille dans le classeur excel
 
 
        Dim cells As String
        With Workbook.Worksheets("Feuil2")
 
            Workbook.Worksheets("Feuil2").Range("A1").Value = Me.TextBox1.Text
 
 
        End With

ce qui ouvre une feuille excel mais pas la bonne et qui n'écrit pas dans la cellule A1 le texte qui est dans ma TextBox1

Merci d'avance pour votre aide

[thovan]

heuuuu....
je dis ça comme ça mais....

Pourquoi tu passes par une feuille excel pour faire ton calcul....????
Tu peux le faire avec ton codes VB.... non ?

[Phil Rob]

Bonjour,

Je ne sais si ça va aider, mais le code suivant ouvre une application Excel, y place une valeur là où on veut, ajoute une feuille au classeur et y place également une valeur où cela convient :

Code :

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

1
2
3
4
5
6
7
8
9
10
        XLSAPP = New Excel.Application
        XLSAPP.Visible = True
        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Test.xls")  'ouvir le fichier XLS
 
        ' Il est possible de programmer en VB ce qu'on ferait en Macro
        XLSAPP.Range("C4").Select()
        XLSAPP.ActiveCell.FormulaR1C1 = "127"   'y placer la valeur 127 ou une formule
        XLSAPP.Sheets.Add()
        XLSAPP.Range("Feuil2!C4").Select()
        XLSAPP.ActiveCell.Value = "951127" 'y placer la valeur 127

A noter : le fichier xls doit exister et ne peut pas être ouvert au moment de l'exécution de ce code. Pour ré-accéder à un fichier ouvert, le code est un peu différent.

Bonne journée,

[clementmarcotte]

Bonjour,

Le début du fil (si on peut dire) est là. (même si la lecture n'est pas obligatoire pour la suite.)

[sorbetframboise]

Bonjour,

Je passe par excel car dans mon dossier excel j'ai des redressements de courbes je récupère des courbes de tendance pour effectuer les calculs et VB ne peut pas tracer de courbe (fin je suppose je suis + compétent en excel qu'en VB)

Merci pour le code je vais essayer et pour rentrer la valeur d'une TextBox dans une cellule il faut rentrer quoi ?

j'essaye avec

Code :

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

xLsheet.Cells(1,1).value = Textbox1.value

mais il ne comprend pas la value du TextBox1

[thovan]

Si si, VB peut faire des tas de courbes...
Regardes le contrôle Chart

[sorbetframboise]

Est-il possible également de les cacher ainsi que le code ?

Car je fais partie d'une société sous-traitante et je ne veux pas que le client puisse voir ce que j'ai fait.

Merci je regarde les charts mais mon dossier excel est assez conséquent et déjà réalisé.

[Phil Rob]

Bonjour,

La valeur d'une TextBox est dans sa propriété Text :

Code :

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

xLsheet.Cells(1,1).value = Textbox1.Text

...

[sorbetframboise]

pour l'instant j'ai ce code si :

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
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim XlApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
 
 
 
 
 
        Dim XLDestBook As Microsoft.Office.Interop.Excel.Workbook
        XLDestBook = XlApp.Workbooks.Add
 
 
 
 
        XLDestBook = XlApp.Workbooks.Open("C:\Users\Asus\Desktop\TEST.xls")
 
 
 
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        xlSheet = XLDestBook.Worksheets.Add
 
 
 
        xlSheet.Cells(1, 2).value = TextBox1.Text
    End Sub
End Class

mais je n'arrive pas à sélectionner une feuille ça m'en ouvre une nouvelle de + je ne trouve pas comment sauvegarder la fiche excel puis la fermer et merci pour le .Text j'ai l'impression que ça fonctionne vachement mieux ( même si je ne peux pas voir car si je retourne sur ma fiche excel pour vérifier il me propose lecture seule).

[r.morel]

Salut,
Tu dois faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim XlApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim XLDestBook As Microsoft.Office.Interop.Excel.Workbook
Dim XLlSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim XlRange As Microsoft.Office.Interop.Excel.Range
 
XLDestBook = XlApp.Workbooks.Open("C:\Users\Asus\Desktop\TEST.xls")
XLSheet = XLDestBook.Sheets(1) 'Indique le numéro de la feuille souhaitée
XlRange = XLSheet.Cells(1, 2)
XLRange.Value = TextBox1.Text
 
XLDestBook.Save()
XLDestBook.Close()

[sorbetframboise]

Merci beaucoup mon test Fonctionne pratiquement à 100% mais quand je vais pour le sauvegarder ce message d'erreur vient et la sauvegarde ne ce fait pas.

[r.morel]

Merci beaucoup mon test Fonctionne pratiquement à 100% mais quand je vais pour le sauvegarder ce message d'erreur vient et la sauvegarde ne ce fait pas.

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 XlApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim XLDestBook As Microsoft.Office.Interop.Excel.Workbook
Dim XLlSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim XlRange As Microsoft.Office.Interop.Excel.Range
 
XLDestBook = XlApp.Workbooks.Open("C:\Users\Asus\Desktop\TEST.xls")
XLSheet = XLDestBook.Sheets(1) 'Indique le numéro de la feuille souhaitée
XlRange = XLSheet.Cells(1, 2)
XLRange.Value = TextBox1.Text
 
 
XlApp.DysplayAlerts = False
XLDestBook.Save()
XLDestBook.Close()
XlApp.DysplayAlerts = True
XLApp.Quit()