Ouverture onglet

bonjour le forum

voila j'ai un code qui doit m'annoncés des date anniversaire à l'ouverture du fichier par mgbox il fonctionne pas le soucis

mais il ouvre l'onglet ou les dates de naissance sont mise

se que je recherche c'est qu'il annonce par mgbox sans ouvrir l'onglets

Worksheets("basededonnéespatient").Select     j'ai déjà retirer cela mais cela fonctionne plus 

Dim Cell As Range

Worksheets("basededonnéespatient").Select

    With Worksheets("basededonnéespatient")

        For Each Cell In .Range("b2:b" & .Range("b2").End(xlDown).Row)
            Cell.Select
            DateAnniversaire = CDate(Day(.Cells(Cell.Row, "i")) & "/" & Month(.Cells(Cell.Row, "i")) & "/" & Year(Date))
            If DateAnniversaire = Date Then
                MsgBox "Anniversaire De : " & Cell & vbLf & DateDiff("yyyy", .Cells(Cell.Row, "i"), Date) & " ans"
            End If
        Next
    End With
End Sub
avec tout ma gratitude 

Bonjour,

Un essai ...

Private Sub Workbook_Open()
Dim Cell As Range
Dim Ws As Worksheet

    Set Ws = Worksheets("basededonnéespatient")
        For Each Cell In Ws.Range("b2:b" & Ws.Range("b2").End(xlDown).Row)
            DateAnniversaire = CDate(Day(Ws.Cells(Cell.Row, "i")) & "/" & Month(Ws.Cells(Cell.Row, "i")) & "/" & Year(Date))
            If DateAnniversaire = Date Then MsgBox "Anniversaire De : " & Cell & vbLf & DateDiff("yyyy", Ws.Cells(Cell.Row, "i"), Date) & " ans"
       Next
End Sub

ric

bonsoir le forum RIC

Encore un fois touché cela fait mouche j'avance dans mon apprentissage

merci infiniment

Bonjour Amis, Ric,

Enlever Cell.Select de ton code

For Each Cell in .Range '  etc... sauf changer "b" par "i"
If format(Cell,"dd") & Format(Cell, "mm") = Format(Now,"ddmm") then _
MsgBox "Anniversaire de : " & Cell.Offset(,-7) & vblf & DateDiff("yyy",Cell,Now) & " ans"
Next

Bons tests, bonne continuation.