Bonsoir,
dans "ThisWorkBook" sous VBA coller ceci :
Private Sub Workbook_Open()
Dim nbJ As Integer
nbJ = Now - CDate("01/01/" & Year(Now))
ActiveWindow.ScrollColumn = (nbJ * 2) + 4
End Sub
Now = aujourd'hui
CDate("01/01/" & Year(Now)) = le premier janvier de l'année en cours
la soustraction = le nombre de jour depuis le premier janvier
x2 parce que vous avez deux colonne par jour
+4 car il y a 4 colonnes en entête de ligne à gauche
ActiveWindow.ScrollColumn permet de "scroller" la fenêtre du nombre de colonne voulu
l'idéal serait de mettre le code dans une sub classique qui serait appelée lors de l'ouverture du classeur, ou bien par un bouton, comme cela si vous faites du scroll manuel lors de l'utilisation, il vous suffirez de cliquer sur un bouton "aujourd'hui" pour revenir à la date du jour...
@ bientôt
LouReeD