VBA Probleme avec ActiveSheet.Shapes

Bonjour,

J'ai fait un code en VBA qui fonctionnent parfaitement sous Excel 2003 mais qui me renvoie une erreur sous Excel 2007.

Erreur Execution '-2147024809 (80070057)'
L'élément portant ce nom est introuvable.

sur le code

Code:

---

1 2 3 4 5

ActiveSheet.Shapes("Oval 1").Select '<======= Erreur se passe ici Selection.Copy Range(Colonne & Celldebut).Select ActiveSheet.Paste

---

Alors que sur Excel 2003 il realise ce bout de code sans soucis.

Avez vous une idée?

J'ai trouvé ça sur le site de microsoft mais ca ne m'aide pas beaucoup.

Lorsque vous essayez d'exécuter une procédure dans Microsoft Office Excel 2007, un message d'erreur qui ressemble à la message d'erreur suivant s'affiche :
Erreur d'exécution '-2147024809 (80070057)' :
L'élément avec le nom spécifié est introuvable.
Cause
Ce problème se produit car il existe plus d'espaces dans nom de l'article tel qu...
Ce problème se produit car il existe plus d'espaces dans nom de l'article tel qu'il est utilisé dans la procédure que nom réel de l'article. Par exemple, le code suivant va faire pas référence un article dont le nom réel est « chart 1 ».

ActiveSheet.Shapes("chart 1").Height = 9

Ce problème peut se produire lorsque vous essayez d'exécuter une procédure qui a été créée dans Microsoft Office Excel 2003. Un problème est survenu dans Excel 2003 dans lequel plusieurs espaces ont été traités exactement comme un espace. Ce problème a été corrigé dans Excel 2007.

Bonjour,

D'après l'erreur et les commentaires "made in Microsoft", jette un oeil au nom de ta shape et vérifie qu'il n'y ait pas un espace qui se ballade à la fin et qu'il faille supprimer.

Dans le cas contraire et au vu de

Citation:

---

Ce problème peut se produire lorsque vous essayez d'exécuter une procédure qui a été créée dans Microsoft Office Excel 2003.

---

je dirais qu'il faut recréer le tout dans Excel 2007 histoire de régler le problème. Cela arrive parfois. Bref, nouveau classeur et t'es bon pour du copier/coller.

A moins que quelqu'un ait une autre idée.

Bonne chance !

Juste une question toute bete.

Comment je fais pour modifer le nom de ma Shape ? :oops:

Re,

Code:

---

Worksheets("Feuil1").Shapes(Worksheets("Feuil1").Shapes.Count).Name

---

Cela te permet de récupérer le nom de tes Shapes et donc de les modifier. Tu peux ainsi faire les vérifications s'imposant.

De plus, vérifie que ta Shape est bien présente et au bon nom.

Dis-moi si tu la retrouves, si elle existe et sous quel nom.

Voilà j'ai ecris le code suivant

Code:

---

1 2 3

shapejb = Worksheets("EDT GENERAL").Shapes(Worksheets("EDT GENERAL").Shapes.Count).Name MsgBox shapejb & "bravo"

---

afin de recuperer le nom de ma shape. Ma Msgbox m'affiche "AutoShape 5bravo"

Sur un nouveau classeur j'ai essayé de faire la meme chose en enregistrant une macro pour voir le code qu'il me donnerait.
Ben je n'ai aucun code mise à part "paste". :(

Le code que j'avais récuperé je l'avais obtenu en faisant cette opération sur excel 2003.

Combien de Shapes as-tu dans ton classeur ? Une seule ?

Si tu en as plusieurs fais :

Code:

---

1 2 3 4 5

For i = 1 to Worksheets("EDT GENERAL").Shapes.Count shapejb = Worksheets("EDT GENERAL").Shapes(i).Name MsgBox shapejb MsgBox i Next

---

Cela te donnera le nom de TOUTES tes Shapes une par une. Vérifie que tu ne retrouves pas quelque chose ressemblant de près ou de loin à ce que tu recherches.

J'y ai aussi mis un

Code:

---

MsgBox i

---

permettant de voir à quelle Shape tu te situes. Comme cela, si tu n'y arrives pas par le nom, tu feras

Code:

---

ActiveSheet.Shapes(X).Select

---

où X est le "i" correspondant à ta Shape. Bref, passe par son index et oublie son nom. Quand on a pas envie de se prendre la tête, on ne se la prend pas :roll:

EDIT : tu as dit qu'elle s'appelait "AutoShape 5". Tu peux aussi remplacer "Oval 1" par cela dans ton code. Peut-être que lors de l'ouverture de l'Excel par Excel 2007, toutes les Shapes ont été considérées en "AutoShape" et qu'il a oublié l'enregistrement d'origine. Bref, je ne sais pas trop alors remplace par le nom que tu viens d'obtenir ou par son index comme je te l'ai proposé et oublie ce que tu avais à l'origine.

Merci

J'essaye cela desuite.

J'ai 2 shapes.

J'ai déjà tenté de remplacer par AutoShape 5 mais ca ne fonctionne pas.

bref j'essaye et je te dis.

Dans tous les cas merci pour tout.

Voilà j'ai testé.

Donc apparement les shapes sont renommées et reconfigurées sous 2007.
Ma shape Oval 1 a été renommée Oval 4
Ma shape AutoShape 5 a été renommé en AutoShape 2.

En mettant les nouveaux noms il y'avait un mieux mais encore des bugs.

La solution ?

Passer par le code

Code:

---

1 2	ActiveSheet.Shapes(X).Select

---

Où (X) et le numéro d'index de la shape.

Donc mon problème est resolu grace à deux commandes que je ne connaissais pas:

La premiere :

Code:

---

1 2	Worksheets("EDT GENERAL").Shapes(Worksheets("EDT GENERAL").Shapes.Count).Name

---

et la seconde

Code:

---

1 2	ActiveSheet.Shapes(X).Select

---

Merci beaucoup pour ton aide DeaD78 qui a été tres efficace.

En esperant pouvoir te rendre la pareil un jour :?

Tous mes remerciements :ccool:

P.S: je vais essayer de le tester sous Excel 2003

Ca fonctionne sous Excel 2003 plus de soucis de portanilité. Encore merci