Les contrôles ActiveX

Common Dialog et Microsoft Rich Text Format

Les contrôles ActiveX CommonDialog et RichTextFormat fonctionnent bien la main dans la main. On se sert du RichTextFormat pour recevoir le contenu d’un fichier .TXT ou RTF via CommonDialog, ou encore, on le remplit à la main et on sauvegarde ce contenu sur disque en tant que .TXT ou RTF toujours via CommonDialog

Le contrôle ActiveX CommonDialog devrait être c:\WINDOWS\system\Commdlg32.ocx

Marche à suivre :

  1. Placer un contrôle ActiveX Microsoft Common Dialog Control (menu Insertion - Contrôle ActiveX) si tu ne le trouves pas ... c'est qu'il n'est pas installé sur ta machine... pas de chance tu peux arrêter de lire ce document
  2. Le nommer CommonDlg
  3. Placer un contrôle ActiveX Microsoft RichText Control
  4. Lui donner le nom RichText
  5. Placer 2 boutons de commande :
  6. Les appeler DataOpen et DataSave
  7. Coller ensuite le code ci-dessous qui s’apparente aux 2 boutons

Code du bouton DataOpen

Ce bouton permet d’ouvrir un fichier RTF ou TXT et d’en placer le contenu dans le contrôle RichText

Private Sub DataOpen_Click()
Me!CommonDlg.InitDir = "d:\atelier" ' Dossier par défaut
Me!CommonDlg.FileName = "*.doc" ' Affichage par défaut des fichiers word
Me!CommonDlg.Filter = "Word|*.doc|Excel|*.xls|Access|*.mdb|Texte|*.txt|Tous|*.*" ' Fichiers possibles
Me!CommonDlg.ShowOpen ' Affichage effectif du contrôle dialogue commun : OUVRIR
Me.Caption = "Fichier:" & Me!CommonDlg.FileName ' Renvoie le chemin d'accès, suivi du fichier, contrairement à FileName qui ne renvoie que le nom du fichier
RichText.LoadFile Me!CommonDlg.FileName, rtfText
End Sub

Code du bouton DataSave

Ce bouton permet, une fois qu’on a écrit un texte quelconque dans le contrôle RichText, de le sauvegarder en tant que fichier .TXT ou RTF

Private Sub DataSave_Click()
Me!CommonDlg.InitDir = "d:\atelier"
Me!CommonDlg.FileName = "*.txt"
Me!CommonDlg.Filter = "Texte|*.txt|Tous|*.*"
Me!CommonDlg.ShowSave ' Affichage effectif du contrôle dialogue commun : SAUVEGARDER
RichText.SaveFile Me!CommonDlg.FileName, rtfText
Exit Sub