Discussion :

[bernard38]

Erreur d'exécution '-2147319765 (8002802b)':

Erreur Automation
Elément introuvable

Cette erreur s'affiche après avoir fait un copier-coller d'une page HTML de plus de 1296 lignes dans une feuille excel et lancé simplement le code suivant:

Code :

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

1
2
 
MsgBox "Nom de la feuille active: " & ActiveSheet.Name

(Tout se passe bien si le collé contient moins de lignes ou si je refait un copier-coller dans un autre classeur)

Une idée ?

[ouskel'n'or]

Essaie de sélectionner ta feuille avant d'afficher le message

Code :

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

1
2
 
Worksheets(NomDeLaFeuille).select 'ou activate

A+

Une question identique à la tienne a été posée il y a quelques temps. -> Recherche -> Forum VB ... etc

[bernard38]

Il fait une erreur d'exécution 13
incompatibilité de type
sur ta ligne (select ou activate)

[ouskel'n'or]

Montre-nous ton code

A+

[bernard38]

Code :

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

1
2
Worksheets(Feuil1).Activate
MsgBox "Nom de la feuille active: " & ActiveSheet.Name

[AlainTech]

Code :

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

1
2
Worksheets(Feuil1).Activate
MsgBox "Nom de la feuille active: " & ActiveSheet.Name

Il manque les guillemets!

Code :

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

Worksheets("Feuil1").Activate

[bernard38]

Il fait l'erreur automation sur ta ligne
(Malgrè les guillemets)

[bernard38]

Toujours pas d'idées ?

[ouskel'n'or]

Si, j'ai une idée qui ne va pas te plaire...
As-tu modifié le nom de tes feuilles ? Dans quelle version d'office est-tu ?
Si tu réponds bien, j'ai peut-être la solution...

A+

[bernard38]

J'ai renommé en toto mais tjs pareil
Excel 2000 (9 0 76 16 sp3)

[ouskel'n'or]

Ok. J'ai eu le pb avec VBA97 et n'ai jamais compris pourquoi "ici" et non "là".
Je l'ai réglé en utilisant l'index de la feuille

Code :

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

1
2
3
4
5
6
 
for each LaFeuille in ThisWorkBook.worksheets
     i = i + 1
     if LaFeuille.name  = "FeuilleCerchée" then exit for
Next
Worksheets(i).activate

Tu dis

A+

[bernard38]

Personnellement j'avais réglé ce problème temporairement en faisant un copier-coller de ma feuille dans un autre classeur et l'erreur ne se produisait plus mais pourquoi alors là ?

[bernard38]

Ton code fonctionne mais le problème c'est que mes infos sont sur la première feuille (Feuil1) et c'est celle-ci qui plante.
Là je passe en revue toutes les feuilles et je m'arrête sur la Feuil3 qui n'a aucune données.

[bernard38]

Rectification!
J'ai collé directement mes données dans la feuille3 (2456 lignes)
et ton code plante aussi au moment de l'activate.
Je pense à la taille du fichier ?

[totor92290]

Bonjour,
Je reprends ce fil qui n'a pas fonctionné pour moi.
Je ne sais pas pourquoi mais TOUTES mes applis access qui inter-agissent avec excel depuis quelques jours.
j'ai le message:
"erreur d'éxecution '-2147319765 (8002802b)': erreur automation élément introuvable"
et lorsque je lance le débogage j'ai la ligne

Code :

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

Set xlApp = CreateObject("Excel.Application")

qui passe en jaune avec xlApp : nothing au passage de la souris.

Si quelqu'un a une idée ?
Merci
Totor

[totor92290]

trouvé !
Dans la déclaration

Code :

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

Dim xlApp As Object

au lieu de

Code :

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

Dim xlApp As Excel.Application

Après ... le "pourquoi ?"....
Mais ça fonctionne.

Totor