Private Sub CmdValider_Click()
Dim wbk As Workbook
Dim Sh As Worksheet
Application.ScreenUpdating = False
Workbooks.Open "\\BIO.CORPNET1.COM\WKS\Public\Transit\¬NE PAS SUPPRIMER WAREHOUSE FORMULAIRE\Survey\ReceptionRemerciements.xlsm"
ActiveWindow.DisplayWorkbookTabs = True
Worksheets("ReceptionRemerciements").Visible = True
Sheets("ReceptionRemerciements").Select
compteur = Cells(1, 2) + 3
Cells(compteur, 2).Value = Now 'Date
Cells(compteur, 3).Value = Application.UserName 'Nom
Cells(compteur, 9).Value = Me.TextBox4.Value 'Commentaire
Cells(1, 2) = compteur - 2
If OptionButton1 = True Then
Cells(compteur, 7).Value = Me.OptionButton1.Caption 'oui
End If
If OptionButton2 = True Then
Cells(compteur, 7).Value = Me.OptionButton2.Caption 'sans opinion
End If
If OptionButton3 = True Then
Cells(compteur, 7).Value = Me.OptionButton3.Caption 'non
End If
ActiveWindow.Close savechanges:=True
Set Sh = Nothing
Set wbk = Nothing
Application.ScreenUpdating = True
Unload Me
End Sub