Discussion :

[Attila54]

Bonjour,
sur notre appli encore en développement, nous rencontrons un petit souci. Cette application charge en textbox des data issues d'une feuille excel des son lancement.
- Nous avons 2 versions compilées et installées sur 2 stations. Ces stations sont matériellement parlant identiques.

- Sur une des stations au bout d'un certain temps, au chargement des data, j'ai une exception de type " La référence d'objet n'est pas définie à une instance d'un objet". J'ai pensé a un souci au niveau de ma bdd access.

Sur l'autre station
- j'ai la version installée et la version de développement
Je ne reproduis pas l'exception même avec la même séquence de chargement des data.
Si je lance la version de développement depuis VS, idem, je ne reproduis pas l'exception.

De quoi cela peut il venir d'après vous

Ps : les deux stations utilisent le même .accdb situé sur un disque réseau. Elles sont bien mappées sur ce disque.

[Uranne-jimmy]

La référence de quel objet n'est pas retrouvé ? Le fichier excel ?
Si c'est le cas, il faut voir comment tu as défini le chemin d'accès à celui-ci, de plus, il m'est déjà arrivé d'avoir ce genre d'erreur si le fichier excel est juste déjà ouvert.

[Attila54]

ben c mon problème, vu que je ne reproduis pas la panne, je ne sais pas.
Ce que je sais par contre c'est que ça se passe au chargement de la feuille excel vers les textbox de l'appli.

[Uranne-jimmy]

C'est là qu'intervient ton meilleur ami la Msgbox
Place en une avant et juste après l'ouverture du fichier excel en question et on verra.
En parallèle, indique nous le chemin que tu as donné à ton programme pour récupérer ce fichier.

[Attila54]

je vais tester ça effectivement. Ce qui me parait bizarre, c'est que ca se passe après quelques séquences, et pas d'entrée de jeu
la séquence :

-Je download le fichier excel sur un srv distant et le colle dans un rep du HDD
réseau
- Je choisis le fichier excel a traiter
- J'ouvre l'excel, je charge les data et je referme l'excel
J'ai vérifié sur la station ou je ne reproduis pas la panne, il n'y a pas d'excel
dans les processus a ce moment.
- Je traite les data - excel n'intervient plus

je clique sur "nouveau traitement" qui revient à "je choisis le fichier excel a traiter" ... ainsi de suite.

Et au bout de 2 ou 3 séquences, j'ai le message d'exception

voila la routine de chargement :

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
23
24
25
26
With BoiteDialogue
            ' Initialisation de la boite de dialogue
            .Title = "Load Data"
            .InitialDirectory = "\\nas\Calculateur\data\encours\standard\" ' répertoire de l'application
            .Filter = "Fichiers Excel |*.xls; *.xlsx"
 
            ' vérification de la séléction
            If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                CheminFichier = .FileName
            Else
                MessageBox.Show("Aucun fichier Excel séléctionné")
                Exit Sub ' Abandon de la routine
            End If
            'ouvre l'onglet 1 de l'application
            AppExcel = New OXL.Application
            xlWorkbook = AppExcel.Workbooks.Open(CheminFichier)
            xlWorkSheetOne = CType(xlWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
            AppExcel.Visible = False
 
            'chargement des data en Textbox 
            Dim rng As OXL.Range = Nothing
    rng = CType(Me.xlWorkSheetOne.Cells(8, 4), Microsoft.Office.Interop.Excel.Range)
            Me.tbDestinaraire.Text = CType(rng.Value, String)
etc ...
 CloseAppExcel()
            System.Threading.Thread.Sleep(2000)

[Uranne-jimmy]

Faut repérer la ligne à laquelle l'erreur apparaît, en effet, je ne trouve pas de problème dans le code qui tu montre (avec mon expérience du moins).
Le problème apparaît après plusieurs séquences mais sans fermer le programme ou en fermant le programme entre chaque ?

Par contre, appexcel, le mieux c'est de l'ouvrir une seule fois et de le fermer qu'à la fermeture du programme, mais je ne sais pas si ça peut jouer.

[Attila54]

je verifie qd meme une chose
vu que l'utilisateur de la station qui a l'exception n'est pas moi, je me demande si des fois il matte pas un autre tableau excel ou un truc comme ca pendant qu'il utilise le logiciel.
Y aurait il moyen de fermer tout excel existant à l'ouverture du logiciel ?

[Uranne-jimmy]

C'est pas très user friendly ^^' Mais on peut faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function FileInUse(ByVal MonFichier As String) As Boolean
        If File.Exists(MonFichier) Then
            Try
                Dim F As Integer = FreeFile()
                FileOpen(F, MonFichier, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
                FileClose(F)
            Catch
                Return True
            End Try
        End If
    End Function

C'est une fonction qui vérifie si un fichier donné est en cours d'utilisation.

[Attila54]

mais ca va m'enlever tout fichier en cours ou ouvert cette fonction même si c pas de l'excel non ?

[Uranne-jimmy]

Nop cette fonction permet uniquement de savoir si un fichier dont on lui donne le nom(l'adressage complet hein) est ouvert ou pas. Après a toi de l'utiliser pour soit fermer le fichier soit indiquer a l'utilisateur qu'il est ouvert et que dans cette optique, ton programme pourrait avoir des irrégularités.

[Attila54]

dac j'ai compris, mais je crois pas que ca va coller car je ne peux pas lui indiquer le nom d'un fichier excel ouvert en parallèle du logiciel puisque je ne sais pas ce qu'il fabrique. Du coup il faudrait que je puisse "killer" tous les proccess excel au demarrage du soft. Je fais également des recherches de mon coté

ou alors la même chose mais que par msgbox, il propose de fermer tous les excel qu'il detecte quand il demarre peut être ?

[Uranne-jimmy]

Pour tout killer en mode nucléarisation il y a ça :

Code :

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

1
2
3
4
5
6
For Each p As Process In Process.GetProcesses
    ListBox1.Items.Add(p.ProcessName.ToString)
    If p.ProcessName = "processusakiller" Then
        p.Kill()
    End If
Next

Mais là tu dois tout de même demander à l'utilisateur si il est d'accord, manquerais plus qu'il perde un travail en cours ^^'

Après tu peux aussi juste demander à l'utilisateur de ne pas avoir Excel d'ouvert.

[Attila54]

Pour tout killer en mode nucléarisation il y a ça :

Code :

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

1
2
3
4
5
6
For Each p As Process In Process.GetProcesses
    ListBox1.Items.Add(p.ProcessName.ToString)
    If p.ProcessName = "processusakiller" Then
        p.Kill()
    End If
Next

Mais là tu dois tout de même demander à l'utilisateur si il est d'accord, manquerais plus qu'il perde un travail en cours ^^'

Après tu peux aussi juste demander à l'utilisateur de ne pas avoir Excel d'ouvert.

Lol c pas mal le mode bourrin aussi
donc je mets excel.exe dans la case adéquate et ça va tout killer.
Non mais c lui qui m'a demandé de faire comme ça, pas de souci.
Merci beaucoup


Dailleurs je confirme, c'etait bien des feuilles excel ouvertes en vrac qui causaient l'exception.

Peut etre que je pourrais aussi remplacer le p.Kill() par un msgbox disant "attention des fichiers excel sont ouvert, voulez vous les fermer ?"
si oui p.kill() si non fermeture de l'application. Ce serait p'tet moins boeuf quand même

[Attila54]

par contre que représente ta listbox1 ????

moi j'ai fait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub killexcel()
        For Each p As Process In Process.GetProcesses
            ListBox1.Items.Add(p.ProcessName.ToString)
            If p.ProcessName = "EXCEL.EXE" Then
                messageaff = "Une feuille Excel annexe est ouverte sur votre station. Enregistrez votre travail et cliquer sur yes pour fermer la feuille"
                infoaff = "Another instance of Excel is running"
                If MessageBox.Show(messageaff, infoaff, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                    p.Kill()
                End If
            End If
        Next
    End Sub

et je lance cette sub au formload mais ça me détecte que dalle

[wallace1]

Bonjour Attila54,

Attention si il existe + de 1 processus Excel en cours d'exécution tu risques d'afficher autant de boites de dialogue qu'il y a de processus donc il faut penser à sortir de ta boucle pour prompter l'utilisateur de fermer ses programmes Excel !

C'est certains il faudra faire 2 boucles mais tu pourrais envisager de retourer depuis une fonction le nombre de processus Excel encore en cours d'exécution.
Ex: il y a 2 instances d'Excel en cours d'exécution ! Veuillez sauver et fermer vos travaux.

PS : à moins que ce soit ton résultat recherché auquel cas : autant pour moi.

Voilà qui pourra peut-être t'aider : http://pastebin.com/u/3DotDev

A+

[Attila54]

arf oui tu as raison, et effectivement il vaudrait mieux procéder par renvoi du nombres d'instances ouvertes mais la, je pédale carrément ...

[wallace1]

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
 
    Public Function GetProcessCount(ByVal ProcName As String) As Integer
        Return Process.GetProcessesByName(ProcName).Length
    End Function
 
  Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As IntPtr, ByVal uExitCode As UInteger) As Integer
 
    Public Function ForcedKillProcess(ProcName As String) As Boolean
        Try
            For Each ObjPro As Process In Process.GetProcessesByName(ProcName)
                TerminateProcess(ObjPro.Handle, 1)
                Do Until ObjPro.HasExited = True
                    Application.DoEvents()
                Loop
            Next
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

A placer au lancement de ton programme d'entreprise (Sub Main ou Form Load) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
        Dim iNum As Integer = GetProcessCount("EXCEL")
        If iNum > 0 Then
            If MessageBox.Show("Il existe " &  iNum.ToString & " instances du programme EXCEL en cours d'exécution. Veuillez sauvegarder vos travaux avant toute chose ou alors voulez voulez-vous forcer leur fermeture (vous perdrez le travail nous sauvegardé !!) ?", "Attention", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = MsgBoxResult.Yes Then
                If ForcedKillProcess("EXCEL") Then
                    MessageBox.Show("Toute les instances du programme EXCEL ont été fermées correctement.", "Information", MessageBoxButtons.Ok, MessageBoxIcon.Information)
                Else
                    MessageBox.Show("Un problème est survenu lors de la tentative de fermeture d'EXCEL !. Vous devrez certainement fermer manuellement celles-ci depuis le gestionnaire des taches puis relancer le programme.", "Echec", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            End If
        End If

PS : le nom du processus c'est : EXCEL et pas EXCEL.EXE

A+

[Attila54]

purement génial
tout fonctionne a merveille (j'ai remplacé MsgBoxResult.Yes par DialogResult.Yes) et tout est clean
gros merci a vous 2 pour l'aide

[shayw]

Bonjour Wallace

en net

[wallace1]

Bonjour Wallace

en net

Bonsoir Shayw,

c'est du PInvoke donc en partie du DotNet car l'appel de la méthode est implémenté en DotNet mais le pointeur se situe bien au niveau du système.

De plus dans les 3 fonctions API il n'y en a aucune qui propose l'énumération des process en cours d'exécution. L'API "OpenProcess" ne sert à rien pour illustrer une solution fonctionnelle au problème évoqué.

Cordialement.