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 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 21 mai 2019 à 15:23
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 21 mai 2019 à 15:23
A voir également:
- Createobject("htmlfile")
- Créer un compte gmail - Guide
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Formule excel - Guide
- Créer un compte google - Guide
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
21 mai 2019 à 07:27
21 mai 2019 à 07:27
21 mai 2019 à 14:56
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
21 mai 2019 à 15:23
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