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
|
Dim wbGlobalVolume As Workbook, wbClasseurBDD As Workbook
Dim wsBDD As Worksheet, wsVolumeDoc As Worksheet, wsHistoStatutDoc As Worksheet, wsNew As Worksheet
Dim rgePlage As Range, rgeEventDate As Range, rgeDernEventDate As Range, rgeDest As Range, rgeCopie As Range, _
rgePlageNew As Range
Dim bytDerCol As Byte
Dim strFichierBDD As String, strMiroir As String
Dim dteEventDate As Date, dteDernEventDate As Date
Dim lngDerLigne As Long, i As Long, j As Long
Dim TabBDD() As Variant, TabEOV() As Variant
Set wbGlobalVolume = ThisWorkbook
Set wsVolumeDoc = wbGlobalVolume.Sheets("VolumeDoc")
Set wbClasseurBDD = Workbooks.Open(CHEMIN + strFichierBDD)
Set wsBDD = wbClasseurBDD.Sheets(1)
Set wsNew = wbGlobalVolume.Sheets.Add
wsNew.Name = "NouvellesOpés"
...
'copie les nouvelles opés dans un tableau
Set rgePlageNew = wsNew.UsedRange
ReDim TabEOV(1 To rgePlageNew.Rows.Count, 1 To rgePlageNew.Columns.Count)
TabEOV = rgePlageNew.Value
'colle les nouvelles opés dans VolumeDoc
Set rgePlage = wsVolumeDoc.UsedRange
lngDerLigne = rgePlage.Rows.Count
bytDerCol = rgePlage.Columns.Count
'copie les formats de la dernière ligne sur la plage ajoutée qui correspond aux nouvelles opérations
Set rgeCopie = wsVolumeDoc.Range(Cells(lngDerLigne, 1), Cells(lngDerLigne, bytDerCol))
rgeCopie.Copy
... |
Partager