Error handling: Object required

Bonjour.

Quand je lance mon script j'obtiens l'erreur :

C:\Users\crp3841\Desktop\TEST\script_rsm_V1.vbs(205, 5) Microsoft VBScript runtime error: Object required: 'ocurrentcell'

voici la partie de code sur laquelle survient l'erreur :

Code:

---

1 2 3 4 5

Set ocurrentcell = objWrkbk.activesheet.range("a1:az1").Find(str_ReportNameIdentifier)   ocurrentcell.select   stext = ocurrentcell.value

---

En fait je cherche une certaine chaine de caractère dans un fichier CSV et parfois cette chaine n'existe pas d'où l'erreur quand il tente de faire "ocurrentcell.select" ce qui est tout à fait normal. Ce qui l'est moins c'est que j'arrive pas à gerer l'erreur.

J'ai essayé ca :

Code:

---

1 2 3 4

... ocurrentcell.select if err.Number <> 0 then...

---

mais apparement il ne passe pas dedans(pas d'erreur de générée ?).

J'ai aussi essayé ca:

Code:

---

1 2 3

Set ocurrentcell = ... if ocurrentcell is null then...

---

Mais ca ne marche pas non plus.

Vous savez comment on gère ce genre d'erreur ?

D'avance merci

Citation:

---

J'ai aussi essayé ca:

Code:

---

1 2	Set ocurrentcell = ... if ocurrentcell is null then...

---

Mais ca ne marche pas non plus.

---

C'est à dire ?
Le script ne rentre pas dans la condition ?
Essaye avec = plutôt que is dans ce cas.

Vérifie que ocurrentcell ne soit pas égal à Empty au cas où.

Effectivement il ne rentre pas dans la condition et du coup mon script plante.
J'ai essayé avec = null et avec = Empty mais ca ne fonctionne toujours pas ... D'autres idées ?

Bon bah j'ai trouvé en utilisant le debugger
en fait il fallait faire un

Code:

---

if ocurrentcell is Nothing then...

---

Merci pour l'aide tout de même

Ha oui c vrai.

Et puis il y a une fonction vbs IsNull si je ne me trompe, et non le test d'égalité sur null.

Si des infos sur empty, null, et nothing t'interesses, je me souviens d'une discussion à ce sujet sur le fofo que je viens de retrouver :
http://www.developpez.net/forums/sho...d.php?t=471285