[VBA-E]erreur automation

Version imprimable

25/04/2006, 13h37
bernard38

[VBA-E]erreur automation
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:

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 ?
25/04/2006, 14h22
ouskel'n'or
Essaie de sélectionner ta feuille avant d'afficher le message
Code:

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 ;)
25/04/2006, 15h01
bernard38

erreur automation

Il fait une erreur d'exécution 13
incompatibilité de type
sur ta ligne (select ou activate)
25/04/2006, 15h36
ouskel'n'or

Montre-nous ton code

A+

erreur automation

Code:

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

25/04/2006, 15h56
AlainTech
Citation:
Envoyé par bernard38

Code:

1 2 Worksheets(Feuil1).Activate MsgBox "Nom de la feuille active: " & ActiveSheet.Name
Il manque les guillemets!

Code:

Worksheets("Feuil1").Activate
25/04/2006, 16h19
bernard38

erreur automation

Il fait l'erreur automation sur ta ligne
(Malgrè les guillemets)
27/04/2006, 07h56
bernard38

erreur automation

Toujours pas d'idées ?
27/04/2006, 12h03
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+
27/04/2006, 13h00
bernard38

erreur automation

J'ai renommé en toto mais tjs pareil
Excel 2000 (9 0 76 16 sp3)
27/04/2006, 14h58
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:

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+
27/04/2006, 15h29
bernard38

erreur automation

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à ?
27/04/2006, 15h41
bernard38

erreur automation

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.
27/04/2006, 16h03
bernard38

erreur automation

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 ?
02/08/2023, 14h14
totor92290

erreur d'execution 2147319765 erreur automation élément introuvable

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:

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
02/08/2023, 15h48
totor92290

trouvé !
Dans la déclaration

Code:

Dim xlApp As Object

au lieu de

Code:

Dim xlApp As Excel.Application

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

Totor