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.