Ouverture et marquage sur la date du jour

Bonjour,

Voila mon nouveau problème, je cherche à ce que lorsque j'ouvre mon fichier l'on arrive directement sur la semaine en cour et quel soit toute sélectionner.

Voici le fichier ou j'ai bien sur sélectionner cette semaine en manuel pour l'exemple :

Merci d'avance

Bonjour

Avec le mot de passe cela serait plus aisé de trouver une solution

dsl autant pour moi j'avais même pas vu que j'avais mis un MDP c'est " tryomph " c tout lol

Bonjour

A tester

Merci sa marche très bien

Bon si il était possible que sa soit centrer sur l'écran ou du moins quelque semaine au tour de celle sélectionner et non en haut a gauche ! maintenant c'est pas bien grave

Merci

Bonjour

Comme j'avais planché avant qu'un orage ne m'interrompe, j'envois ma contribution

Cordialement

Bonjour

Modifies la macro comme suit

Private Sub Workbook_Open()
Dim Sem As Integer
Dim Ligne As Long
Dim Colonne As Integer

  Sem = DatePart("ww", Date, vbMonday, vbFirstFourDays)
  Ligne = 1 + (((Sem - 1) \ 4) * 18)
  Colonne = 2 + (((Sem - 1) Mod 4) * 13)
  Application.Goto Sheets("2012").Cells(Ligne, Colonne), scroll:=True
ActiveWindow.ScrollColumn = Application.Max(Colonne - 10, 1)
  ActiveWindow.ScrollRow = Application.Max(Ligne - 10, 1)
  Cells(Ligne, Colonne).Resize(17, 8).Select
End Sub

Mille merci a vous 2