Erreur 1004, methode Paste de l'objet Range.

Bonjour,

Donc voilà mon problème :

Code:

---

1 2 3 4 5 6 7 8

Sheets("job").Activate   Columns("E:AI").Select   Selection.AutoFilter Field:=4, Criteria1:="202 - LEGRAND EXPORT TIERS", Operator:=xlOr, Criteria2:="210 - SNC INTRA-GROUPE"   Selection.SpecialCells(xlCellTypeVisible).Rows.Copy Destination:=Sheets("temp").Range("A1")

---

Le problème se situe à la ligne 4, ce code fonctionne bien sur ma machine au boulot (Win XP à jour + Excel 2003), fonctionne bien sur une autre machine (Win 2000 Pro + Excel 2000) mais ne fonctionne pas sur ma machine perso (Win XP à jour + Excel 2003)

J'avoue ne pas comprendre d'où peut bien venir ce fichu problème ???

Et quel genre d'erreur obtiens - tu à la ligne 4 ?
[edit] C'est dans le titre, autant pour moi :roll:

Je ne vois pas du tout pourquoi ca fonctionnerait sur toutes les autres machines sauf la tienne... Une différence de configuration peut être, ou peut être au niveau des références activées ?

Citation:

---

Envoyé par mickdu90

Et quel genre d'erreur obtiens - tu à la ligne 4 ?

---

Celle citée dans le titre, je ne me souviens pas des termes exacts, je suis au taff là.

Cependant, j'ai remarqué en mode pas à pas que l'exécution passait bien cette instruction, exécutait la suivante, et ensuite me renvoyait une erreur sur cette ligne.

L'instruction suivante étant :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If calculing = False And Target.Count = 1 Then last = Target End If End Sub

---

Cependant, je ne pense pas qu'elle soit vraiment exécutée après, je pencherais plutôt pour un évènement lors du copier-coller mais qui je pense ne gène pas à moins que je me trompe ?

Edit: Je précise que ça ne rentre pas dans la condition lors du changement de sélection.
De plus, les références comme tu en parles, sont bien les mêmes entre les deux machines XP, elles ne sont pas les mêmes pour office 2000 et office 2003 mais ça marche ( changement de version : office 9 & office 11)

Je pense aussi que le copier coller doit foirer quelque part... Mais si il marche ailleurs, je ne pense pas que le code soit en cause ! Surtout si le poste de ton travail, et ton poste perso utilisent la même version de Excel. Et comme tu viens de l'ajouter, même avec des versions différentes il fonctionne.

La machine serait en cause ? 8O

Est-il possible de tester ton code sur ma machine ?

Citation:

---

Envoyé par mickdu90

Je pense aussi que le copier coller doit foirer quelque part... Mais si il marche ailleurs, je ne pense pas que le code soit en cause ! Surtout si le poste de ton travail, et ton poste perso utilisent la même version de Excel...

---

Surtout que je pense que le copier-coller est effectif sur ma machine.
J'entends par là qu'il me semble qu'il soit effectué, je ne sais pas si toutes les données sont là (~22000 lignes) mais il y en a qui sont ramenées

Bonjour

Il faudrait déjà être certain du message d'erreur, car l'erreur 1004 peut renvoyer différents messages...

Sur ta machine, le filtre renvoie-t'il des lignes?
La feuille "Temp" existe-t'elle?

Tu dis que l'instruction suivante est:

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)...

---

ce qui est impossible, car tu devrais au moins avoir un End Sub ou un End Function...

Sois plus précis dans tes informations, cela nous permettra de t'aider plus efficacement... ;)

- Oui, le filtre me renvoie des lignes et le copier-coller semble se faire mais se termine avec cette erreur.
- La feuille "Temp" existe bel et bien puisque c'est le même fichier que j'ouvre à la maison.
- Ce n'est pas une "instruction" à proprement parler mais sur la feuille "job" (origine des données), il y a une interception de l'évènement "SelectionChange" et donc il intervient pendant le copier-coller mais pas au point de faire tout planter enfin je pense puisque ça marche ailleurs.

Si le problème survient sur la ligne

Code:

---

1 2	Selection.SpecialCells(xlCellTypeVisible).Rows.Copy Destination:=Sheets("temp").Range("A1")

---

( surlignée en jaune lors du débogage ), ce n'est pas possible que le collage soit réalisé...
Quelles sont les lignes suivantes? Sur quelle ligne s'arrête le débogueur?

Le débogueur s'arrète bien sur la ligne 4 c-a-d :

Code:

---

Selection.SpecialCells(xlCellTypeVisible).Rows.Copy Destination:=Sheets("temp").Range("A1")

---

et je précise que c'est bien sur le Paste que ça plante et non le Copy puisque j'ai essayé en deux étapes de la façon suivante et même soucis :

Code:

---

1 2 3 4

Selection.SpecialCells(xlCellTypeVisible).Rows.Copy Sheets("temp").Range("A1").Select ActiveSheet.Paste

---

et là ça plantait sur la 3ème ligne

Et tu me dis que ne c'est pas possible que le collage soit réalisé et pourtant il l'est bien puisque des données sont présentes et que je vide la feuille "temp" avant avec un :

Code:

---

1 2 3

Sheets("temp").Activate ActiveSheet.UsedRange.Clear

---

Peux-tu donner le message d'erreur exact?

Citation:

---

Envoyé par Pierre Fauconnier

Peux-tu donner le message d'erreur exact?

---

Ben pour le moment non puisque je suis au taff, mais dès que je peux je le ferai (ce soir sûrement)

Ok. Je pense que ce sera plus simple pour trouver une solution...

Bonne journée