Private Sub CommandButton1_Click()
Set Wbk1 = ThisWorkbook
If ToggleButton1.Value = True Then
Set Wbk2 = Workbooks.Open(Filename:="exemple.xls")
End If
On Error Resume Next
Wbk2.Sheets("Feuil1").Range("e4") = Wbk1.Sheets("Sheet1").Range("e4")
Wbk1.Activate
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
On Error Resume Next
Wbk2.save
Wbk2.Close
End If
End Sub