erreur non comprise

[jtf]

bonjour,

donc voila une erreur survient lors de l'ouverture du fichier

sachant que le code de base fonctionnait losqu'il n'y avait qu'une seule feuille

Private Sub Workbook_Open()
Dim c As Range
For Each c In Feuil2.Range("b2:b" & Feuil2.Range("b65536").End(xlUp).Row)
      If Date = c.Value Then c.EntireRow.Select: Exit Sub
     
      Next
End Sub

j'ai ajouté des feuilles et modifié le code comme suit :

Private Sub Workbook_Open()
Dim c As Range
For Each c In Feuil[COLOR="red"]1[/COLOR].Range("b2:b" & Feuil[COLOR="Red"]1[/COLOR].Range("b65536").End(xlUp).Row)
      If Date = c.Value Then c.EntireRow.Select: Exit Sub
     
      Next
End Sub

et l'erreur survient:
"nom ambigu" et me sur ligne "Workbook_Open"


en vous remerciant

je joint un exemple :

 

[PascalXLD]

Re : erreur non comprise

RE

Si j'applique ma macro de toute à l'heure quand je selectionnes une feuille je tombe sur la date du jour

 

[jtf]

Re : erreur non comprise

AH bah oui encore mieux alors
merci beaucoup
je vais mètre celui la
jtf