XL 2013 Modification macro

[Moreno076]

Bonjour à tous.

Je souhaiterais que lorsqu'on clique sur imprimer ce soit le jour en cours qui apparaisse. C'était le cas mais j'ai supprimé les apres midi et j'ai essayé de modifié la macro mais je n'y arrive.

Merci de m'aider.

Sub Imprimer()
Dim d As Integer, startRow As Long, rngPrint As Range
d = Weekday(VBA.Date)
If d > 1 Then
With ActiveSheet
.PageSetup.PrintTitleRows = "$1:$7"
startRow = VBA.Switch(d = 2, 1, d = 3, 19, d = 4, 30, d = 5, 41, d = 6, 52, d = 7, 63)
If d < 7 Then
Set rngPrint = .Cells(startRow, 2).Resize(19, 30)
Else
Set rngPrint = .Cells(startRow, 2).Resize(9, 30)
End If
End With
rngPrint.PrintOut preview:=True
End If
End Sub


D'autre part est-il possible d'ouvrir le fichier sur l'onglet correspondant à la semaine en cours. Cette semaine onglet 19?


Merci beaucoup

 

[sylvanu]

Bonsoir Moreno,
Comme je ne sais pas ce que doit donner l'impression, j'ai fait au mieux. A tester.
Pourquoi le Vendredi est masqué ? Je ne l'ai pas traité.