Discussion :

[retraite83]

Bonjour,

je vous expose mon problème, récurrent malgré de multiples essais

J'ai une macro qui copie une image d'une feuille dans une autre, cela marche sans problème sur 5 postes mais jamais sur le 6eme (toujours le même)

J'ai réinstallé Office 365 pour être sur, même soucis :

Erreur d'exéution
La méthode "Copy" de l'objet "Shape" a échoué

Voilà le code

Code :

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

1
2
3
4
5
6
7
8
9
10
pdf.Range("B" & lig).Select
For Each sh In log.Shapes
    logo = "$E$13"
    If sh.TopLeftCell.Address = logo Then
        log.Shapes(sh.Name).Copy ' copie logo
        pdf.Paste
        Exit For
    Else
    End If
Next

que j'ai modifié pour voir

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each sh In log.Shapes
    If sh.Type = msoPicture Then
        If sh.Name <> help Then
            log.Shapes(sh.Name).Copy
            log.Paste Destination:=pdf.Range("B" & lig)
        Else
        End If
    Else
    End If
Next

Dans les 2 cas cela fonctionne sur les 5 premiers poste mais pas avec le même message sur le 6ème poste

Si quelqu'un a une suggestion je suis preneur, je ne sais plus quoi tenter

Un paramètre Excel ? une autre façon différente de copier une image qui pourrait contourner le problème ?

[retraite83]

En fit j'ai résolu le pb en codant

Code :

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

1
2
3
log.Range("E13").Copy
pdf.Range("B" & lig).Select
pdf.Paste

Dès fois on cherche des solutions compliquées...

Mais je n'ai pas compris le pb d'origine