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.

[Vba14]

Désolé d'avoir tardé à répondre, mais j'étais en soins médicaux.

J'utilise Excel 2016 et je n'ai pas de problème avec SET... Je vais essayé de trouver un début de réponse à ta question.

[unparia]

Bonjour
Je ne vois rien, dans le code montré, qui ne correspondrait pas à des instructions comprises par VBA/Excel (bien que des blocs With inutiles ... et inutilisés soient là)
Il y a donc probablement des défaillances et ou imprécisions dans le code vb.net pour agir en automation.
VB.Net fait l'objet d'un autre forum. Je t'invite à y poser ta question. Tu peux en attendant lire ceci :
http://blogopale.blogspot.com/2010/0...vec-excel.html

[sorbetframboise]

d'accord bon courage pour vos soins.

je vous remercie pour votre aide je ne savais pas que VBA et VB.net etait différent je pense etre sur VB.net et que la fonction SET n'existe pas sur ce dernier...

je vais regarder ce site merci pour l'aide précieuse que vous m'apporter.

[clementmarcotte]

Bonjour.

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

et que doit-on faire avec excel 2016 ?

À partir d'Excel 2007. c'est au minimum Excel 12.0 et le moteur ACE au lieu du moteur JET. Va voir là pour les chaînes de connexion

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 ?

Donc, tu utilises probablement VB.net. Si tu es dans un environnement qui utilise plusieurs versions d'Office; c'est un meilleur choix que VBA. Mais tu as (presque) besoin des Primary Interop Assemblies d'Office, correspondant à ta version d'Office. Si c'est juste pour ton Excel, chez-toi, VBA suffit comme le dit unparia

Tu peux aussi essayer avec le SDK Open XML. mais c'est plus complexe.

Tu peux aller fouiller dans cette page pour des exemples de manipulation d'Excel avec VB.net

[sorbetframboise]

Oui je pense que j'utilise bien VB.net il y a t'il un moyen de le savoir?

Je n'ai toujours pas réussi à réaliser ce dont je souhaite comment pouvoir incorporer les Primary Interop Assemblies dans Visual Basic?

Merci beaucoup pour vos réponses petit a petit je fais mon chemin.

[clementmarcotte]

Bonjour,

Pour utiliser VBA, tu dois d'abord ouvrir l'application Office (Excel Word PowerPoint etc) et lancer l'éditeur à partir de l'application. L'éditeur ressemble à cela:



Pour VB.net, c'est l'icône de VisualStudio, et l'exécutable du programme se nomme deven.exe. On peut jouer énormément avec les fenêtres, mais cela devrait ressembler à cela.

Je n'ai toujours pas réussi à réaliser ce dont je souhaite comment pouvoir incorporer les Primary Interop Assemblies dans Visual Basic?

Une fois qu'ils sont installés, tu devrais les trouver dans les références. Selon ta version de VisualStudio, ils sont soit directement dans les boîtes de dialogue; soit qu'il faut les retrouver en cliquant sur le bouton Parcourir…

Ou au pire, depuis VS2010 ou VS2012, tu peux cocher la référence à Excel XX Object Reference Library dans les composants COM et Visual Studio devrait se débrouiller avec le reste.

[Vba14]

Bonsoir,

Voici un lien qui pourra te permettre d'avancer

https://support.microsoft.com/fr-fr/...m-visual-basic

Par contre je ne comprends pas ce que tu veux ici :

Je n'ai toujours pas réussi à réaliser ce dont je souhaite comment pouvoir incorporer les Primary Interop Assemblies dans Visual Basic?

On peut trouver des procédures d'ajout ici :

https://docs.microsoft.com/fr-fr/dot...type-libraries

[sorbetframboise]

Moi ça ressemble àça donc + du VB net :





Et le problème c'est que j'ai téléchargé les fichiers dll etc et malgré cela je ne trouve pas les référence et il ne me propose pas de parcourir mes documents



Y'a t-il une grosse différence entre visual studio et visual basic ?


Je suis désolé d'autant galérer.

[Vba14]

Bonjour sorbetframboise,

Voici une réponse qui a été donné à la même question :

https://www.developpez.net/forums/d9...basic-express/

Cordialement

[Invité]

Bonjour,

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

[clementmarcotte]

Moi ça ressemble àça donc + du VB net :

Exact

Y'a t-il une grosse différence entre visual studio et visual basic ?


Je suis désolé d'autant galérer.

L'idée de base, c'est que Visual Studio supporte plusieurs langages. De base, Microsoft fournit Visual Basic, C#, F#, TypeScript et JavaScript. Et plusieurs autres sont disponibles sous forme d'extension.

Et le problème c'est que j'ai téléchargé les fichiers dll etc et malgré cela je ne trouve pas les référence et il ne me propose pas de parcourir mes documents

Regarde dans l'onglet .net, le plus à gauche de ton image au lieu de l'onglet COM

P.S. Si tu utilises les Primary Interop Assemblies (la méthode la plus facile) tu dois ouvrir ton fichier Excel. Mais l'opération peut se faire de manière invisible à l'écran.

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