Microsoft 365 ouvrir fichier sur la date du jour

papoumarc

XLDnaute Junior
Bonsoir,
Je cherche comment faire pour que lorsque le fichier s'ouvre, dans l'onglet planning et qu'il se positionne sur la date du jour et que les 12 jours précédents soient visibles.
donc par exemple si nous sommes le 07-10-21, après la colonne B , la date qui apparaît est le 21-09-21(colonne CH).

Merci pour votre aide
 

Pièces jointes

  • essai.xlsx
    56.4 KB · Affichages: 12

Dranreb

XLDnaute Barbatruc
Bonsoir.
Essayez ceci dans le module ThisWorkbook :
VB:
Private Sub Workbook_Open()
   Dim C As Long
   C = WorksheetFunction.Match(Feuil1.[B1], Feuil1.[C2:BAA2], 1) + 2
   Application.Goto Feuil1.Cells(2, C)
   ActiveWindow.ScrollColumn = IIf(C > 16, C - 13, 3)
   End Sub
N'oubliez pas de l'enregistrer en tant que Classeur prenant en charge les macros, *.xlsm
 

job75

XLDnaute Barbatruc
Bonsoir papoumarc,

La macro dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
With Feuil1 'CodeName
    .Visible = xlSheetVisible 'au cas où...
    Application.Goto .Cells(2, Application.Match(CLng(Date), .Rows(2))), True 'cadrage
End With
ActiveWindow.SmallScroll ToRight:=-12 'décale
End Sub
Edit : bonsoir Bernard, comme d'habitude XLD n'était pas rafraîchi !

A+
 

Pièces jointes

  • essai(1).xlsm
    62.3 KB · Affichages: 8
Dernière édition:

sder

XLDnaute Nouveau
Bonjour,

Pourriez vous partager un fichier qui s ouvre sur la date du jour ?

Ce sujet est pas facile pour les débutants comme moi.

Avec un fichier "modèle" qui marche...cela permettra aussi de comprendre comme l'adapter à notre problématique.

Je mets en PJ un lien google sheet (de mon fichier) et aussi en PJ.



Merci de votre aide

Stephane
 

Pièces jointes

  • Essai d'agenda qui doit s'ouvrir sur la date du jour Merci de votre aide.xlsx
    696 KB · Affichages: 1

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @sder :),

Le fichier en retour avec une macro dans le module de ThisWorkbook :
VB:
Private Sub Workbook_Open()
Dim n&
   With Sheets("Jour par jour")
      On Error Resume Next
      n = Application.Match(CLng(Date), .Columns(1), 0)
      If n > 0 Then Application.Goto .Range("a1").Offset(n - 1), True
   End With
End Sub
 

Pièces jointes

  • sder-s'ouvrir à date courante.xlsm
    732 KB · Affichages: 3

Discussions similaires

Réponses
2
Affichages
224