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

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

[Vba14]

Bonjour Sorbetframboise et bienvenue sur le forum,

Tu trouveras une solution dans ce tutoriel de silkyroad que je remercie et salut au passage.

https://silkyroad.developpez.com/VBA/ClasseursFermes/

[sorbetframboise]

Merci pour cette réponse et cette réactivité je vais voir ce tutoriel et vous tenir informé de mon avancement.

(c'est ma première fois sur un Forum la réactivité m’impressionne) ^^

[Vba14]

Je suis certain que tu trouveras toute l'aide nécessaire sur ce forum. Les différents intervenants sont d'une très grande compétence.
Ils m'ont souvent sortis du pétrin.

[sorbetframboise]

Sur mon Visual Basic je n'ai pas de fonction SET je ne comprend pas quand j'ecris set il me propose SetAttr est ce normal ?

[sorbetframboise]

";Extended Properties=Excel 8.0;"
.Open
End With

'Extended Properties=Excel 8.0 est utilisé pour les versions d'Excel 97, 2000 et 2002

et que doit-on faire avec excel 2016 ?
désolé si les questions vous paraissent idiotes je n'avais utilisé visual basic avant la semaine dernière.

merci pour la réponse.

[Invité]

Bonjour,

si un modérateur pouvait transférer cette discution en VB.net !

[clementmarcotte]

Bonjour,

si un modérateur pouvait transférer cette discution en VB.net !

Elle a déjà pris les devants. Je pense que l'on est plus rendu à fusionner deux discussions.

Pour l'instant, j'ai mis un lien dans l'autre vers celle-ci. Cela va permettre de naviguer entre les deux en attendant la fusion éventuelle.

[sorbetframboise]

Bonjour,

Oui effectivement j'ai lancé la discussion sur VB.net.

Ce week end j'ai réussi quelques trucs merci pour les références j'arrive à les ajoutés maintenant je programme un peu.

Merci pour votre aide je pense que le problème ne tardera pas à être résolue.

Merci

[sorbetframboise]

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

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