bonsoir, j'aimerai compléter mon code pour pouvoir imprimer la meme feuille avec la date qui change dans une cellule.
voici mon code :
Private Sub CommandButton1_Click()
Dim demandededatedebut As Date
demandededatedebut = InputBox("Entrer la date de début à imprimer jj/mm/aa", , Format(Now(), "dd/mm/yy", vbOK))
Worksheets("feuil1").Select
Range("b2") = demandededatedebut
Dim demandedatefin As Date
demandededatefin = InputBox("Entrer la date de fin à imprimer jj/mm/aa", , Format(Now(), "dd/mm/yy", vbOK))
Range("x2") = demandedatefin
Unload UserForm1
ActiveSheet.PrintOut
End Sub
j'aimerai imprimer la meme feuille avec la cellule b2 qui change en prenant la valeur de toutes les dates qui sont entre la date de debut et la date de fin
merci
voici mon code :
Private Sub CommandButton1_Click()
Dim demandededatedebut As Date
demandededatedebut = InputBox("Entrer la date de début à imprimer jj/mm/aa", , Format(Now(), "dd/mm/yy", vbOK))
Worksheets("feuil1").Select
Range("b2") = demandededatedebut
Dim demandedatefin As Date
demandededatefin = InputBox("Entrer la date de fin à imprimer jj/mm/aa", , Format(Now(), "dd/mm/yy", vbOK))
Range("x2") = demandedatefin
Unload UserForm1
ActiveSheet.PrintOut
End Sub
j'aimerai imprimer la meme feuille avec la cellule b2 qui change en prenant la valeur de toutes les dates qui sont entre la date de debut et la date de fin
merci