1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
| Sub récupération_trucs()
Dim j As Date
Dim LastDate As Date
'Récupération de la dernière date des Trucs (trier par date)
Worksheets("Truc").Activate
NbLigneTrucavant = Range(Cells(4, 2), Cells(4, 2).End(xlDown)).Rows.Count
LastDate = Cells(NbLigneTrucavant + 3, 6)
'Pour chacune de ces dates (jusqu'à aujourd'hui):
For j = LastDate + 1 To Date
'conversion j en bon format
année = Mid(j, 9, 2)
mois = Mid(j, 4, 2)
jour = Mid(j, 1, 2)
Dates = Format(DateSerial(année, mois, jour), "ddmmyy")
'Sur les jours qui comportent des Trucs :
If Dir("\\chemin\ExportTRUC1" & Dates & ".xls") <> "" Then
'POur TRUC1
' ouverture du Trucs et récupération du nombre de ligne
Workbooks.Open Filename("\\chemin \ExportTRUC1" & Format(Dates, "000000") & ".xls"
nbLigneTrucquotidienTRUC1 = Range(Cells(2, 2), Cells(2, 2).End(xlDown)).Rows.Count
' recopiage
With Workbooks("ExportTRUC1" & Format(Dates, "000000") & ".xls").Sheets(1)
Range(Cells(2, 1), Cells(nbLigneTrucquotidienTRUC1 + 1, 25)).Copy _
Workbooks("facture1.xlsm").Worksheets("Truc").Cells(NbLigneTrucavant + 4, 1)
End With
'POur TRUC2
' ouverture du Trucs et récupération du nombre de ligne
Workbooks.Open Filename:= ("\\chemin \ExportTRUC2" & Format(Dates, "000000") & ".xls"
nbLigneTrucquotidienTRUC2 = Range(Cells(2, 2), Cells(2, 2).End(xlDown)).Rows.Count
'recopiage
With Workbooks("ExportTRUC2" & Format(Dates, "000000") & ".xls").Sheets(1)
Range(Cells(2, 1), Cells(nbLigneTrucquotidienTRUC2 + 1, 25)).Copy _
Workbooks("facture1.xlsm").Worksheets("Truc").Cells(NbLigneTrucavant + 4 + nbLigneTrucquotidienTRUC1, 1)
End With
're-récupération du nombre de lignes du Truc congloméré
Workbooks("facture1.xlsm").Worksheets("Truc").Activate
NbLigneTrucavant = Range(Cells(4, 2), Cells(4, 2).End(xlDown)).Rows.Count
' fermeture des Trucs quotidiens
Workbooks("ExportTRUC1" & Dates & ".xls").Close False
Workbooks("ExportTRUC2" & Dates & ".xls").Close False
End If
Next j
End Sub |
Partager