Discussion :

[ruliane]

Bonjour, depuis quelque temps je développe une application pour créer un tableau de financement dans un fichier excel. Je rencontre alors un petit hic qui me fait trainer depuis déjà plusieurs jours.

Je souhaite vérifier si la valeur d'une cellule est égale à celle d'un variable mais je tombe toujours sur un message d'erreur.

j'ai essayé de m'aider de http://www.developpez.net/forums/sho...d.php?t=172774 mais rien ne fonctionne...je vous transmet les test et les messages.

- Do While appExcel.Cells(y, 0).value2.Equals(appExcel.Cells(100, 100).value2)
Exception de HRESULT : 0x800A03EC

- Do While appExcel.Cells(y, 0) <> ""
Exception de HRESULT : 0x800A03EC

- Do While appExcel.Cells(y, 0).Equals(appExcel.Cells(100, 100))
Exception de HRESULT : 0x800A03EC

Voila, que dire de plus? excel est bien déclaré dans appexcel et pas de problème de ce côté là je l'ai déjà beaucoup utilisé.

Merci pour vos réponses.

[Lefaucheux]

le test devrait porter , il me semble , sur :

MyExcel.MyWorksheet.cells(x,y).value.

Tu sembles avoir oublier de dire sur quelle feuille (onglet) excel l'appli doit faire le test....

si appExcel est un Objet excel , il te manque donc la "worksheets" sur laquelle tu travailles.....

[ruliane]

Non non, j'ai bien appelé ma feuille

wbkExcel = appExcel.Workbooks.Open(repb & "\" & txt_g_n_nom.Text & ".xls") 'ouverture du classeur
wshExcel = CType(wbkExcel.Worksheets("Feuil1"), Excel.Worksheet) 'choix de la feuille

de plus je n'ai eu aucun mal jusque là donc je ne pense pas que ça vienne de là.

sinon ce problème est résolu, a = appExcel.Cells(y, 2).value2 me permet de récupérer la valeur

Merci quand même

[Skalp]

Lorsqu'une cellule Excel est vide, appExcel.Cells(x, y) renvoie null/Nothing. Donc appExcel.Cells(y, 0).value2 lève une exception.

Tu dois faire une double vérification sur chaque cellule :

Code :

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

1
2
3
4
Do While
appExcel.Cells(y, 0) <> Nothing And 
appExcel.Cells(100, 100) <> Nothing And
appExcel.Cells(y, 0).value2 = appExcel.Cells(100, 100).value2

Si besoin, cf Piloter Excel avec DotNET

[ruliane]

Merci beaucoup, je n'avais jamais manipulé excel depuis vb.net et j'avoue que mon code est un peu brouillon.