Workbooks.Open "I:\_Purchase Order\nbdc.xlsm"
'le tableau de suivi
'Ouvrir fichier Suivi Bon de Commande
Application.ScreenUpdating = False
Workbooks.Open "I:\_Purchase Order\2013 Suivi Bon de commande.xlsx"
ActiveSheet.Unprotect ("bdckfc2013")
'Suivi de BDC
Set wb1 = ActiveWorkbook
'Bon de Commande
Set wb2 = Workbooks("nbdc.xlsm")
'Copier les infos en provenance du BDC vers le suivi
Workbooks("nbdc.xlsm").Worksheets("BdC").Range("AX2:BF2").Copy
Workbooks("2013 Suivi Bon de commande.xlsx").Sheets("SBdC").Cells(1000, 1).End(xlUp).Offset(1, 0). _
PasteSpecial xlPasteValues
ActiveSheet.Protect ("bdckfc2013")
'Sauvegarder et fermer le fichier suivi de BDC
ActiveWorkbook.Save
ActiveWorkbook.Close
wb2.Activate
ActiveSheet.Protect ("bdckfc2013")
ActiveWorkbook.Save
'ActiveWorkbook.Close
'Workbooks.Open "I:\_Purchase Order\2013 Suivi Bon de commande.xlsx"
'ThisWorkbook.Close
'Application.ScreenUpdating = True
End If
Exit Sub