Sujet Précédent Sujet Suivant

Erreur ComException Lecture de la valeur d'une cellule d'un fichier Excel

polevault Messages postés 20 Date d'inscription dimanche 2 janvier 2005 Statut Membre Dernière intervention 12 février 2009 - 12 févr. 2009 à 22:05
cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 - 14 févr. 2009 à 01:02

Imports Microsoft.Office.Interop

Public Sub GenererMdP(ByRef FichierExcel As Excel.Application)
        Dim i As Integer
        Dim valeur, adresse As String
        Dim temp As Excel.Range
        i = 2
        valeur = "rien"
        FichierExcel.Visible = True
        FichierExcel.ActiveWorkbook.Activate()

        'Selectionner la feuille Eleve
        FichierExcel.ActiveWorkbook.Worksheets("Eleves").Select() --> Erreur générée à ce moment
        While valeur <> ""
            adresse = "A" + Str(i)
            temp = FichierExcel.ActiveWorkbook.Worksheets("Eleves").Range(adresse)
            If temp.Value <> "" Then
                MsgBox(temp.Value)
                valeur = ""
            End If
            i = i + 1
        End While

    End Sub

A chaque fois que j'essaie de lire la cellule, j'ai tjs une erreur ComException. Je ne comprends pas pourquoi.
Merci de votre aide

Polevault

A voir également:

Erreur ComException Lecture de la valeur d'une cellule d'un fichier Excel
Excel vba récupérer valeur cellule active ✓ - Forum VBA Office (Excel, Word ...)
Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
Erreur d'execution 424 ✓ - Forum Visual Basic 6
Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic 6
Erreur d'execution 9 ✓ - Forum VB.NET

1 réponse

Réponse 1 / 1

cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 1
14 févr. 2009 à 01:02

Salut
Il faut que tu attribut à la variable "Range" : temp,
la cellule voulue comme suite:
Set temp = FichierExcel.ActiveWorkbook.Worksheets("Eleves").Range(adresse)
Je pense que ca devrait suffire pour en extraire la proproété "Name"

CNTJC

Discussions similaires

[vba] recopier la valeur d'une cellule dans une autre feuille.

Recuperer la valeur d'une cellule active

Comment appeler une cellule d'une autre feuille

[vba] aller chercher des données dans une feuille excel

Prendre la valeur d'une cellule dans excel avec vba

Votre réponse

Discussions similaires