Conversion VB6 vers VB.net (graphique Excel)

Question

Bonjour,



Je dois effectuer une acquisition (carte Keithley KUSB) de tension et
afficher cette tension sur un graphique. La solution que j'ai mis au
point pour l 'instant c'est un programme en VB 6 qui permet de tracer
un graphe sous Excel, puis d'exporter ce graphe (au format JPEG) vers
une fen&#234;tre Visual Basic. Ce programme fonctionne bien sous VB6, mais
je dois imp&#233;rativement le faire tourner sous VB.net 2003, le probl&#232;me
c'est qu'apr&#232;s la phase de conversion initiale, le programme ne marche
toujours pas sous VB.net.



    Voici les extraits du code importants et la ligne qui "plante" :



        Dim appExcel As Excel.Application 'application Excel

        Dim wbExcel As Excel.Workbook 'classeur Excel

        Dim wsExcel As Excel.Worksheet 'feuille Excel

        Dim LastCell As String 'adresse de la derni&#232;re cellule du tableau des valeurs (pour tracer le graphique)

        .....

        appExcel = CreateObject("Excel.Application") 'application Excel

        wbExcel = appExcel.Workbooks.Add 'classeur

        wsExcel = wbExcel.ActiveSheet 'feuille

        'on s&#233;lectionne la case B2

        wsExcel.Range("B2:B2").Select()

        ......

        'on cr&#233;e un graphique sur la 2e feuille

        appExcel.Charts.Add()

        appExcel.ActiveChart.ChartType = Excel.XlChartType.xlLineMarkers 'type de graphique ligne 

        (erreur signal&#233;e &#224; cette ligne lors de l'execution)





        Et le message d'erreur qui s'affiche : 

        Une exception non g&#233;r&#233;e du
type 'System.NullReferenceException' s'est produite dans
microsoft.visualbasic.dll

        Informations suppl&#233;mentaires : Variable objet ou variable d'un bloc With non d&#233;finie.



       Etant vraiment novice en Visual
Basic (je ne suis pas informaticien) je ne parviens pas &#224; r&#233;soudre
cette erreur pour que ce code qui fonctionne bel et bien en
       VB 6 fonctionne aussi en VB.net.



        Merci de votre attention, en esp&#233;rant une r&#233;ponse rapide !



        Flo et John

cs_Willi · Answer

Salut,
Il faut instancier Excel.Application
Dim appExcel As new Excel.Application 'application Excel

Conversion VB6 vers VB.net (graphique Excel)

1 réponse

Discussions similaires