Discussion :

[vikingraver]

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 :

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

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.

[DeaD78]

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

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 !

[vikingraver]

Juste une question toute bete.

Comment je fais pour modifer le nom de ma Shape ?

[DeaD78]

Re,

Code :

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

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.

[vikingraver]

Voilà j'ai ecris le code suivant

Code :

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

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.

[DeaD78]

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

Si tu en as plusieurs fais :

Code :

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

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 :

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

MsgBox i

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

Code :

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

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

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.