Discussion :

[Golork]

Bonsoir à tous,

Voilà j'effectue dans mon programme un copier/coller de la même image dans une feuille Excel.
Tout se passe très bien jusqu'à l'image 14 qui se trouve être la dernière image avec le jeu de donnée dont je dispose.
14 n'est pas une valeur fixe mais dynamique !

Le message d'erreur que j'ai au moment de l'erreur :

Erreur d'exécution 1004 :
La méthode Paste de la classe Worksheet a échoué.

Je lance le débuggage et appuie sur la touche "F5" :

Erreur d'exécution 1004 :
Microsoft Excel ne peut pas coller les données.

petit bout de code qui est exécuté n fois (pour moi 14) :

Code :

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

1
2
Worksheets(2).Shapes(1).Copy
Worksheets(1).Range("A1").Parent.Paste

L'erreur se focalise sur la 2ème ligne.

nota : Un décalage se fait après le Paste pour ne pas avoir les images l'une sur l'autre mais cela n'est pas là mon problème.

Edit : petite correction, il ne s'agit pas seulement de la dernière image mais change de manière aléatoire.

[mercatog]

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
'Copie les images de la feuille synthese vers Feuil3
Sub CopieImages()
Dim Shp As Shape, k As Long
 
Application.ScreenUpdating = False
k = 1
For Each Shp In Sheets("synthese").Shapes
      If Shp.Type = msoPicture Then
            Shp.Copy
            With Sheets("Feuil3")
                  .Range("A" & k).PasteSpecial
                  k = .Shapes(.Shapes.Count).BottomRightCell.Row
            End With
      End If
Next Shp
End Sub

[Golork]

Bon j'ai rajouté la ligne

Code :

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

Application.ScreenUpdating = False

Au début de mon code et cela semble plus stable.

Mais c'est vraiment bizarre que cela plante de manière aléatoire sans faire la moindre modification !