#30 : VBA Access G.Stock - Exporter vers Fichier Texte

Objectif : Exporter des données vers Fichier Texte en utilisant VBA Access

Le cours d'aujourd'hui consiste à écrire du code pour exporter d'une manière personnalisée des données (Requêtes ou tables) MS Access vers un fichier texte (.txt).

Toujours sur le formulaire "E_ListReglements" , je passe en mode VBA (raccourci clavier: ALT+ F11).

pour utiliser les commande VBA Access qui permet de lire et écrire dans une fichier texte , donc sur le menu Outils => Références, nous devons ajouter la référence du bibliothèque "Microsoft Scripting Runtime".

Ensuite je vais écrire le code du fonction isExisteFile qui permet de tester si un fichier existe sur le chemin (pathfile)  donné en paramètre et à l'aide de la fonction prédéfinie Dir.

une autre fonction qui créer physiquement le fichier s'il n'existe pas , avec le paramètre True du fonction CreateTextFile de l'objet Scripting.FileSystemObject, donc si le fichier existe il va l’écraser.

⤷ La fonction isExisteFile

⤷ La fonction createFileTxt

⤷ L'action sur l'événement Clic du bouton btnExporterTXT 

Fonction Len : Renvoie une valeur de type long contenant le nombre de caractères contenus dans une chaîne ou le nombre d’octets requis pour stocker une variable.

Fonction Dir : retourne une chaîne qui représente le nom d’un fichier, le répertoire ou le dossier qui correspond au chemin passé en paramètre. si le chemin d'accès n'est pas trouvé pour ce fichier la fonction retourne une chaîne de longueur nulle.

La fonction Chr$ : Renvoie une donnée de type chaîne contenant le caractère associé au code de caractère spécifié. exp : Chr$(9) permet d’insérer une tabulation

👉 Pour plus de détail, Regarder la Vidéo de ce Cours

🔗 Télécharger le Code Source  G.Stock V1.27

***********************

***********************