Discussion :

[chimere28]

Bonjour!

Je viens à l'aide car j'ai une erreur ExceptionCOM HRESULT : 0x800A03EC qui survient à l’exécution de mon script.

C'est une instruction que j'utilise souvent, je n'ai jamais eu le moindre souci.

Voici l'idée: mon script gère un classeur excel. La ligne me posant souci est la suivante:

Code :

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

MyExcel.Sheets(NomClasse).Cells(NuméroLigne, IndexColonne).Delete(Shift:=Microsoft.Office.Interop.Excel.XlDirection.xlUp)

La ligne en question vise à supprimer le contenu d'une cellule tout en faisant remonter le contenu de celles d'en dessous d'un cran (pour ne pas avoir de cellule vide). Mon problème: mon instruction apparait deux fois: une en début de script, et une à la fin (pour certaines raisons, l'effacement ne peut se faire qu'à la fin car le programme a besoin d'informations supplémentaires que l'utilisateur fournit via un autre Form).

Aucun souci lors de l'exécution de la première. Par contre, erreur lors de l'exécution de la deuxième...

En gros voici mon script (emputé... Il est très long...)

Code :

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

1
2
3
4
5
6
 
Dim AEffacerEnFinDeScript =0
 
If AEffacerEnFinDeScript =0 then
MyExcel.Sheets(NomClasse).Cells(NuméroLigne, IndexColonne).Delete(Shift:=Microsoft.Office.Interop.Excel.XlDirection.xlUp)
EndIf

Plus loin, le script vérifie quelque chose à propos de l'entrée en question pour savoir si oui ou non elle doit être effacée (via une entrée dans un formulaire sur une autre form) Et tweake AEffacerEnFin de script à 1.

Arrive la fin de mon script

Code :

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

1
2
3
4
5
 
 
If AEffacerEnFinDeScript =1 then
MyExcel.Sheets(NomClasse).Cells(NuméroLigne, IndexColonne).Delete(Shift:=Microsoft.Office.Interop.Excel.XlDirection.xlUp)
EndIf

Et là ... erreur...
Je n'y comprends pas grand chose.

D'où peut bien venir cette erreur.
Si vous avez des idées... Je suis preneur snif

Merci par avance!

[chimere28]

Encore plus fort... Les 3 à la suite

Code :

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

1
2
3
4
5
6
7
8
9
MsgBox(MyExcel.Sheets(ClasseAnalysée).Cells(1, 1).value) 'ok
 
Dim a = NomClasse
Dim b = NumeroLigne
Dim c = IndexColonne
MsgBox(a & " " & b & " " & c)    'ok
 
MsgBox(MyExcel.Sheets(a).Cells(b, c).value)
'ERREUR!!!

Je suis mystifié!

[chimere28]

Encore encore plus fort...

Code :

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

1
2
3
4
 
 
MsgBox(MyExcel.Sheets("6C").Cells(15, 1).value)
MsgBox(MyExcel.Sheets("6C").Cells(b, c).value)

Avec "MsgBox(a & " " & b & " " & c)" juste avant, a renvoie "6C", b renvoie 15, c renvoie 1
La première ligne marche.
La deuxième me renvoie mon erreur.

C'est comme si ma ligne ne prenait plus les variables comme arguments. Comment est-ce possible? Je sèche complètement...

[chimere28]

Ok... Bon finalement j'ai résolu mon souci. Solution pour ceux que ça pourrait intéresser: Visual Basic voulait que mes variables soit nécessairement déclarées comme étant "as integer" ou "as string". C'est bien la première fois que cela m'arrive (j'avoue, qu'en codeur non professionnel, je ne déclare pas toujours si c'est une String ou un Integer, ce qui n'a jamais posé souci jusqu'ici... Ça m'apprendra. Je saurai maintenant!).

Je note donc "résolu!"