Rechercher : dans
Par :

Erreur d'éxecution 1004

Dernière réponse le 5 mar 2008 à 14:40:29 Damien, le 21 sep 2006 à 17:34:01 
 Signaler ce message aux modérateurs

Je suis en train de créer un fichier excel avec une importation d'un tableau d'un site internet et quelques fois j'ai cette erreur qui apparait:

"Erreur d'éxécution 1004
La méthode select de la classe Range a échoué"



Voila mon code aui me sert à supprimer certain élément de ce tableau lors de l'importation:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
Cells.Select (l'erreur se trouve ici)
Selection.Replace What:=" ~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub



Est ce que quelqu'un aurait une petite idée pour supprimer cette erreur?

Merci pour votre aide

Meilleures réponses pour « Erreur d'éxecution 1004 » dans :
Codes d'erreur de Windows VoirLa liste ci-dessous détaille les codes d'erreur s'affichant dans les boîtes de dialogue sous Windows : Code Description ------------------------ 1 Fonction incorrecte. 2 Le fichier spécifié est introuvable. 3 Le chemin d'accès spécifié...
[MSN] Erreurs 0x80072ee6 - problème de connexion VoirErreurs 0x80072ee6 Pour résoudre ce problème, supprimer les cookies, vider le cache et l'historique du navigateur Internet Explorer. Puis cliquer sur Démarrer / Exécuter et saisir : regsvr32 MSXML3.dll Enfin, redémarrer l'ordinateur pour...
[Office] Le composant que vous essayez d'utiliser (Erreur 1706) VoirLors de l'ouverture d'un logiciel de la suite Microsoft Office (Excel, Word, Access, PowerPoint), une fenêtre vous indique un des messages suivants : Microsoft Excel n'a pas été installé pour le présent utilisateur. Veuillez exécuter le programme...

1

Damien, le 21 sep 2006 à 23:46:39

Bonsoir,

En fait j'ai cette erreur apparait quand je suis sur une autre feuille que ma feuille1 lors de l'actualisation de tableau importé

Est ce que quelqu'un aurait une petite idée??

Merci pour votre aide

Répondre à Damien

2

JvDo, le 22 sep 2006 à 00:24:12

Bonsoir,

essaye :
Worksheets(1).Cells.Replace .......
directement sans passer par des select

A+

Répondre à JvDo

3

damien, le 22 sep 2006 à 00:40:54

Si je remplace "Cells.Select " par "Worksheets(1).Cells.Replace ", j'ai une nouvelle erreur qui apparait:

"erreur 450 "

et ca me selectionne Worksheets(1).Cells.Replace

Merci pour ton aide

Répondre à damien

4

JvDo, le 22 sep 2006 à 13:04:49

Bonjour,

rassure moi :
tu as bien mis le worksheets(1).cells.replace sur la ligne où tu as ton replace, ie avec les options du replace derrière!

autrement dit, tu n'as pas une ligne avec seulement worksheets(1).cells.replace ?

worksheets(1).cells remplace le selection du replace.

A+

Répondre à JvDo

5

fran, le 30 jan 2007 à 17:41:21

Bonjour moi aussi j'ai un soucis de même nature cependant ce n'est pas moi qui ai créer la macro est-ce que quelqu'un pourrait m'aider?

Qu'est-ce cette macro veut dire?

La feuille se présente ainsi :

' Actualiser Macro
' Macro enregistrée le 04/11/04 par S033271
'

'
ActiveWindow.ScrollRow = 2
Range("A3:X3").Select
** Selection.AutoFill Destination:=Range("etp_calculés_01_12"), Type:=xlFillDefault
Range("etp_calculés_01_12").Select
ActiveWindow.SmallScroll ToRight:=47
ActiveWindow.ScrollRow = 2
Range("CM3:CN3").Select
Selection.AutoFill Destination:=Range("etp_mois_cumulés"), Type:=xlFillDefault
Range("etp_mois_cumulés").Select
ActiveWindow.ScrollRow = 2
Range("Z3").Select

Call Maj_TCD
Sheets("Détail affectations").Activate
Range("Z3").Select

End Sub

Message d'erreur
Erreur d'execution '1004'

La méthode autofill de la classe Range a échoué

Répondre à fran

6

 mal22, le 5 mar 2008 à 14:40:29

Salut a tous

j'ai un super truc qui m'agace, message erreur 1004 "la methode select de la classe range a echoué"

la macro ne demande rien d'autre que :
"range("A2").select

quand je lance j'ai le message d'erreur ...mais le plus barban c'est que cela fonctionne avec d'autre classeur ??????

c'ets donc pas un probleme d'installation

qqu a -t-il une solution

Répondre à mal22