Sub copier() 'déclarations des variables'
Dim wbkc As Workbook, adr$, fin&, x$, wbks As Workbook, fin1&, i&, n$ 'récupération du chemin du classeur en cours'
adr = ThisWorkbook.Path 'récupération de l'année en cours'
Application.ScreenUpdating = 0
Set wbks = ThisWorkbook
x = Year(Date)
Set wbkc = Workbooks.Open(adr & ":Cotations.xlsx") 'mac 'ouvre le fichier Cotations.xlsx'
'Set wbkc = Workbooks.Open(adr & "\Cotations.xlsx")
wbkc.Sheets(x).Select
With wbkc.Sheets(x)
fin = .Cells.Find("*", , xlValues, , 1, 2, 0).Row + 1
End With
With wbks.Sheets("Final")
fin1 = .Cells.Find("*", , xlValues, , 1, 2, 0).Row + 1
End With
For i = fin1 To 2 Step -1
If wbks.Sheets("Final").Cells(i, 2) <> "" Then
wbks.Sheets("Final").Rows(i).Copy wbkc.Sheets(x).Rows(fin)
fin = fin + 1
End If
Next i
With wbks.Sheets("Final")
fin1 = .Cells.Find("*", , xlValues, , 1, 2, 0).Row
End With
wbkc.Close 1 'ferme le classeur'
'Set wbkc = Workbooks.Open(adr & "\Vsatech.xlsx") 'ouvre le fichier Vsatech.xlsx'
Set wbkc = Workbooks.Open(adr & ":Vsatech.xlsx") 'mac
wbkc.Sheets("Feuil1").Cells(4, 1) = CDate(wbks.Sheets("Final").Cells(fin1, 1))
wbkc.Sheets("Feuil1").Cells(4, 3) = wbks.Sheets("Final").Cells(fin1, 2)
wbkc.Sheets("Feuil1").Cells(3, 9) = wbks.Sheets("Final").Cells(fin1, 4)
wbkc.Sheets("Feuil1").Cells(14, 3) = wbks.Sheets("Final").Cells(fin1, 9)
'wbkc.Sheets("Feuil1").Cells(14, 1) = wbks.Sheets("Final").Cells(fin1, 15) 'colonne O
wbkc.Sheets("Feuil1").Cells(14, 12) = "135 days" 'wbks.Sheets("Final").Cells(fin1, 4)
'wbkc.Sheets("Feuil1").Cells(14, 14) = wbks.Sheets("Final").Cells(fin1, 16) 'colonne P
n = wbks.Sheets("Final").Cells(fin1, 6) & " " & wbks.Sheets("Final").Cells(fin1, 7) & " " & wbks.Sheets("Final").Cells(fin1, 8)
wbkc.Sheets("Feuil1").Cells(14, 5) = n
wbkc.Close 1 'ferme le classeur'
MsgBox "C'est Copié dans Vsatech et dans Cotations", , "Copie Terminée" ' Affichage du message "copié dans Vsatech et dans Cotations" '
End Sub