EXCEL: erreur d'execution 451 (excel97 et 2000)

Question

bj à tous
en vb je veux ouvrir un fichier excel,
lire le contenu de cellules et les afficher dans un msgbox une à une.

quand j'avais excel97 je faisais comme ceci

Dim myeXcel1 As Excel.Application

Private Sub Command1_Click()

Dim caseval  As Object

   Set myeXcel1 = New Excel.Application
    myeXcel1.Visible = True
    myeXcel1.Workbooks.Open FileName:="C:	emp	oto.xls"
    For Each caseval In myeXcel1.Range("A1:A10")
        MsgBox caseval

    Next caseval
    
myeXcel1.Quit
Set myeXcel1 = Nothing

End Sub

depuis que je le le fais avec excel2000
message erreur d'execution 451
procedure property let non definie !!!!!

qu'est ce que j'ai perdu ou supprimé ?????

merci de m'aider

bc

Badclown · Answer

Essaye plutot avec cet methode ca seras plus simple :
For i = 1 to ...
FOR j= 1 to ...

msgbox(myeXcel1.Cells(i,j))
next j
next i
Et essaye

a+

cs_bruno03 · Answer

Ok ,je connais cette méthode, en fait je me suis
mal exprimé

Mon prog marchait

j'ai empaqueté mon prog et je l'ai installé sur mon pc pour tester

ensuite je l'ai enlevé et j'ai du paumer une dll
et maintenant ca plante sur la ligne for each

alors je voudrais bien réparer

Sur un autre pc si je lance l'exe je n'ai pas de prob

merci de chercher

A+

Badclown · Answer

C'est quoi caseval ? A part le declarer en object il y a rien t sur que ca vient pas de ca?

A+

cs_bruno03 · Answer

caseval est la variable qui recupere le contenu de la cellule excel.

peut-etre que c'est a cause de ça mais quelle est la bonne declaration pour que ca marche ????

Badclown · Answer

Bah tu dit que c'est un object mais ca correspond a quoi comme objet c ca le probleme, essaye d'utiliser ma métode , 'tes pas obliger d'utiliser cet objet avec.

cs_bruno03 · Answer

ok et merci de m'avoir aidé

Badclown · Answer

De rien

EXCEL: erreur d'execution 451 (excel97 et 2000)

7 réponses

Discussions similaires