Discussion :

[ChChatou]

Bonjour tout le monde, voici un sujet maintes fois traité mais je n'ai pas trouvé de solution dans mon cas:
Dans une application WinForms, j'ouvre et je ferme un classeur Excel avec la suite d'instructions suivantes:

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
Option Explicit On
Imports Microsoft.Office.Interop.Excel
Imports Windows.Win32.System
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class Form1
 
    Public appExcel As Excel.Application     'Application Excel
    Public wbExcel As Excel.Workbook         'Classeur Excel
    Public wsExcel As Excel.Worksheet        'Feuille Excel
......
    appExcel = CreateObject("Excel.Application")
    wbExcel = appExcel.Workbooks.Open(NomFichier)
    wsExcel = wbExcel.Worksheets("ACCUEIL")
......  
    appExcel.Visible = True
    wbExcel.Save()
    wbExcel.Close() 'Fermeture du classeur Excel
    appExcel.Quit() 'Fermeture de l'application Excel
    appExcel = Nothing
    wbExcel = Nothing

Jusque là, tout va bien.
Maintenant, j'ai ouvert une nouvelle application CONSOLE et j'essaye d'utiliser la même méthode pour travailler avec Excel:

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
Option Explicit On
Imports System.Drawing
Imports System.Reflection
Imports Microsoft.Office.Interop.Excel
Imports Excel = Microsoft.Office.Interop.Excel
 
Module Program
 
    Public appExcel As Excel.Application     'Application Excel
    Public wbExcel As Excel.Workbook         'Classeur Excel
    Public wsExcel As Excel.Worksheet        'Feuille Excel
.......
    Sub Main()
    appExcel = CreateObject("Excel.Application")
    wbExcel = appExcel.Workbooks.Open(StrInput)
     wsExcel = wbExcel.Worksheets("ACCUEIL")
......
    wbExcel.Save()
    wbExcel.Close() 'Fermeture du classeur Excel
    appExcel.Quit() 'Fermeture de l'application Excel

C'est ici que le problème apparaît: sur l'instruction

Code :

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

wbExcel.Save()

j'ai l'erreur "System.NullReferenceException:Object Reference not set to an instance of an object".
Je comprends ce qui est écrit mais je cherche comment corriger cette erreur.
D'avance merci de votre aide

[Thumb down]

Bonjour,

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
option Explicit On
Imports System.Drawing
Imports System.Reflection
Imports Microsoft.Office.Interop.Excel
Imports Excel = Microsoft.Office.Interop.Excel
 
Module Program
Sub Main()
    With CreateObject("Excel.Application")
            With .Workbooks.Open("c:\fichier.xls")
                         with .Worksheets("ACCUEIL")
                                 'traitement ACCUEIL 
                          End with 
                         .Save()
                         .Close() 'Fermeture du classeur Excel
                  End with 
                  .Quit() 'Fermeture de 
      End with 
End sub

[ChChatou]

Bonjour,
merci pour cette réponse mais j'ai un peu de mal à l'appliquer telle qu'elle est présentée du fait de la structure de l'application: Tout se passe dans un seul module mais Excel est ouvert dans une routine, utilisé dans différentes routines en changeant de feuille, fermé dans une autre routine dédiée à cet effet... bref, ce n'est pas commode d'imbriquer tout le code dans une série de " with / end with".

D'autre part, je n'ai pas compris ce qui coinçait dans l'utilisation des variables publiques

Code :

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

1
2
3
Public appExcel As Excel.Application     'Application Excel
Public wbExcel As Excel.Workbook         'Classeur Excel
Public wsExcel As Excel.Worksheet        'Feuille Excel

J'espère que l'instanciation n'est pas de la sorcellerie!

En attendant mieux, je vais, malgré tout, essayer la solution proposée et je vous tiens au courant. Accessoirement, vous avez un tuto sur ce genre de sujet? Affaire à suivre, à bientôt et merci

[popo]

NullReferenceException indique que tu utilise un objet qui vaut Nothing.
Pour corriger, il faut déjà regarder qu'elle référence d'objet n'est pas instanciée.

Et puis, ces deux codes sembles travailler sur le même fichier.
Cela ne m'étonnerai pas que le message que tu obtiens soit en réalité une conséquence d'un conflit sur une ressource partagée.

[ChChatou]

re-bonjour,
Merci à vous, votre message m'a fait réfléchir et j'ai trouvé l'erreur: j'ai appelé deux fois la routine qui ferme Excel et la deuxième fois, comme le classeur était déja fermé, il est tombé en erreur sur l'instruction d'enregistrement du classeur. C'est tout bête! Désolé pour l'erreur de débutant....