Discussion :

[Zebulon777]

Bonjour tout le monde.

De manière aléatoire, lorsque je colle une image dynamiquement d'une feuille dans une autre, j'ai une erreur qui bloque mes traitement : "La méthode paste de l'objet worksheet a échoue".

Si je rentre dans debugeur et que je fais "continuer", la plupart du temps, ça passe, mais le code a été bloqué.

Je précise que les feuilles ne sont pas protégées et que les images existent bien sur la feuille source (COMMENTAIRES)

Qu'est-ce que je fais mal :

Code Excel :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        Workbooks(WClasseurSource).Sheets("COMMENTAIRES").Select
        Workbooks(WClasseurSource).ActiveSheet.Shapes("Image_DGAC").Select
        Selection.Copy
        Workbooks(WClasseurSource).Sheets(WNomFeuille).Select
        Cells(1, 1).Select
        Workbooks(WClasseurSource).ActiveSheet.Paste
        Workbooks(WClasseurSource).ActiveSheet.Shapes("Image_DGAC").Left = 1
        Workbooks(WClasseurSource).ActiveSheet.Shapes("Image_DGAC").Top = 1
        
        Workbooks(WClasseurSource).Sheets("COMMENTAIRES").Select
        Workbooks(WClasseurSource).ActiveSheet.Shapes("Image_SNARP").Select
        Selection.Copy
        Workbooks(WClasseurSource).Sheets(WNomFeuille).Select
        Cells(1, 15).Select
        Workbooks(WClasseurSource).ActiveSheet.Paste
        Workbooks(WClasseurSource).ActiveSheet.Shapes("Image_SNARP").Left = 610
        Workbooks(WClasseurSource).ActiveSheet.Shapes("Image_SNARP").Top = 0

j'ai cherché sur le site, mais je n'ai rien trouvé qui corresponde a mon problème.

Merci d'avance pour votre aide.

[Thautheme]

Bonsoir Zebulon, bonsoir le forum,

Peut-être comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
 
Set CS = ThisWorkbook 'définit le classeur source CS (à adapter à ton cas)
Set OS = CS.Worksheets("COMMENTAIRES") 'définit l'onglet source OS
Set OD = CS.Worksheets("Blablabla") 'définit l'onglet destination OD (à adapter à ton cas)
OS.Shapes("Image_DGAC").Copy 'copie l'image
OD.Paste 'colle l'image dans OD
OD.Activate 'active l'onglet OD
Selection.Name = "Image_DGAC" 'renomme l'image sélectionnée dans OD
OD.Shapes("Image_DGAC").Top = 1 'placement vertical
OD.Shapes("Image_DGAC").Left = 1 'placement horizontal
OS.Shapes("Image_SNARP").Copy 'copie l'image
OD.Paste 'colle l'image dans OD
OD.Activate 'active l'onglet OD
Selection.Name = "Image_SNARP" 'renomme l'image sélectionnée dans OD
OD.Shapes("Image_SNARP").Top = 1 'placement vertical
OD.Shapes("Image_SNARP").Left = 610 'placement horizontal
OD.Range("A1").Select 'sélectionne la celllue A1 de l'onget OD (pour désélectionner la dernière image)
End Sub

[Zebulon777]

Bonjour et merci de ta réponse.
J'ai essayé tout une partie de la mâtinée, je pensais que tu avais trouvé la solution, mais ça vient de recommencer.
Je ne comprends vraiment pas d'où ça peut venir.

[Thautheme]

Re,

Moi non plus...

[Patrice740]

Bonjour,

Avec VBA, il faut éviter les .Select, Selection, Activate, ....

Essaies ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Sub Test()
Dim wshDst As Worksheet
Dim shpSrc As Shape
Dim shpDst As Shape
 
  Set shpSrc = ThisWorkbook.Worksheets("COMMENTAIRES").Shapes("Image_DGAC")
  Set wshDst = ThisWorkbook.Worksheets("FeuilleCible")
  shpSrc.Copy
  wshDst.Paste
  Set shpDst = wshDst.Shapes("Image_DGAC")
  shpDst.Left = 1
  shpDst.Top = 1
  Set shpSrc = ThisWorkbook.Worksheets("COMMENTAIRES").Shapes("Image_SNARP")
  shpSrc.Copy
  wshDst.Paste
  Set shpDst = wshDst.Shapes("Image_SNARP")
  shpDst.Left = 640
  shpDst.Top = 1
 
End Sub

[Doatyn]

Quand on passe par le presse papiers, le processus échappe à Excel.
Et Excel n'attends pas que ce soit fini : résultat le copy n'est pas forcément fini quand on demande le paste. D'où plantage aléatoire.

Plus simplement, ceci peut peut-être marcher :
wshDst.shapes.addshape (paramètres)
set wshDst.shapes(sans doute la dernière de la collection) = shpSrc

[Zebulon777]

Merci.

Pour le moment, nous avons décidé de désactiver les copier / coller des images car il y avait trop de plantages aléatoires.
Ca fonctionnait 20, 30, 50 fois, puis ça se mettait à planter plusieurs fois.
Bref...

Je tâcherai de refaire des tests avec cette dernière solution et reviendrai mettre le résultat.
Mais toutes les solutions testées à ce jours n'ont pas fonctionné à terme.