Private Sub CommandButton1_Click()
Dim L As Integer
Dim xls_fichier As Excel.Workbook
Set xls_fichier = GetObject("C:\Documents and Settings\Technicien\Bureau\Nouveau dossier\DB.xlsx")
'xls_fichier.Sheets(1).Range("A1") = Worksheets("Feuil4").Range("A2")
xls_fichier.Windows(1).Visible = True
'Fermeture fichier
xls_fichier.Save
xls_fichier.Close
Set xls_fichier = Nothing
End sub