Excel plante sur la sélection de la page

Résolu/Fermé
infodes Messages postés 50 Date d'inscription mardi 26 novembre 2013 Statut Membre Dernière intervention 21 décembre 2023 - Modifié par NHenry le 14/07/2015 à 19:58
infodes Messages postés 50 Date d'inscription mardi 26 novembre 2013 Statut Membre Dernière intervention 21 décembre 2023 - 15 juil. 2015 à 15:57
Bonjour, j'essaie en VB.net de sélectionner une feuille de mon classeur mais le programme arrête. J'ai essayer plusieurs code trouvé sur le net et tout les codes plante sans exception. J'ai refait deux autres fichiers que j'ai tester et toujours le même résultat... est-ce que quelqu'un aurait une idée?

voici mon code

Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim appExcel As Excel.Application
        Dim wbExcel As Excel.Workbook
        Dim wsExcel As Excel.Worksheet

        'Try
        appExcel = New Excel.Application
        appExcel.Visible = True
        wbExcel = appExcel.Workbooks.Open("c:\test.xls") 'path: le chemin d'accès à ton fichier
        wsExcel = wbExcel.Sheets("2").select
        Label1.Text = wsExcel.Cells(1, 1).Value.ToString() 'copie la veleur de la cellule dans ton label

        appExcel.Quit() 'Oublie pas de fermer le procesus

        'Catch ex As Exception
        ' MessageBox.Show(ex.ToString())
        ' 'appExcel.Quit()
        ' End Try
    End Sub
End Class


le fichier est très simple, avec 2 pages et le chiffre 25 à la cellule a1 de la 2e page. rien de plus.

si vous utilisez le try cacth, vous aller voir que lorsqu'il sélectionne la page(ce qu'il fait), il saute le code pour aller au catch.

Merci pour votre aide.
A voir également:

4 réponses

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 331
14 juil. 2015 à 18:21
"Il plante" puis "Il saute au catch", il fait quoi, quelle erreur, ... ?
0
infodes Messages postés 50 Date d'inscription mardi 26 novembre 2013 Statut Membre Dernière intervention 21 décembre 2023
Modifié par infodes le 14/07/2015 à 19:41
Bonjour,

Quand je dis que ça plante, ça veut dire que le programme arrête. Si l'on exécute le try catch, il donne le message d'erreur et après le programme arrête.

merci
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 331
14 juil. 2015 à 19:58
Selon ma boule de crystal, je pense que tu n'a pas bien initialisé les schminlocks, ce qui fait que ton tetrodon ne peut pas fonctionner ...

Et sinon, tu comptes nous poster aussi le message d'erreur ou il faut qu'on le devine ?
0
infodes Messages postés 50 Date d'inscription mardi 26 novembre 2013 Statut Membre Dernière intervention 21 décembre 2023
15 juil. 2015 à 13:22
Le message est le suivant:

System.InvalidCastException:Impossible d'effectuer un cast d'un objet de type 'System Boolean' en type 'microsoft.office,excel,worksheet'. à windows application3.form1.form_1Load(Object sender, EverArgs e) dans c:\...
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 331
15 juil. 2015 à 13:59
Sur cette ligne ?
wsExcel = wbExcel.Sheets("2").select
Essayes :
wbExcel.Sheets("2").select
Simplement.
0
infodes Messages postés 50 Date d'inscription mardi 26 novembre 2013 Statut Membre Dernière intervention 21 décembre 2023
15 juil. 2015 à 15:57
Effectivement, ça fonctionne très bien. Merci pour l'aide.
0