Automatiser en fonction des cellules

**Charlesll** · 27/10/2015, 19h00

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.

**Kimy_Ire** · 28/10/2015, 10h44

Bonjour Charlesll,

Envoyé par Charlesll

Histoire que lq mise q jour mois sur mois, soit plus simple et plus besoin de toucher au code.

Kamoulox ?

Personnellement, je n'ai rien compris à ton post !

Cordialement,
Kimy

**Charlesll** · 28/10/2015, 11h02

Desole c'est a cause du clavier anglais.

En gros je tout les jours je vais chercher une information dans ce dossier. Mais un nouveau est cree tout les jours et enregistre dasn un dossier comme ceci "='O:\EOD\2015\Barking\October\[Z_BARKING_EOD_2015_10_" & Format(Date - 1, "dd") & ".xlsm]Summary'!R14C3".

Avec le code que j'ai actuellement, il va chercher le dossier de la veille en fonction de la date d'aujourd'hui. J'aimerai le changer et creer une cellule ou je mettrais la date et ensuite ca ira chercher le bon dossier.
Et de meme pour le mois en chiffre " 10" actuellement dans mon code et aussi pour le mois en lettre "\October\".
Que les cellules change comme ca plus besoin de le faire manuellement tout les mois.
Tu vois ce que je veux dire ? Modifier comme je veux l'endroit de recherche de l'informations grace a ces trois cellules liees

Cordialement

**Theze** · 28/10/2015, 11h28

Bonjour,

Teste pour voir si c'est le résultat escompté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Test()
 
    Dim Mois As String
    Dim LaDate As Date
 
    With Worksheets("Feuil1")
 
        'le numéro du mois se trouve en A1, adapter...
        Mois = WorksheetFunction.Proper(MonthName(.Range("A1")))
        'la date se trouve en A2, adapter...
        LaDate = .Range("A2")
 
    End With
 
    MsgBox "='O:\EOD\2015\Barking\" & Mois & "\[Z_BARKING_EOD_2015_10_" & Format(LaDate, "dd") & ".xlsm]Summary'!R14C3"
 
End Sub