Créer fichier txt avec macro VBA excel

Résolu/Fermé

Txt

thepatatane

Messages postés: 180
Date d'inscription: vendredi 11 février 2011
Statut: Membre
Dernière intervention: 22 mai 2016

- 17 sept. 2012 à 19:28
Nico - 27 mai 2015 à 17:26

Bonjour,
J'aimerais créer un macro excel qui créer un fichier txt, que sont contenu soit le contenu d'une cellule du projet excel.
Et qu'il soit ouvert par la même occasion.
Merci d'avance.

A voir également:

Vba ecrire fichier texte
Vba ecrire dans un fichier txt - Meilleures réponses
Vba créer fichier texte - Meilleures réponses
Créer fichier txt avec macro VBA excel ✓ - Forum - VB / VBA
[VBA Excel] creer un fichier txt ✓ - Forum - VB / VBA
Vba ecrire du texte dans une cellule - Forum - VB / VBA
[VBA] importation fichier texte dans Access ✓ - Forum - VB / VBA
[EXCEL] - VBA - Ecrire dans un cellule ✓ - Forum - Excel

3 réponses

Réponse 1 / 3

f894009

Messages postés: 16647
Date d'inscription: dimanche 25 novembre 2007
Statut: Membre
Dernière intervention: 16 août 2022

1 648
17 sept. 2012 à 20:55

Bonjour,

Sub creer_TXT()
  Close
  chemin = "C:\repertoire"
  Open chemin & "Fichier.txt" For Output As #1
  Print #1, Worksheets("feuil1").Range("A1")
  Close
End Sub

Et qu'il soit ouvert par la même occasion. ????????

thepatatane

Messages postés: 180
Date d'inscription: vendredi 11 février 2011
Statut: Membre
Dernière intervention: 22 mai 2016

4
17 sept. 2012 à 21:22

Merci de ta réponse mais je débute dans le VBA et ca ne marche pas :(
Et pour " Et qu'il soit ouvert par la même occasion. ????????" je veut dire que juste apres qui soit créer qui soit ouvert mais ca c'est pas grave.

thepatatane

Messages postés: 180
Date d'inscription: vendredi 11 février 2011
Statut: Membre
Dernière intervention: 22 mai 2016

4
17 sept. 2012 à 21:33

Il y a une erreur
"erreur d'execution '75': erreur d'acces/fichier"

f894009

Messages postés: 16647
Date d'inscription: dimanche 25 novembre 2007
Statut: Membre
Dernière intervention: 16 août 2022

1 648
17 sept. 2012 à 21:56

Re,

le code est a mettre dans VBA dans un module ou dans ThisWorkbook
Vous avez mis votre repertoire pour creer votre fichier??
Vous voulez ouvrir ce fichier .TXT avec quoi: Excel, NotPad ou .......?

thepatatane

Messages postés: 180
Date d'inscription: vendredi 11 février 2011
Statut: Membre
Dernière intervention: 22 mai 2016

4
17 sept. 2012 à 22:00

Je l'est mit dans un module oui j'ai mon répertoire et le txt je veut l ouvrir avec le bloc notes.
(vous pouvez me tutoyer)

f894009

Messages postés: 16647
Date d'inscription: dimanche 25 novembre 2007
Statut: Membre
Dernière intervention: 16 août 2022

1 648
17 sept. 2012 à 22:02

Re,
Montrez votre code.

Réponse 2 / 3

HoodRide

Messages postés: 2
Date d'inscription: jeudi 20 juin 2013
Statut: Membre
Dernière intervention: 21 juin 2013

12
20 juin 2013 à 23:58

Bonjour Laurent75_

Il y a une solution consistant à mettre la colonne A dans un tableau (array) dans un 1er temps puis alimenter le fichier txt à partir du tableau :

Dim Chemin As String
Dim DerniereLigne As Long           'Index de la dernière ligne
Dim Tableau() As Variant
Dim Ligne As Long

Chemin = "C:\VBA\"
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

'Création du tableau par une boucle
Ligne = 1
Do While Ligne <= DerniereLigne
 'Ajout 1 élément à l'array en conservant les éléments précédents
    ReDim Preserve Tableau(Ligne)
'Affectation de la valeur au nouvel élément           
    Tableau(Ligne) = Range("A" & Ligne).Value        
    Ligne = Ligne + 1
Loop

'Ecrit dans le fichier txt
Ligne = 1
Do While Ligne <= DerniereLigne
    Open Chemin & "Temporaire.txt" For Append As #Ligne
    Print #Ligne, Tableau(Ligne) & vbCrLf
    Close
    Ligne = Ligne + 1
Loop

MsgBox ("c'est ok")

End Sub

Nico
27 mai 2015 à 17:11

Bonjour, quelqu'un saurait-il créer ce tableau (array) s'il vous plait?

Merci de votre aide !

Nico > Nico
27 mai 2015 à 17:26

Sub test()

Close
chemin = "A:\db_gie\"
Open chemin & "Importation.txt" For Output As #1
Print #1, Worksheets("2j").Array("A1:D52")
Close

End Sub

Discussions similaires

Conversion d'un fichier txt en xlsx ... ?

Convertir .txt en .csv Excel 2007

debug

Fichier TXT avec séparateur de champs

Indexé malgré le blocage par le fichier robot txt

fichier txt virus?

Discussions similaires

Newsletters