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

xicamaria Messages postés 13 Statut Membre -  
yg_be Messages postés 23437 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

3 réponses

  1.
    xicamaria Messages postés 13 Statut Membre
     
    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
  2. xicamaria Messages postés 13 Statut Membre
     
    et pourtant si j'arrête la procédure et que je fait le collage spécia manuellement ça marche : étonnant, non ?
    0
  3. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    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