Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

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