ouvrir un classeur a la date du jour

[oinegain]

Bonjour,
J'ai réussi à mettre en surbrillance la date dans mon calendrier, mais
jaimerai aussi mon classeur affiche cette date à l'ouverture.
Est ce que quelqu'un aurait une astuce?
Merci pour votre aide

 

[job75]

Bonjour oinegain,

Private Sub Workbook_Open()
On Error Resume Next
With Feuil1 'CodeName
    Application.Goto .Cells(2, Application.Match(CDbl(Date), .Rows(3))).Resize(2)
End With
End Sub

 

[Lolote83]

Bonjour à tous, Job75,
Je rajouterais juste la ligne en rouge à l’excellent code de Job75 pour ramener la cellule à gauche

ActiveWindow.ScrollColumn = ActiveCell.Column

Private Sub Workbook_Open()
On Error Resume Next
With Feuil1 'CodeName
    Application.Goto .Cells(2, Application.Match(CDbl(Date), .Rows(3))).Resize(2).Select
    ActiveWindow.ScrollColumn = ActiveCell.Column
End With
End Sub

 

[job75]

Re,

J'ai corrigé mon post #2, il y avait un Select qui n'avait rien à faire là...

Si l'on veut cadrer la sélection on peut utiliser l'argument True sur Application.Goto :

Private Sub Workbook_Open()
On Error Resume Next
With Feuil1 'CodeName
    Application.Goto .Cells(2, Application.Match(CDbl(Date), .Rows(3))).Resize(2), True
End With
End Sub

Fichier (2).

A+

 

[oinegain]

Merci à tous pour votre implication et vos réponses,
ca fonctionne à merveille🙂🙂

 

[oinegain]

J'ai encore une demande, comment faire une macro qui afficherait automatiquement la date du jour?
Exemple: si je suis en train de consulter le mois de juillet par et que je souhaite afficher à nouveau la date du jour plutôt que de scroller dans le tableau...
Merci.

 

[job75]

Vous avez déjà la solution, il suffit d'exécuter ce code où et quand vous voulez :

On Error Resume Next
With Feuil1 'CodeName
    Application.Goto .Cells(2, Application.Match(CDbl(Date), .Rows(3))).Resize(2), True
End With

 

[oinegain]

Merci Job75, c'est parfaitement ce que je voulais.
Par contre je ne savais pas que je pouvais utiliser ce même code mais cette fois dans un module pour ma macro.
On en apprend tous les jours 🙂