J
jtf
Guest
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
j'ai ajouté des feuilles et modifié le code comme suit :
et l'erreur survient:
"nom ambigu" et me sur ligne "Workbook_Open"
en vous remerciant
je joint un exemple :
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
Code:
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
Code:
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"nom ambigu" et me sur ligne "Workbook_Open"
en vous remerciant
je joint un exemple :