[VBA-E]erreur automation

**bernard38** · 25/04/2006, 13h37

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** · 25/04/2006, 14h22

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** · 25/04/2006, 15h01

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

**ouskel'n'or** · 25/04/2006, 15h36

Montre-nous ton code

A+

**bernard38** · 25/04/2006, 15h53

Code :

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

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

**AlainTech** · 25/04/2006, 15h56

Envoyé par bernard38

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** · 25/04/2006, 16h19

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

**bernard38** · 27/04/2006, 07h56

Toujours pas d'idées ?

**ouskel'n'or** · 27/04/2006, 12h03

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** · 27/04/2006, 13h00

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

**ouskel'n'or** · 27/04/2006, 14h58

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+

[VBA-E]erreur automation

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager