1 2 3 4 5 6
| Range("A1:E1").Select
ActiveCell.FormulaR1C1 = _
"=""Quantitées cumulées pour le service "" & RIGHT(LEFT(CELL(""filename""),LEN(CELL(""filename""))-50),(LEN(LEFT(CELL(""filename""),LEN(CELL(""filename""))-50)))-(FIND(""_"",LEFT(CELL(""filename""),LEN(CELL(""filename""))-50)))-5) & "" du "" & TEXT(DATE(LEFT(LEFT(RIGHT(CELL(""filename""),49),8),4),MID(LEFT(RIGHT(CELL(""filename""),49),8),5,2),RIGHT(LEFT(RIGHT(CELL(""" & _
"""),49),8),2)),""JJ/MM/AA"") & "" à "" & TEXT(LEFT(RIGHT(CELL(""filename""),41),4),""00\:00"") &"" au "" & TEXT(DATE(LEFT(LEFT(RIGHT(CELL(""filename""),36),8),4),MID(LEFT(RIGHT(CELL(""filename""),36),8),5,2),RIGHT(LEFT(RIGHT(CELL(""filename""),36),8),2)),""JJ/MM/AA"") & "" à "" & TEXT(LEFT(RIGHT(CELL(""filename""),28),4),""00\:00"") & CHAR(10)&"" (calculé le "" & T" & _
"LEFT(LEFT(RIGHT(CELL(""filename""),23),8),4),MID(LEFT(RIGHT(CELL(""filename""),23),8),5,2),RIGHT(LEFT(RIGHT(CELL(""filename""),23),8),2)),""JJ/MM/AA"") & "" à "" & TEXT(LEFT(RIGHT(CELL(""filename""),15),4),""00\:00"")&"")"""
Range("Tableau1[[#Headers],[Loc.]]").Select |
Partager