ouvrir un classeur a la date du jour

job75

XLDnaute Barbatruc

• 7 Mars 2019

• #2

Bonjour oinegain,

VB:

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

 

Pièces jointes

• Classeur(1).xlsm

  32.8 KB · Affichages: 31

Dernière édition: 7 Mars 2019

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Mars 2019

• #3

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

ActiveWindow.ScrollColumn = ActiveCell.Column

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Mars 2019

• #4

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 :

Code:

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+

 

Pièces jointes

• Classeur(2).xlsm

  33.1 KB · Affichages: 51

Vote positif 0 Vote négatif

oinegain

XLDnaute Junior

• 8 Mars 2019

• #5

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

 

Vote positif 0 Vote négatif

oinegain

XLDnaute Junior

• 13 Mars 2019

• #6

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Mars 2019

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

oinegain

XLDnaute Junior

• 14 Mars 2019

• #8

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 🙂

 

Vote positif 0 Vote négatif