Private Sub CommandButton1_Click()
Dim Chemin As String, Fichier As String
Chemin = ThisWorkbook.Path & "\"
Fichier = "copie Vente Periphérique 2015.xlsx"
Workbooks.Open Chemin & Fichier
End Sub
Private Sub CommandButton2_Click()
Dim Chemin As String, Fichier As String
Chemin = ThisWorkbook.Path & "\"
Fichier = "Tableau universel.xlsx"
Workbooks.Open Chemin & Fichier
End Sub