VB 2010 récupérer une valeur dans excel

Résolu/Fermé
laguernette Messages postés 6 Date d'inscription lundi 27 février 2012 Statut Membre Dernière intervention 31 mars 2012 - 27 févr. 2012 à 13:04
choubaka Messages postés 39404 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 21 novembre 2024 - 27 févr. 2012 à 14:10
Bonjour,

J'ai écris le code ci-dessous dans visual basic 2010 :

Option Explicit On

Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Déclaration des variables
        Dim appExcel As Excel.Application 'Application Excel
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excel

        'Ouverture de l'application
        appExcel = CreateObject("Excel.Application")
        'Ouverture d'un fichier Excel
        wbExcel = appExcel.Workbooks.Open("C:\Users\LL\Documents\Visual Studio 2010\Projects\test3\test3\TEST.xls")
        'C:\Users\LYDIE\Documents\Visual Studio 2010\Projects\test3\test3\TEST.xls"
        'wsExcel correspond à la première feuille du fichier
        wsExcel = wbExcel.Worksheets(1)
        Me.TextBox1.Text = wsExcel.Cells(1, 1)

        wbExcel.Close() 'Fermeture du classeur Excel
        appExcel.Quit() 'Fermeture de l'application Excel

        'Désallocation mémoire
        wsExcel = Nothing
        wbExcel = Nothing
        appExcel = Nothing
    End Sub


Mon problème est qu'il me renvoie l'erreur : "L'exception InvalidCastException n'a pas été gérée. La conversion du type 'Range' en type 'String' n'est pas valide."

Pouvez-vous m'aidez s'il vous plait ?

A voir également:

7 réponses

choubaka Messages postés 39404 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 21 novembre 2024 2 102
27 févr. 2012 à 13:23
Me.TextBox1.Text = wsExcel.Cells(1, 1).Value

1
choubaka Messages postés 39404 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 21 novembre 2024 2 102
27 févr. 2012 à 13:10
Bonjour

Me.TextBox1.Text = wsExcel.Cells(1, 1)

Tu es certain que wsExcel.Cells te renvoie un String ???
0
laguernette Messages postés 6 Date d'inscription lundi 27 février 2012 Statut Membre Dernière intervention 31 mars 2012
27 févr. 2012 à 13:14
Re,

oui, il me renvoie obligatoirement une chaîne de caractère et au pire, un nombre.
0
choubaka Messages postés 39404 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 21 novembre 2024 2 102
27 févr. 2012 à 13:15
en fait: cette méthode te renvoie un objet Range... D'où l'erreur.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
laguernette Messages postés 6 Date d'inscription lundi 27 février 2012 Statut Membre Dernière intervention 31 mars 2012
27 févr. 2012 à 13:16
D'accord, alors comment dois-je faire pour qu'il me renvoie le texte contenue dans ma cellule ?
0
laguernette Messages postés 6 Date d'inscription lundi 27 février 2012 Statut Membre Dernière intervention 31 mars 2012
27 févr. 2012 à 13:50
Merci !!
J'ai trop honte, je le savais en plus. Je vais mettre ça sur le compte de la fatigue. Et dire que je cherche depuis hier.
Encore merci.
0
choubaka Messages postés 39404 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 21 novembre 2024 2 102
27 févr. 2012 à 14:10
De rien

Je passe tout ceci en résolu...
0