'Import
Private Sub CommandButton1_Click()
Dim Tablo, Tablo2, Tablo3, Tablo4, Tablo5
Dim onglet, classeur, classeurOp As String
Application.ScreenUpdating = False
'On Error GoTo fin
'If [J28] = "" Or [L28] = "" Then
'MsgBox ("Veuillez renseigner le client ou la date")
'Exit Sub
'End If
'onglet = [L28]
'Voici la nouvelle partie-------------------------------
UserForm1.Show
If UserForm1.CommandButton1.Value = True Then
MsgBox ("ouais !")
End If
'Fin de la nouvelle partie--------------------------
'###
If MsgBox("BL ou Temporaire", vbYesNo) = vbYes Then
classeur = ("CLASSEUR.xlsx")
classeurOp = ("C:\Users\XXXX\Documents\XXXXXXX\CLASSEUR.xlsx")
Else
classeur = ("CLASSEUR.xlsx")
classeurOp = ("C:\Users\XXXX\Documents\XXXXXXX\CLASSEUR.xlsx")
End If
'###
On Error Resume Next
Workbooks(classeur).Activate
If Err.Number <> 0 Then
Workbooks.Open Filename:=classeurOp
End If
End Sub