Bonjour,

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim DerL As Integer, MyJour
With ThisWorkbook.Sheets("Cash Balance")
    DerL = .Cells(Cells.Rows.Count, "B").End(xlUp).Row
    MyJour = .Cells(DerL, "B").FormulaR1C1: MyJour = Split(MyJour, "[")(1): MyJour = Split(MyJour, "]")(0): MyJour = Split(MyJour, ".")(0)
    If Right(MyJour, 2) <> Format(Date - 1, "dd") Then
        DerL = DerL + 1
        .Cells(DerL, "B").FormulaR1C1 = "='O:\EOD\2015\Barking\October\[Z_BARKING_EOD_2015_10_" & Format(Date - 1, "dd") & ".xlsm]Summary'!R14C3"
    End If
 End With
End Sub
Je voudrais changer mon code. Au lieu de prendre le jour precedent, je voudrai qu'il prenne la valeur du jour que je mets dans une cellule de mon excel ?
Faire de meme pour le mois en chiffre et en lettre ?
Histoire que lq mise q jour mois sur mois, soit plus simple et plus besoin de toucher au code.

Merci d'avance.