Discussion :

[Uranne-jimmy]

Bonjour !
(extrait de code)

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ws As Worksheet
        Set ws = ActiveWorkbook.Worksheets(i)
        ws.Activate
Dim gra As ChartObject
        For Each gra In ws.ChartObjects
            If Left(gra.Chart.ChartTitle.Caption, 3) = "Cin" Then
                gra.Copy
                Exit For
            End If
        Next

J'ai un soucis qui se déclenche au niveau de la ligne gra.copy.
En fait, c'est l'erreur 1004 : "erreur défini par l'application ou par l'objet". Et quand je clique sur la feuille excel et que je tente de relancer l'exécution (sans avoir stoppé la procédure), ça fonctionne et le programme poursuit son chemin. Et si je relance après, seule les feuilles sur lesquelles j'ai cliqué manuellement fonctionne sans soulever d'erreur. Je sais pas si je suis très clair.
Dans tout les cas, je ne comprends pas le pourquoi du comment de ce mécanisme et j'aurais besoin de vos lumières.

[NVCfrm]

Salut.
Peut être faudra t-il selectionner l'objet par le code avant la ligne de copie.

[Uranne-jimmy]

Et bien merci parce que ça fonctionne. Mais je reste interrogatif. La macro que j'utilise est en test, elle fonctionnait très bien sur beaucoup de documents, et je n'avais jamais préciser la sélection de l'objet. Et je ne comprends pas non plus pourquoi cette sélection est nécessaire.
Si vous avez une réponse, je suis preneur, dans tout les cas mon problème est résolu.