Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Vba excel lecture modification et enregistrement d un fichier txt 11080 n9vxjs

High-Tech Santé-Médecine Droit-Finances CodeS -SourceS AppsTV Inscription Plan Connexion Identi ?ant Mot de passe oublié Connexion Rechercher OK Accueil Forum Tutoriels Codes Sources Snippets Top membres Tous les langages Delphi Pascal Java Python SQL RegEx Flash ASM IRC Graphisme PDA ColdFusion Foxpro Flex Visual Basic VB NET Forum Tutoriels Codes Sources Snippets Top membres CPHP Forum Tutoriels Codes Sources Snippets Top membres C C C NET Forum Tutoriels Codes Sources Snippets Top membres Javascript Forum Tutoriels Codes Sources Snippets Top membres C NET Forum Tutoriels Codes Sources Snippets Top membres ASP ASP NET Forum Tutoriels Codes Sources Snippets Top membres Services Agenda Annuaire des sites Blogs Dictionnaire de la prog Groupes Outils RFC Accueil Connexion Identi ?ant Mot de passe oublié Connexion Déposer un code Code Recherche CHaut VBA Excel Lecture Modi ?cation et Enregistrement d'un ?chier txt Donnez votre avis Août Introduction Lire dans un ?chier texte Modi ?er un ?chier texte Ecrire dans un ?chier texte Téléchargement Ce tutoriel est une partie de celui-ci Introduction Le but ici est de créer un dictionnaire au format texte extension txt composé d'un mot par ligne à partir du dictionnaire disponible à l'installation du navigateur ?refox Il va donc nous falloir les outils nécessaires à la lecture la modi ?cation et l'écriture dans un ?chier texte à partir de VBA dans Excel Lire dans un ?chier texte Il existe plusieurs méthodes permettant la lecture d'un ?chier texte Celle retenue ici accès séquentiel est la suivante Sub LireDicoFirefox Dim Tb As String Chemin As String num As Long i As Long Chemin ThisWorkbook Path NomFicTxt DicoFirefoxFrancais txt 'permet de retrouver le er numéro libre de désignation d'un ?chier num FreeFile 'ouvre le ?chier en lecture Open Chemin NomFicTxt For Input As num i - 'boucle tant que l'on n'a pas atteint la ?n du ?chier While Not EOF ' Stockage des lignes dans la variable tableau Tb i i ReDim Preserve Tb i Line Input Tb i Wend Close num 'fermeture End Sub Nota Dans ce cas précis l'utilisation de la variable tableau Tb pour stocker les lignes du ?chier texte est inutile car le dictionnaire ?refox ne comprends qu'une seule ligne Modi ?er un ?chier texte La solution la plus facile est d'analyser le résultat présenté par la procédure de lecture puis de modi ?er directement dans Excel les cha? nes de caractères devant l'être Dans notre exemple Cà l'importation des données on se rend compte que Le dictionnaire ?refox est composé d'une seule ligne Elle-même composée de mots Séparés par des des tabulations Chr des sauts de ligne Chr Comportant des caractères spéciaux numériques En minuscule Il nous faut donc traiter cela sous Excel Notre liste de mots est stockée dans la variable Tb Nous allons dans un premier temps écrire deux fonctions nous permettant d'apurer la liste des mots des caractères spéciaux et de supprimer les mots contenant des chi ?res er etc Voici les codes de ces deux fonctions C'Cette fonction remplace les caractères spéciaux 'contenus dans le