Bonjour à toutes et à tous
J'ai un fichier de données, avec des macros évènementielles, qui s'alimente grâce à des formules de rechercheV depuis un autre fichier source, dans un autre répertoire.
Lorsque j'ouvre le fichier source, et que le fichier cible est déjà ouvert, j'obtiens un message d'erreur d’exécution '1004' de Microsoft Visual Basic: "L'élément portant ce nom est introuvable."
Quand je clique sur "débogage", l'élément pointé en jaune est : ActiveSheet.Shapes.Range(Array("Wave 3")).Select
A contrario, si j'ouvre le fichier source en premier: aucun bug !
Pouvez-vous m'éclairer ?
Je vous joins un extrait du code que j'utilise (grâce à vous d'ailleurs).
Cordialement
J'ai un fichier de données, avec des macros évènementielles, qui s'alimente grâce à des formules de rechercheV depuis un autre fichier source, dans un autre répertoire.
Lorsque j'ouvre le fichier source, et que le fichier cible est déjà ouvert, j'obtiens un message d'erreur d’exécution '1004' de Microsoft Visual Basic: "L'élément portant ce nom est introuvable."
Quand je clique sur "débogage", l'élément pointé en jaune est : ActiveSheet.Shapes.Range(Array("Wave 3")).Select
A contrario, si j'ouvre le fichier source en premier: aucun bug !
Pouvez-vous m'éclairer ?
Je vous joins un extrait du code que j'utilise (grâce à vous d'ailleurs).
Code:
Private Sub Worksheet_Calculate()
Dim Coul()
Coul = Array(RGB(0, 102, 0), RGB(255, 192, 0), RGB(255, 0, 0))
ActiveSheet.Shapes.Range(Array("Wave 3")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([H14] - 1)
End With
ActiveSheet.Shapes.Range(Array("Wave 5")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([J14] - 1)
End With
ActiveSheet.Shapes.Range(Array("Wave 7")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([D14] - 1)
End With
ActiveSheet.Shapes.Range(Array("Wave 8")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([F14] - 1)
End With
ActiveSheet.Shapes.Range(Array("Wave 11")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([B14] - 1)
End With
[N17].Font.color = Coul([H14] - 1)
[S17].Font.color = Coul([J14] - 1)
[N31].Font.color = Coul([D14] - 1)
[S31].Font.color = Coul([F14] - 1)
[O43].Font.color = Coul([B14] - 1)
[A3].Select
End Sub
Cordialement