Excel et VBRésolu

Question

Bonjour,

Je fais une app. en VB.NET et je souhaite la lier avec un fichier Excel. Mais comme je d&#233;bute en .net et en connexion Excel, je suis perdu, et j'ai besoin de votre aide.

Je ne comprends d&#233;ja pas la diff&#233;rence exacte entre un Worksheet, workbook ... Mon fichier Excel comprend plusieurs feuilles. Je souhaiterai alors enregistrer une valeur dans une cellule de mon fichier Excel, dans la deuxi&#232;me feuille, appel&#233;e "Feuille2". La ligne de code en rouge enregistre la valeur, non pas dans Feuille2, mais dans la derni&#232;re feuille active avant d'avoir ferm&#233; le fichier Excel. L'enregistrement se ferait soit avec les donn&#233;es x et y de la cellule, soit &#224; l'aide de son nom de cellule, donn&#233; dans Excel.

Quelqu'un voit il comment faire ?

La m&#233;thode de fermeture des variables Excel est elle bonnes ? de fa&#231;on que Excel ne reste pas dans le gestionnaire des t&#226;ches apr&#232;s fermeture de l'app.

Connaissez vous un tutorial sur les d&#233;veloppements d'app vb.net avec un fichier Excel, vraiment simple &#224; comprendre ? Avec tout ceux que j'ai trouv&#233;, je n'ai rien compris.

Voici mes lignes de codes (issues de sources de vbfrance):


Dim Simulation 
As Excel.Application

Dim ShtFeuille2 
As Excel.Worksheet


'Ouverture du fichier Excel
Simulation = New Excel.Application
Simulation.Workbooks.Open(Application.StartupPath & "\SIMULATION.xls")
ShtFeuille2 = Simulation.Worksheets("Feuille2")

ShtTracteur.Cells(1, 1) = 154

Simulation.Quit()


Simulation = 
Nothing

ShtTracteur = 
Nothing

Merci beaucoup d'avance,

Max

mrdep1978 · Accepted Answer

Excel.Application correspond à l'application Excel Excel.Workbook correspond à un classeur = Fichier excel (*.xls; *.xlt) ... Excel.Worksheet correspond à un onglet du classeur Ton erreur principale est l'utilisation de la variable ShtTracteur au lieu de ShtFeuille2 Mes connaissances sont en VB6 plutôt qu'en .Net, mais ça n'a pas l'air d'être fort différent Dim Simulation As Excel.Application Dim l_Workbook As Excel.Workbook Dim ShtFeuille2 As Excel.Worksheet 'Ouverture du fichier Excel 'Lancement d'Excel Simulation = New Excel.Application 'Ouverture du classeur SIMULATION.xls l_WorkBook = Simulation.Workbooks.Open(Application.StartupPath & "\SIMULATION.xls") 'Recuperation de la feuille "Feuille2" ShtFeuille2 = l_Workbook.Worksheets("Feuille2") ~~ShtTracteur.Cells(1, 1) = 154~~ 'Le .Value est optionnel ShtFeuille2.Cells(1, 1).Value = 154 'Fermeture du fichier Excel (en sauvegardant les modifications) l_Workbook.Close(True) 'Fermeture de l'application Excel Simulation.Quit() Simulation = Nothing l_Workbook = Nothing ShtTracteur = Nothing

cs_max68 · Answer

Merci beaucoup, mrdep1978, &#231;a marche nickel ;)

M@x

Excel et VB

2 réponses

Discussions similaires