Discussion :

[young 25]

bonjour à tous,

voila j'ai un problème avec une macro copier coller.

je m'explique
je copie une image (powerpoint) dans Excel, puis je la copie par macro sur plusieurs onglets, j'imprime par macro ces onglets puis j'ai une macro raz qui me supprime l'image du début. jusque la tout va bien.

par contre quand je colle une autre image(toujours un powerpoint) cela ne fonctionne plus. J'ai remarquer que l'image ne portait pas la même référence que la première.Je pense que cela vient de la mais comment faire pour que toutes les image aie la même référence.

Merci de votre aide qui me sera très précieuse

A+

[young 25]

re,

je pense avoir trouvé

A la place de shapes ("1") j'ai mis shapes("").

merci de me confirmer si c'est ok
Bon apetit
A+

[Theze]

Bonjour,

Si sur les feuilles il n'y a qu'un seul Shape (ici ton image), tu peux utiliser l'index 1. Attention, "1" est considéré comme étant le nom du shape et non son index donc erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub SupprimerShapes()
 
    Dim Fe As Worksheet
 
    For Each Fe In Worksheets
 
        On Error Resume Next 'si pas de shape
        Fe.Shapes(1).Delete
 
    Next Fe
 
End Sub

Hervé.

[young 25]

Bonjour these;

merci pour ta réponse,je vais essayer.
sinon le shapes(") fonctionne aussi

bonne fin de journée
A+

[young 25]

shapes("") il manquait un ptit quelque chose
A+