Private Sub CommandButton3_Click()
With PERMIS_ET_FORMATIONS
.Nouv_valid.Visible = False
.CommandButton3.Visible = False
.CommandButton4.Visible = False
.Enregist.Visible = False
.CommandButton2.Visible = False
.PrintForm
.Nouv_valid.Visible = True
.CommandButton3.Visible = True
.CommandButton4.Visible = True
.Enregist.Visible = True
.CommandButton2.Visible = True
End With
End Sub
Private Sub CommandButton3_Click()
With PERMIS_ET_FORMATIONS
.Height = 385.5
.PrintForm
.Height = 520.5
End With
End Sub