OVH Cloud OVH Cloud

Problème avec les images selectionné

3 réponses
Avatar
gunsman
Bonjour à tous,

J'ai une macro qui normalement selectionne une image nommé "Image 1" Le
problème c'est que pour une raison qui m'échappe totalment depuis trois ans,
Excel me renomme par moment Image 1 en Image 566 par exemple, mais jamais le
même chiffre.

Ma macro recherche Image 1, la selectionne et la supprime avant la
sauvegarde. Le problème c'est que lorsque l'image n'est pas Image 1 la macro
qui est relativement longue et complexe plante.

J'ai charché sur Google et sur les différents site traitant excel. Hélas la
seul chose que j'ai trouvé c'est avec un traitement qui selectionne tout et
supprime tout. Super je me suis dit. La formule miracle :

ActiveSheet.Shapes.SelectAll
Selection.Delete

Oui mais quand il n'y a pas d'image ça plante !!!

Alors j'ai essayé avec On error Goto mais je n'y arrive pas.

Si quelqu'un pouvait me donner une solution... ça fait 2 semaines que je
suis la dessus.

Merci d'avance

3 réponses

Avatar
AV
ActiveSheet.Shapes.SelectAll
Selection.Delete

Oui mais quand il n'y a pas d'image ça plante !!!


Nom de feuille à adapter
Sheets("Feuil1").DrawingObjects.Delete

AV

Avatar
Frédo P
Peut être mais pas essayé
If Iserror(ActiveSheet.Shapes.SelectAll) then
Else
Selection.Delete
endif


--
Fred


"gunsman" a écrit dans le message de
news:437d2adf$0$21294$
Bonjour à tous,

J'ai une macro qui normalement selectionne une image nommé "Image 1" Le
problème c'est que pour une raison qui m'échappe totalment depuis trois
ans,

Excel me renomme par moment Image 1 en Image 566 par exemple, mais jamais
le

même chiffre.

Ma macro recherche Image 1, la selectionne et la supprime avant la
sauvegarde. Le problème c'est que lorsque l'image n'est pas Image 1 la
macro

qui est relativement longue et complexe plante.

J'ai charché sur Google et sur les différents site traitant excel. Hélas
la

seul chose que j'ai trouvé c'est avec un traitement qui selectionne tout
et

supprime tout. Super je me suis dit. La formule miracle :

ActiveSheet.Shapes.SelectAll
Selection.Delete

Oui mais quand il n'y a pas d'image ça plante !!!

Alors j'ai essayé avec On error Goto mais je n'y arrive pas.

Si quelqu'un pouvait me donner une solution... ça fait 2 semaines que je
suis la dessus.

Merci d'avance




Avatar
gunsman
C'est bopn ça marche !!!!

Super j'ai donc pris la formule la plus simple :

Sheets("Feuil1").DrawingObjects.Delete

Merci à tous, ça me simplifie la vie !



"AV" a écrit dans le message de news:
%
ActiveSheet.Shapes.SelectAll
Selection.Delete

Oui mais quand il n'y a pas d'image ça plante !!!


Nom de feuille à adapter
Sheets("Feuil1").DrawingObjects.Delete

AV