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

moseca Messages postés 32 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 714
 
Bonjour,

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