Private Sub btGenerer_Click() ' Souris en sablier. Screen.MousePointer = 11 ' Appel à la procédure de mise en forme. Call MiseEnForme(txtSource.Text, txtResultat.Text, (chkSep.Value = 1))
rtbApercu.FileName = txtResultat.Text ' Souris normale. Screen.MousePointer = 0 End Sub
Private Sub btParcourir_Click() ' Ouvre la boîte de dialogue pour sélectionner le fichier à traiter On Error GoTo ErrNomFile
cdgFile.InitDir = App.Path
cdgFile.ShowOpen
txtSource.Text = cdgFile.FileName
txtResultat.Text = Left$(txtSource.Text, Len(txtSource.Text) - 3) & "RTF" Exit Sub ErrNomFile:
txtSource.Text = vbNullString End Sub
Private Sub btQuitter_Click() ' Ferme la fenêtre et quitte l'application Unload Me End
End Sub
Private Sub Form_Resize() ' Redimensionnement de la fenêtre. On ajuste le contrôle
' RichTextBox en fonction de la taille de la fenêtre. If Me.Width - 255 > 100 Then rtbApercu.Width = Me.Width - 255 End If
If Me.Height - 1980 > 100 Then rtbApercu.Height = Me.Height - 1680 End If
End Sub