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

moseca Messages postés 37 Statut Membre -  
f894009 Messages postés 17417 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.

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

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