Bonjour

à la ligne
WsExcel.Range(4, 1).Cells.Select()
j'ai un avertissement qui dit:
Avertissement 1 La variable 'WsExcel' est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution. C:\Users\Mario\Documents\Visual Studio 2008\Projects\Copier page web\Copier page web\Form1.vb 342 13 Copier page web
Dans le code suivant

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
Imports System.IO
Imports Excel
 
Sub rechercheInfo()
 
Dim appExcel As Excel.Application
        appExcel = New Excel.Application
        Dim WbExcel As Excel.Workbook
        Dim WsExcel As Excel.Worksheet
 
 
WbExcel = appExcel.Workbooks.Add
            WsExcel = CType(WbExcel.ActiveSheet, Worksheet)
            'TODO: Mise en forme de la nouvelle feuille
            WsExcel.Range(3, 1).Cells.Select()
            WsExcel.Cells(3, 1) = "Date"
 
bla....bla
 
 
  WsExcel.Range(4, 1).Cells.Select()
            WsExcel.Cells(4, 1) = MonTitre.DateCote
pourquoi?
Mario