Excel bug vraiment pour un rien ^^^

J'arrive à rien aujourd'hui...:evilred:

Est ce que quelqu'un a une idée de pourquoi il bug la ?

Code:

---

1 2 3 4 5 6 7

Windows("yTTxpPR00_02.csv").Activate Range("G2:G400").Select Selection.Copy Windows("Planning_de_synthese_des_versions_v6.xls").Activate Range("G9").Select ActiveSheet.Paste

---

Il dit erreur définie par l'application ou par l'objet sur le range...je comprends ps :(

ca marche tres bien chez moi. :?

tu es sur que ca bloque à ce niveau ?

Je mettrais plutôt (désolé de te contredire, mordrhim) "Tu es sure d'avoir le niveau pour débloquer ton code ? " :twisted:
Mais comme je suis bon bougre... et si tu sélectionnes ta feuille dans le fichier, ça marche pareil ?
Ensuite, tu sais que, sauf avec find dans certains cas bien recensés, il n'est "quasiment" jamais nécessaire de sélectionner un classeur, une feuille, une cellule pour travailler avec... ?

lol toute façon aujourd'hui même en communication c'était bourde ou bourde :p

Je sélectionne parce que je bosse avec 2 classeurs...que je vais devoir ouvrir...
et si je selectionne ma feuille dans le fichier oui ça marche pareil, je me suis dis comme toi ;) c'est bete je sais....excel est de mauvais poil des fois :aie:

Alors c'est que tu as oublié d'ouvrir le classeur en question, ou qu'il a un autre nom :mouarf:

lol même pas figure toi ;) excel m'aime pas des fois je crois :aie:

excel bug toujours et au même endroit. les 2 fichiers sont ouverts...je comprend pas :(

Citation:

---

Code:

---

1 2 3 4 5 6 7

Windows("yTTxpPR00_02.csv").Activate Range("G2:G400").Select Selection.Copy Windows("Planning_de_synthese_des_versions_v6.xls").Activate Range("G9").Select ActiveSheet.Paste

---

---

Où est le code en question? dans la feuille active du classeur .xls?
D'après toi, à quel classeur et à quelle feuille se réfère le Range quand tu actives un autre classeur? Comment penses-tu que VBA s'y retrouve?
Si tu veux laisser ton code tel quel, mets le dans un module standard.
Sinon, fais comme ouskel'n'or te dit, ne fais pas d'Activate, ni de Select...

oui dans la feuille active du classeur...
Je vais voir parce que je comprend vraiment pas pourquoi il bug la...peut etre sans select oui

melodyyy, tu vas être content ! Quoi ? Non, je n'ai pas la solution a ton problème, j'ai juste le même problème que toi :aie: !

Code:

---

1 2 3 4 5

Windows("S2 2007.xls").Activate Worksheets("Données").Activate Range("C14").Select Selection.Copy

---

J'obtiens la même erreur sur le Range 8O.

Sinon, j'avais aussi essayé ce code :

Code:

---

1 2 3

Workbooks("01.xls").Worksheets("MesDonnées").Cells(NumLigne, NumColonne).Value = _ Workbooks(NomFichierSemaine).Worksheets("Données").Cells(14, 3).Value

---

Et de cette manière, j'obtiens le message d'erreur :
L'indice n'appartient pas à la sélection.

Pourtant, je veux simplement récupérer des données dans un autre classeur :cry: !


Edit par Devil :
J'arrive à mes fins avec ce code :yaisse2: :

Code:

---

1 2 3 4 5

Dim objWorkbookSource As Workbook Set objWorkbookSource = Application.Workbooks.Open(NomFichierSemaine) ThisWorkbook.Worksheets("MesDonnées").Cells(NumLigne, NumColonne).Value = _ objWorkbookSource.Worksheets("Données").Cells(14,3).Value

---

Peut-être trouveras tu ton bonheur dans ce que je viens de dire.

je vais essayer ;) merci ! ;)