Ouvrir fichier sur feuille du mois et colonne du jour

Bonjour,

pour ouvrir mon fichier de pointage sur la page du mois et la date du jour j'utilise :

Private Sub Workbook_Open()

Sheets(MonthName(Month(Date))).Select

ActiveSheet.Cells(3, (1 + Day(Date))).Select

End Sub

Je fais 1+ car mon premier jour du mois commence a chaque fois à la colonne B

Comment puis je faire pour activer toute la colonne et non la cellule. J'ai déjà essayé de remplacer Cells par Columns mais j'ai une erreur !

Bonjour

Sheets(MonthName(Month(Date))).Activate
ActiveSheet.Cells(3, (1 + Day(Date))).EntireColumn.Select

Cordialement

Salut Amadeus,

Merci mais cela ne fonctionne pas car ma première ligne est une cellule fusionnée qui reprend les 31 jours du mois et donc quand j'ouvre le fichier, ce sont mes 31 colonnes qui sont sélectionnées.

Bonjour

Ce n'était pas précisé.

Sheets(MonthName(Month(Date))).Activate
ActiveSheet.Cells(3, (1 + Day(Date))).Select
Derlign = ActiveSheet.Cells(65536, (1 + Day(Date))).End(xlUp).Row
Range(ActiveCell, ActiveCell.Offset(Derlign - 3, 0)).Select

Cordialement

Trop cool

merci

Comment on peut traduire

ActiveSheet.Cells(65536, (1 + Day(Date))).End(xlUp).Row

?

Bonjour

La dernière ligne remplie dans la colonne 1+Day(Date), entre la ligne 3 et la ligne 65536 en partant du bas (de la ligne 65536)

tu peux bien sur remplacer ce 65536 par 100, si tu es sur de ne jamais dépasser cette ligne 100.

Cordialement

Bonjour,

Une alternative.

Ligne de recherche à adapter (code surligné).

Private Sub Workbook_Open()
Dim lRow As Long, lastRow As Long
    lRow =3
    Application.Goto Worksheets(MonthName(Month(Date))).Cells(lRow, Day(Date) + 1), True
    With ActiveSheet
        lastRow = .UsedRange.Rows.Count
        ActiveCell.Offset(1, 0).Resize(lastRow - lRow, 1).Select
    End With
End Sub

ok

merci pour les infos