Automatiser en fonction des cellules

Version imprimable

Bonjour,

Voici le code :
Code:

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.

28/10/2015, 10h44
Kimy_Ire

Bonjour Charlesll,

Citation:

Envoyé par Charlesll

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

Kamoulox ? :weird:

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

Cordialement,
Kimy
28/10/2015, 11h02
Charlesll

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

Bonjour,

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

Code:

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

28/10/2015, 12h01
Charlesll

Ca ne fonctionne pas..
28/10/2015, 13h33
Kimy_Ire

Citation:

Envoyé par Charlesll

Ca ne fonctionne pas..

Alors, avec ça, c'est sur qu'on va pouvoir t'aider...
28/10/2015, 13h39
Charlesll

J'ai reussi au final :)

Oui desole pour ma derniere reponse j'etais en train de travailler dessus