Option Explicit
Dim BDD, wk2 As Workbook 'Déclaration des classeur
Dim rep, classeurpath As String
Dim i As Integer
Dim derniere_ligne As Long
'Callback for btLance01 onAction
Sub transfert(control As IRibbonControl) 'Ce module permet de faire le transfert entre BDD
rep = Environ("USERPROFILE") & "\"
classeurpath = rep & "\Documents\EIPinspection\Rapport\BDD_FICHES.xlsm"
Set BDD = ThisWorkbook
i = 2
'ouverture du classeur
Set wk2 = Workbooks.Open(classeurpath)
wk2.Sheets("BDD-export").Activate
derniere_ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
i = derniere_ligne + 1
With BDD.Sheets("BDD-simplifiee")
For i = 2 To derniere_ligne
wk2.Sheets("BDD-export").Cells(i, 1).Value = BDD.Worksheets("BDD-simplifiee").Range("BU" & i).Value 'Photo globale
i = i + 1
Next i
End With
End Sub