{"id":6387,"date":"2016-01-03T16:35:23","date_gmt":"2016-01-03T15:35:23","guid":{"rendered":"http:\/\/www.auditsi.eu\/?p=6387"},"modified":"2016-01-03T17:32:22","modified_gmt":"2016-01-03T16:32:22","slug":"excel-vba-exporter-des-donnees-excel-dans-un-fichier-csv","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=6387","title":{"rendered":"EXCEL, VBA : exporter des donn\u00e9es Excel dans un fichier CSV"},"content":{"rendered":"

Il est courant d’exporter sous la forme d’un fichier texte des donn\u00e9es produites ou mises en forme sur EXCEL en vue d’une int\u00e9gration\u00a0dans un\u00a0logiciel tiers\u00a0; il en est ainsi, par exemple, d’\u00e9critures comptables.<\/p>\n

Ces op\u00e9rations d’exportation gagnent \u00e0 \u00eatre automatis\u00e9es avec\u00a0une macro\u00a0VBA lorsqu’elles sont r\u00e9p\u00e9t\u00e9es.<\/p>\n

L’exemple qui suit s\u00e9lectionne une plage de cellules Excel, la copie en m\u00e9moire, la colle dans une feuille cr\u00e9\u00e9e sp\u00e9cialement \u00e0 cet effet puis la sauvegarde au format CSV (texte).<\/p>\n

ClasseurEcritures.Sheets(1).Range(Premi\u00e8reColonne & Ligned\u00e9butEcritures & \":\" & Derni\u00e8reColonne & Ligned\u00e9butEcritures - 1 + NumEch\u00e9ancier * 3).Select\r\nSelection.Copy\r\nWorkbooks.Add\r\nActiveSheet.Paste\r\nApplication.CutCopyMode = False\r\nApplication.DisplayAlerts = False\r\nActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False\r\nActiveWindow.Close\r\nApplication.DisplayAlerts = True<\/pre>\n
Ce code se d\u00e9compose ainsi :<\/p>\n
S\u00e9lection des donn\u00e9es \u00e0 exporter<\/em><\/p>\n
ClasseurEcritures.Sheets(1).Range(Premi\u00e8reColonne & Ligned\u00e9butEcritures & \":\" & Derni\u00e8reColonne & Ligned\u00e9butEcritures - 1 + NumEch\u00e9ancier * 3).Select\r\n<\/pre>\n
Cette ligne de code s\u00e9lectionne (Select<\/em>) la plage de donn\u00e9es (ici A10 \u00e0 G15) \u00e0 exporter (Range<\/em>) de la premi\u00e8re feuille (Sheets(1)<\/em>) situ\u00e9e dans le classeur des \u00e9critures.<\/p>\n
\"Ecritures<\/a><\/p>\n
Selection.Copy\r\n<\/pre>\n
Copie la s\u00e9lection en m\u00e9moire (\u00e9quivalent\u00a0\u00e0 la combinaison des touches\u00a0<Contr\u00f4le> + <C>).<\/p>\n
Exportation des donn\u00e9es<\/em><\/p>\n
Workbooks.Add<\/pre>\n
Cr\u00e9e un nouveau classeur.<\/p>\n
ActiveSheet.Paste<\/pre>\n
Colle les donn\u00e9es dans la feuille active (premi\u00e8re feuille du classeur nouvellement cr\u00e9\u00e9).<\/p>\n
Application.CutCopyMode = False\r\n<\/pre>\n
Rend le presse-papier disponible et vide.<\/p>\n
Application.DisplayAlerts = False<\/pre>\n
Cette commande d\u00e9sactive les messages d’alerte lors de la fermeture d’un Excel. Ce qui s’av\u00e8re utile pour \u00e9viter \u00e0 l’utilisateur de r\u00e9pondre aux messages l’alertant sur le risque de perte de donn\u00e9es li\u00e9s au changement de format de fichier. La commande Application.DisplayAlerts = True<\/em> r\u00e9tablit les messages d’alerte.<\/p>\n
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False\r\n<\/pre>\n
Sauvegarde\u00a0(SaveAs<\/em>)\u00a0le classeur actif (ActiveWorkbook<\/em>) au format CSV (FileFormat:=xlCSV<\/em>)\u00a0sous le nom contenu dans la variable ‘s’. SaveAs<\/em>\u00a0est l’\u00e9quivalent de Fichier \/ Enregistrer sous…<\/p>\n
\"Enregistrer<\/a>
Enregistrer sous… fichier CSV<\/p><\/div>\n
 <\/p>\n
ActiveWindow.Close\r\n<\/pre>\n
Ferme la fen\u00eatre du classeur.<\/p>\n
Le fichier contenant les donn\u00e9es export\u00e9es (en l’occurrence des \u00e9critures comptables)\u00a0est maintenant disponible tout pr\u00eat \u00e0 \u00eatre import\u00e9 dans la comptabilit\u00e9 :<\/p>\n
\"Ecritures<\/a>
Ecritures export\u00e9es en CSV<\/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>