Bonjour,

Le code suivant provoque une erreur 1004, "erreur définie par l'application ou par l'objet".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For Each sh In ActiveSheet.Shapes(1).GroupItems
    If sh.TextFrame2.TextRange.Text <> "" Then
        sh.OnAction = "test"
        sh.Select
    End If
Next sh
Le fait d'ajouter le nom du classeur ne change rien.

Pouvez-vous m'expliquer ?

Merci d'avance.