{"id":6374,"date":"2016-01-01T23:12:31","date_gmt":"2016-01-01T22:12:31","guid":{"rendered":"http:\/\/www.auditsi.eu\/?p=6374"},"modified":"2016-01-02T14:02:34","modified_gmt":"2016-01-02T13:02:34","slug":"excel-vba-importer-un-fichier-texte-dans-excel","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=6374","title":{"rendered":"EXCEL, VBA : importer un fichier texte dans Excel"},"content":{"rendered":"

L’analyse de donn\u00e9es passe par l’extraction de donn\u00e9es\u00a0provenant\u00a0de logiciels tiers. Ces extractions sont fr\u00e9quemment mat\u00e9rialis\u00e9es par des fichiers texte ou CSV. L’importation de ces donn\u00e9es dans Excel peut \u00eatre r\u00e9alis\u00e9e manuellement<\/a> mais l’automatisation de ces importations se r\u00e9v\u00e9lera beaucoup plus efficace en pr\u00e9sence de volumes de fichiers cons\u00e9quents, tel est le cas pour l’analyse des comptes dans un groupe de soci\u00e9t\u00e9s.<\/p>\n

\"Fichier<\/a>

Fichier CSV \u00e0 importer<\/p><\/div>\n

Le langage VBA impl\u00e9ment\u00e9 dans Excel dispose de la commande OpenText<\/em> d\u00e9di\u00e9e \u00e0 l’ouverture de fichiers texte. Cette commande pr\u00e9sente les m\u00eames fonctionnalit\u00e9s que le convertisseur qui suit l’ouverture d’un fichier texte (menu Fichier \/ Ouvrir) ou encore dans le menu Donn\u00e9es \/ Convertir :<\/p>\n

\"Assistant<\/a>

Assistant de conversion d’Excel : choix du type de donn\u00e9es d’origine<\/p><\/div>\n

La commande OpenText<\/em>\u00a0permet d’ouvrir des fichiers d\u00e9limit\u00e9s ou colonnes (\u00e0 largeur fixe). C’est cette derni\u00e8re cat\u00e9gorie de fichiers qui fait l’objet de notre int\u00e9r\u00eat dans le pr\u00e9sent article.<\/p>\n

Dans notre exemple, OpenText<\/em> ouvre les balances REFECO d’un groupe de concessionnaires automobiles et les mets en forme\u00a0afin d’analyser les donn\u00e9es d’exploitation mensuelles.<\/p>\n

Cette\u00a0commande, associ\u00e9e Workbooks<\/em>, s’utilise ainsi :<\/p>\n

Workbooks.OpenText Filename:=\"T:\\REFECO\\REODBL01.030\", Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(7, 1), Array(16, 1), Array(22, 1), Array(28, 1), Array(34, 1), Array(42, 1), Array(142, 1), Array(163, 1), Array(184, 1), Array(205, 1), Array(226, 1), Array(247, 1), Array(268, 1)), TrailingMinusNumbers:=True<\/pre>\n
Le param\u00e8tre Filename<\/em> fournit le nom du fichier texte et l’arborescence pour y acc\u00e9der, Startrow<\/em> indique \u00e0 partir de quelle ligne commencer l’importation, DataType<\/em> (ici xlFixedWidth<\/em> pour largeur fixe), \u00a0FieldInfo<\/em> permet de d\u00e9finir les diff\u00e9rents champs de donn\u00e9es \u00e0 l’aide de l’instruction Array<\/em> (Array(6,1)<\/em> : d\u00e9finit un champ de donn\u00e9e \u00e0 partir du sixi\u00e8me caract\u00e8re).<\/p>\n
Les param\u00e8tres d’OpenText<\/em> sont les suivants (source : https:\/\/msdn.microsoft.com\/fr-fr\/library\/office\/Ff837097.aspx<\/a>) :<\/p>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
Nom <\/span><\/th>\nObligatoire\/Facultatif <\/span><\/th>\nType de donn\u00e9es <\/span><\/th>\nDescription <\/span><\/th>\n<\/tr>\n
Filename<\/span> <\/span><\/td>\nObligatoire <\/span><\/td>\nCha\u00eene<\/strong> <\/span><\/td>\nSp\u00e9cifie le nom du fichier texte \u00e0 ouvrir et analyser (y compris le chemin d’acc\u00e8s au fichier). <\/span><\/td>\n<\/tr>\n
Origin<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong> <\/span><\/td>\nOrigine du fichier texte. Il peut s’agir de l\u2019une des constantes XlPlatform<\/strong> suivantes\u00a0: xlMacintosh<\/strong>, xlWindows<\/strong> ou xlMSDOS<\/strong>. Il peut \u00e9galement s’agir d’un nombre entier repr\u00e9sentant le num\u00e9ro de la page de code souhait\u00e9e. Par exemple, \u00ab 1256 \u00bb sp\u00e9cifie que le codage du fichier texte source est arabe (Windows). Si cet argument n’est pas sp\u00e9cifi\u00e9, la m\u00e9thode utilise le param\u00e8tre actuel de l’option Origine du fichier<\/span> dans l’Assistant Importation de texte<\/span>. <\/span><\/td>\n<\/tr>\n
StartRow<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong> <\/span><\/td>\nNum\u00e9ro de la ligne \u00e0 partir de laquelle commencer l’analyse du texte. La valeur par d\u00e9faut est 1. <\/span><\/td>\n<\/tr>\n
DataType<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nFormat de colonne des donn\u00e9es dans le fichier. Il peut s’agir de l’une des constantes XlTextParsingType<\/a><\/strong> suivantes\u00a0: xlDelimited<\/strong> (d\u00e9limit\u00e9) ou xlFixedWidth<\/strong> (largeur fixe).\u00a0Si cet argument n’est pas sp\u00e9cifi\u00e9, Microsoft Excel tente de d\u00e9terminer le format de colonne lors de l’ouverture du fichier. <\/span><\/td>\n<\/tr>\n
TextQualifier<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nXlTextQualifier<\/a> <\/strong> <\/span><\/td>\nSp\u00e9cifie l’identificateur de texte. <\/span><\/td>\n<\/tr>\n
ConsecutiveDelimiter<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nTrue<\/strong> pour que des d\u00e9limiteurs identiques cons\u00e9cutifs soient consid\u00e9r\u00e9s comme un seul d\u00e9limiteur. La valeur par d\u00e9faut est False<\/strong>. <\/span><\/td>\n<\/tr>\n
Tab<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nTrue<\/strong> pour que le caract\u00e8re de tabulation serve de d\u00e9limiteur (la propri\u00e9t\u00e9 DataType doit \u00eatre d\u00e9finie sur xlDelimited<\/strong>). La valeur par d\u00e9faut est False<\/strong>. <\/span><\/td>\n<\/tr>\n
Semicolon<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nTrue<\/strong> pour que le caract\u00e8re point-virgule serve de d\u00e9limiteur (la propri\u00e9t\u00e9 DataType doit \u00eatre d\u00e9finie sur xlDelimited<\/strong>). La valeur par d\u00e9faut est False<\/strong>. <\/span><\/td>\n<\/tr>\n
Comma<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nTrue<\/strong> pour que le caract\u00e8re virgule serve de d\u00e9limiteur (la propri\u00e9t\u00e9 DataType doit \u00eatre d\u00e9finie sur xlDelimited<\/strong>). La valeur par d\u00e9faut est False<\/strong>. <\/span><\/td>\n<\/tr>\n
Space<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nTrue<\/strong> pour que le caract\u00e8re espace serve de d\u00e9limiteur (la propri\u00e9t\u00e9 DataType doit \u00eatre d\u00e9finie sur xlDelimited<\/strong>). La valeur par d\u00e9faut est False<\/strong>. <\/span><\/td>\n<\/tr>\n
Other<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nTrue<\/strong> pour que le caract\u00e8re sp\u00e9cifi\u00e9 par l’argument OtherChar serve de d\u00e9limiteur (la propri\u00e9t\u00e9 DataType doit \u00eatre d\u00e9finie sur xlDelimited<\/strong>). La valeur par d\u00e9faut est False<\/strong>. <\/span><\/td>\n<\/tr>\n
OtherChar<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\n(obligatoire si Autre a la valeur True<\/strong>). Sp\u00e9cifie le caract\u00e8re de d\u00e9limitation quand Autre a la valeur True<\/strong>. Si plusieurs caract\u00e8res sont sp\u00e9cifi\u00e9s, le premier est utilis\u00e9 et les autres sont ignor\u00e9s. <\/span><\/td>\n<\/tr>\n
FieldInfo<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nMatrice contenant des informations d’analyse pour les diff\u00e9rentes colonnes de donn\u00e9es. L’interpr\u00e9tation d\u00e9pend de la valeur de DataType. Lorsque les donn\u00e9es sont d\u00e9limit\u00e9es, cet argument est une matrice comprenant des matrices de deux \u00e9l\u00e9ments sp\u00e9cifiant chacune les options de conversion d’une colonne particuli\u00e8re. Le premier \u00e9l\u00e9ment est le num\u00e9ro de colonne (en base 1), et le second est l’une des constantes XlColumnDataType<\/a><\/strong> sp\u00e9cifiant la mani\u00e8re dont la colonne est analys\u00e9e. <\/span><\/td>\n<\/tr>\n
TextVisualLayout<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nMise en page visuelle du texte. <\/span><\/td>\n<\/tr>\n
DecimalSeparator<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nS\u00e9parateur d\u00e9cimal utilis\u00e9 par Microsoft Excel lors pour la reconnaissance des nombres. Par d\u00e9faut, il s’agit du param\u00e8tre syst\u00e8me. <\/span><\/td>\n<\/tr>\n
ThousandsSeparator<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nS\u00e9parateur des milliers utilis\u00e9 par Excel lors pour la reconnaissance des nombres. Par d\u00e9faut, il s’agit du param\u00e8tre syst\u00e8me. <\/span><\/td>\n<\/tr>\n
TrailingMinusNumbers<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nSp\u00e9cifiez True<\/strong> si les nombres suivis du signe moins doivent \u00eatre trait\u00e9s comme des nombres n\u00e9gatifs. Si la valeur est False<\/strong> ou omise, les nombres suivis du signe moins sont trait\u00e9s comme du texte. <\/span><\/td>\n<\/tr>\n
Local<\/span> <\/span><\/td>\nFacultatif <\/span><\/td>\nVariant<\/strong><\/span><\/td>\nSp\u00e9cifiez True<\/strong> si les param\u00e8tres r\u00e9gionaux de l’ordinateur doivent \u00eatre utilis\u00e9s pour les s\u00e9parateurs, les nombres et la mise en forme des donn\u00e9es. <\/span><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
Une fois import\u00e9, le fichier texte est ouvert dans un nouveau classeur Excel :<\/p>\n
\"Fichier<\/a>
Fichier CSV import\u00e9 dans Excel<\/p><\/div>\n
Tous les articles en rapport avec la conversion de fichier<\/a>.<\/p>\n
Approfondir le sujet : Programmer en VBA<\/a> \/ D\u00e9couvrir la s\u00e9rie d\u2019articles Ma\u00eetriser Excel<\/a><\/p>\n
\"Share<\/a>