Discussion :

[Mario Rousson]

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

[Sankasssss]

C'est étrange en effet vu que tu fais bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WsExcel = CType(WbExcel.ActiveSheet, Worksheet)

mais ce n'est qu'un avertissement, tu ne devrais rien avoir quand tu lance l'appli...

[sinople]

Si le message d'avertissement te dérange pour la conception du programme tu peux ajouter un joli

WsExcel = Nothing

Juste après la déclaration de WsExcel et miracle Visual Studio ne t'affichera plus le message.

P.S. Ca ne ferra pas mieux fonctionner ton programme, ça le ferra pas moins planter, mais ça rend Visual Studio heureux...