Discussion :

[retraite83]

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

[EricDgn]

Bonjour,

Essayer ceci:

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
                    shap.Height = haut ' dimensionne la photo
                    shap.Copy
                    pdfS.Select
                    pdfS.Range("B" & Delta1 + 2).Select
                    pdfS.Paste
                    Exit For
                End If
            Next

Cordialement.

[retraite83]

Bonjour

j'ai le même résultat ou ça marche ou pb de plantage aléatoire, cette fois sur

Code :

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

shap.Copy

avec le code proposé

[EricDgn]

Bonjour,

Eventuellement ceci:

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
Sub LaSub()
    '...
            For Each shap In catalogue.Shapes
                If shap.TopLeftCell.Address = "$D$" & i1 Then
                     On Error GoTo Panne
Copier:
                    shap.Copy
                    On Error GoTo 0
                    Application.Goto pdfS.Range("B" & Delta1 + 2)
                    ActiveSheet.Paste
                    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Height = haut '--- modifie hauteur de ce qui vient d'être copié
                    Exit For
                End If
            Next
    '...
    Exit Sub
Panne:
    If MsgBox("Réessayer?", vbYesNo, "Oui/Non?") = vbYes Then
        Resume Copier
    End If
End Sub

Cordialement.

[retraite83]

Je viens d'essayer

à un moment donné j'ai bien le message réessayer

je réponds oui puis même plantage

Je ne saisi pas le côté aléatoire du pb

[EricDgn]

Oui, bizarre. Essayer récupérer le n° de l'erreur pour en savoir plus:

Code :

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

1
2
3
    If MsgBox("Erreur " & Err.Number & vbLf & _
               Err.Description & vbLf & _
               "Réessayer?", vbYesNo, "Oui/Non?") = vbYes Then

Cordialement.