PasteSpecial Format:="Image (métafichier amélioré)"

xicamaria Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'ai le code ci-dessous qui plante seulement quelques fois plage_legende est pourtant toujours la même.
Je ne comprends vraiment pas pourquoi.

Range(plage_legende_eg).Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Range("N78").Select
ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link:= _
False, DisplayAsIcon:=False

A voir également:

3 réponses

Réponse 1 / 3
xicamaria Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai envoyé le message sans vouloir, c'est juste pour ajouter :
est-ce que quelqu'u peut m'aider et biensûr pour remercier
0
Réponse 2 / 3
xicamaria Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
et pourtant si j'arrête la procédure et que je fait le collage spécia manuellement ça marche : étonnant, non ?
0
Réponse 3 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
cela plante avec un message d'erreur? lequel, sur quelle ligne? 
 Range(plage_legende_eg).CopyPicture Appearance:=xlPrinter, Format:=xlPicture 
Range("N78").Select 
ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link:= _ 
False, DisplayAsIcon:=False
0