Copier une range en tant qu'image pour coller dans une autre feuille du classeur

C

Caillou

XLDnaute Impliqué

• 29 Septembre 2015

• #2

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Bonjour,

Je viens d'essayer sous xl 2007, d'enregistrer une macro avec copie d'image, j'obtiens ça :

Code:

Sub Macro1()
    Range("A3:D11").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Sheets("Feuil2").Select
    Range("F2").Select
    ActiveSheet.Paste
End Sub

et chez moi, ça fonctionne !

Caillou

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 29 Septembre 2015

• #3

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Bonjour Caillou,

Cela ne fonctionne pas chez moi, j'ai mis les lignes :

Option Explicit

Private Sub CommandButton1_Click()

Sheets("Mesure").Range("I2:Y20").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Sheets("Rapport").Select
Range("B35").Select
ActiveSheet.Paste

End Sub

Cliquez pour agrandir...

Et j'ai une erreur 1004 sur la première ligne : "La méthode Select de la classe Range à échoué."

Sais-tu pourquoi ?

J'ai mis ces lignes dans le code de ma feuille "Rapport".

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Septembre 2015

• #4

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Bonjour,

supprime les "select" :

Code:

Option Explicit

Private Sub CommandButton1_Click()

Sheets("Mesure").Range("I2:Y20").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Sheets("Rapport").Paste destination:=Range("B35")
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 29 Septembre 2015

• #5

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Bonjour Pierrot,

Maintenant j'ai une autre erreur 1004 avec ces lignes : "La méthode Paste de la classe Worksheet a échoué."

Une idée d'où cela peut venir ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Septembre 2015

• #6

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Re,

bah... fonctionne chez moi....

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 29 Septembre 2015

• #7

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Sinon je peux créer un rectangle et j'y insère l'image ? Quelle formulation adapter ?

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 29 Septembre 2015

• #8

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Re,

Ah bizarre ... Et je ne peux même pas joindre mon fichier car même en zip il pèse 900Ko ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Septembre 2015

• #9

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Re,

pas besoin d fichier original, simplement un tout petit ne reprenant que le problème posé..

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 29 Septembre 2015

• #10

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Re,

Bah oui j'aimerais bien mais c'est pas avec un fichier faisant 293Ko maxi que je vais pouvoir ... J'ai laisser juste ce qu'il fallait là et mon fichier même zipé fait 500Ko ...

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 29 Septembre 2015

• #11

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Cela fonctionne lorsque j'ai seulement des valeurs dans mes cellules ( sans fond de couleur, sans entourage, sans mise en forme conditionnelle ), une idée pour que cela fonctionne avec tout ça ?

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 29 Septembre 2015

• #12

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Re,

En effet juste avec la mise en forme conditionnelle cela ne fonctionne plus, cela doit prendre un peu plus de temps donc il renvoi une erreur je suppose. Peut-on faire en sorte qu'il ne renvoi pas d'erreur même si cette action met quelques secondes à s'exécuter ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Septembre 2015

• #13

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Re,

chez moi sous 2010, fonctionne même si MFC....

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 29 Septembre 2015

• #14

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Chez moi aussi ça fonctionne avec MFC (sous 2007)
Peut-être s'il y a beaucoup de formules dans le fichier, peut tu inclure cette ligne au début de la macro :

Code:

Application.Calculation = xlManual

et celle-ci à la fin

Code:

Application.Calculation = xlAutomatic

Caillou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Septembre 2015

• #15

Re : Copier une range en tant qu'image pour coller dans une autre feuille du classeur

Re,
bonjour Caillou,

A voir également qu'il n'y ait pas de cellules fusionnées au départ comme à l'arrivée....

 

Vote positif 0 Vote négatif