XL 2013 Modification macro

Moreno076

XLDnaute Impliqué
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
 

Pièces jointes

  • .Effectif Log 2020.xlsm
    190 KB · Affichages: 18

Discussions similaires

Réponses
77
Affichages
5 K

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG