Sujet Précédent Sujet Suivant

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 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 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:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
21 mai 2019 à 07:27
Bonjour,

Google:
https://www.developpez.net/forums/d1194559/logiciels/microsoft-office/excel/contribuez/export-csv-plage-selectionnee/
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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
0