Erreur 424 Objet requis

[Aladin]

Bonjour le forum
J' ai une macro qui doit faire une copie d' image en focntion de la valeur des dates, mais je bute sur l' érreur 424 objet requis, et j' ai cette ligne en erreur
ActiveSheeet.Shapes("EnCours").Select

voici la macro

Private Sub Workbook_Open()
Range("D7").EntireRow.Select

Do Until IsEmpty(ActiveCell.Value)
nb = ActiveCell.Row

If Range("D" & nb).Value > Range("B1").Value Then
ActiveSheeet.Shapes("EnCours").Select

Selection.Copy
Range("E" & nb).Select
ActiveSheet.Paste
Selection.Locked = False
Else
ActiveSheet.Shapes(" Retard").Select
Selection.Copy
Range("E" & nb).Select
ActiveSheet.Paste
Selection.Locked = False
End If
ActiveCell.Offset(1, 0).EntireRow.Select
Loop
End Sub

Merci d' avance pour toute aide

Aladin

 

[RENAUDER]

Re : Erreur 424 Objet requis

Bonjour,

Es tu sur que la Shape Encours existe ?
Essaies ceci pour le vérifier

Sub test()
Set myDocument = Worksheets(1)
For Each Sh In myDocument.Shapes
    If Sh.Type = msoAutoShape Then
      MsgBox Sh.Name
    End If
Next
End Sub

 

[Aladin]

Re : Erreur 424 Objet requis

Bonjour le forum et RENAUDER
Merci pour ta réponse rapide, j' ai fait un tes avec ta macro mais je n' ai pas de resultat, mes images sont en céllule A3 et A4
Aladin

 

[RENAUDER]

Re : Erreur 424 Objet requis

Bonjour,
Alors ce ne sont pas des Shapes si tu n'as pas de message de la Msgbox

 

[Excel_lent]

Re : Erreur 424 Objet requis

Salut Aladin, Eric,
bonjour à tous et aux autres.


Si tu as effectivement :

ActiveSheeet.Shapes("EnCours").Select

c'est normal, Excel ne fonctionne ni au sheeet ni au shit d'ailleurs !

Ajout : ne serait-ce pas plutôt ActiveSheet.Pictures ?

 

[Aladin]

Re : Erreur 424 Objet requis

bonsoir le forum, RENAUDER et Excel_lent
Merci a tous deux d'avoir répondu et me permettre de résoudre le pb, c' est bien ActiveSheet.Pictures qu' il fallait metrre, la maro fonctionne tres bien, correction du ActiveSheeet aussi pb de frappe
Aladin