Bug sur un seul PC à la copie d'une image
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 :
Citation:
Erreur d'exéution
La méthode "Copy" de l'objet "Shape" a échoué
Voilà le code
Code:
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:
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 ?
