Positionner à la date du jour

[reve24]

Bonjour
Comment à l ouverture du fichier positionner à la date du jour
Sachant que les cellules sont volatiles à partir de la barre de défilement

Ce code ne fonctionne pas
Private Sub Workbook_Open()
With Sheets("planning")
.Cells(3, CDbl(Format(Date, "dd")) + 6).Select
End With
End Sub

mystère je bute !

 

[david84]

Re : Positionner à la date du jour

Bonjour,
peut-être comme cela :

Private Sub Workbook_Open()
Sheets("planning").[G1] = Date - DateSerial(2011, 12, 1)
End Sub

A+

 

[reve24]

Re : Positionner à la date du jour

OK merci ne reste plus qu à la positionner au centre .
Thank s

 

[gfortin9]

Re : Positionner à la date du jour

Allô!

Comme ceci peut-être :

Private Sub Workbook_Open()
 Sheets("planning").[G1] = (Date - DateSerial(2011, 12, 1)) -20 
 End Sub

20 étant le moitié des jours affichés


gf

 

[gfortin9]

Re : Positionner à la date du jour

Allô!

Une variante qui rend dynamique le changement de date dans la cellule B1 de la feuille "planning"

Private Sub Workbook_Open()
Dim LaDate As String
   LaDate = Sheets("planning").[B1]
   Sheets("planning").[G1] = (Date - DateSerial(Year(LaDate), Month(LaDate), Day(LaDate))) - 20
End Sub

gf

 

[reve24]

Re : Positionner à la date du jour

Private Sub Workbook_Open()
Sheets("planning").[G1] = Date - DateSerial(2011, 12, 12)
End Sub

J' avais réussi en faisant cela tout simplement . ET CELA FONCTIONNAIT
y avait il un piège je ne sais pas .

 

[gfortin9]

Re : Positionner à la date du jour

Allô!

Non, il n'y a pas de piège.
Mais si tu changeais la date de la cellule B1 (genre 01/12/2012, pour l'année prochaine), sur laquelle sont basées les dates de la plage J3:AY3, tu devrais aussi modifier la macro.

Avec la variante du post #5, en changeant la date de la cellule B1, la macro reste opérationnelle puisque DateSerial est basé aussi sur la cellule B1.

Une suggestion tout au plus. ;- )

gf