Remplir une cellule excel avec VB.net

Version imprimable

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:

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

17/04/2019, 15h12
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 ?

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:

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,

19/04/2019, 23h32
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.)
23/04/2019, 10h17
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:

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

mais il ne comprend pas la value du TextBox1
23/04/2019, 10h19
thovan

Si si, VB peut faire des tas de courbes...
Regardes le contrôle Chart ;)
23/04/2019, 11h36
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é.
23/04/2019, 13h09
Phil Rob

Bonjour,

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

Code:

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

... :)

pour l'instant j'ai ce code si :
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 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).

Salut,
Tu dois faire ceci :

Code:

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

23/04/2019, 15h11
sorbetframboise

1 pièce(s) jointe(s)

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.

Pièce jointe 469297
23/04/2019, 15h14
thovan

Citation:

Envoyé par 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é.

Oui bien tendu, c'est un contrôle comme un autre... il a une propriété visible qu'on peut mettre sur FALSE.
Tu peux même aller plus loin... si ton application a une notion de login/profil d'accès.... tu peux mettre les charts visible pour certains et pas pour d'autres...

Citation:

Envoyé par 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.

Pièce jointe 469297

Code:

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

23/04/2019, 15h27
sorbetframboise

D'accord thovan je vais tout de même essayer de le faire avec excel c'est un logiciel avec lequel je me sens très a l'aise contrairement à VB.net où je n'ai pas les bases mais j’essaierais tout de même comme ça ne serait-ce que pour m’entraîner merci du conseil.
23/04/2019, 15h38
sorbetframboise

1 pièce(s) jointe(s)

Je pense qu'il faut que j'ajoute une référence mais je ne sais pas laquelle j'ai ce message d'erreur

Pièce jointe 469306

D'ailleurs que représentent les références et à quoi serve-t-elle ?
23/04/2019, 15h44
thovan

Non, ce n'est pas un soucis de référence mais d'orthographe :)
essaies :

Code:

Xlapp.DisplayAlerts = False

ou

Code:

Xlapp.Application.DisplayAlerts = False

Si je ne dis pas de bêtises, les références servent à inclure dans ton projet les libraires de codes de la référence que tu ajoutes.
C'est à dire que le compilateur va reconnaître les fonctions que tu utilises et ne flageras pas tout en erreurs de syntaxe...

Oui c'est bien cela merci à tous pour votre aide précieuse voici le code final :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 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
        Dim XLSheet 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
        XlRange = XLSheet.Cells(1, 1)
        TextBox2.Text = XlRange.Value
 
        Xlapp.DisplayAlerts = False
        XLDestBook.Save()
        XLDestBook.Close()
        XlApp.DisplayAlerts = True
        XlApp.Quit()
 
 
 
    End Sub

A bientôt.