Créer fichier text ou csv a partir d'un tableau excel

Fermé

moseca Messages postés 32 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 17 mai 2022 - 21 mai 2019 à 01:35
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 21 mai 2019 à 15:23

Bonjour chers Experts

J'ai un tableau Excel, soit A1 : C100, et j'aimerais creer une macro qui convertit ce tableau excel en fichier texte ou csv (on voit les valeurs pour chaque colonne). La macro doit me demander de saisir le nom du fichier et de choisir l'endroit où le sauver.

Merci de votre aide.

A voir également:

Createobject("htmlfile")
Fichier rar - Guide
Tableau croisé dynamique - Guide
Créer un compte gmail - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Créer un compte google - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 mai 2019 à 07:27

Bonjour,

Google:
https://www.developpez.net/forums/d1194559/logiciels/microsoft-office/excel/contribuez/export-csv-plage-selectionnee/

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 mai 2019 à 14:56

Re,

Je ne dis pas nommer le fichier avant
Ben si car pour creer et sauvegarder avec la methode que je vous propose, il faut un chemin et un nom avant. Pas tres important mais question de logique

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 mai 2019 à 15:23

Re,

Autre methode:
Choix repertoire et nom avant creation fichier

'29/09/2017, 14h06 #15
'patricktoulon
'https://www.developpez.net/forums/d1756768/logiciels/microsoft-office/excel/macros-vba-excel/export-format-txt-pipe-separateur/

Public Property Let pressepapier(pressepapier)
    With CreateObject("htmlfile"): pressepapier = .parentWindow.clipboardData.GetData("Text"): End With
End Property
'
Public Property Get pressepapier()
With CreateObject("htmlfile"): pressepapier = .parentWindow.clipboardData.GetData("Text"): End With
End Property
'
Sub test()
    Dim Chemin_Fichier As Variant
    Dim Plage As Range
    
    Chemin_Fichier = Application.GetSaveAsFilename(, "Fichier TXT (*.TXT), *.TXT")
    If Chemin_Fichier <> False Then
        Set Plage = Range("A1:G15")
        Plage.Copy
        Open Chemin_Fichier For Output As #1
            Print #1, pressepapier
        Close #1
        Application.CutCopyMode = False
    Else
        MsgBox "Attention pas de Chemin et nom de fichier!!!!"
    End If
End Sub

Discussions similaires

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters