Sheets("BdC").Select
nbdc = Format(Now, "yyyy"" ""mmdd""_""hhmmss")
nbdc = Range("n49") & " " & nbdc
Range("A5") = nbdc
'Enregistrement du Bon de Commande sur le PC de l'acheteur
Dossier = WorksheetFunction.VLookup(Range("N49"), Range("Code_Dep"), 2, False)
If Dir(ThisWorkbook.Path & "\" & Dossier, vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\" & Dossier
ActiveWorkbook.SaveAs Dossier & "\" & nbdc & ".xlsx"
End If
Exit Sub