Bonjour
j'ai la séquence suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
             For Each shap In catalogue.Shapes
                If shap.TopLeftCell.Address = "$D$" & i1 Then
                    catalogue.Shapes(shap.Name).Height = haut ' dimensionne la photo
                    catalogue.Shapes(shap.Name).Copy
                    pdfS.Range("B" & Delta1 + 2).Select
                    pdfS.Paste
                    Exit For
                Else
                End If
            Next
Si je lance plusieurs fois de suite la macro qui contient cette séquence, j'ai un résultat aléatoire :

Soit ça marche bien, soit ça plante à des endroit différents avec le message
Erreur d'exécution 1004
La méthode "Paste" de l'objet _Worksheet a échoué
J'ai fait de multiples tests sans explications (à mon niveau)

en fait je voulais redimensionner la photo :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 catalogue.Shapes(shap.Name).Height = haut
après la copie, mais je n'y parviens pas. Je ne pense pas que le plantage vienne de là de toutes façons

Avez-vous une idée de ce qui peux donner ce plantage aléatoire (et aussi le bon fonctionnement aléatoire !) dans cette séquence

Nouveaux tests :
1er clic : plantage ligne 53
2eme clic : plantage line 149
3eme clic : ok

Il y a 168 lignes à traiter

Une autre façon de faire peut être ?
merci