Créer fichier txt avec macro VBA excel

Résolu

thepatatane Messages postés 180 Date d'inscription Statut Membre Dernière intervention -
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.

Afficher la suite

A voir également:

Vba ecrire fichier texte
Fichier bin - Guide
Fichier epub - Guide
Fichier rar - Guide
Comment réduire la taille d'un fichier - Guide
Fichier .dat - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 715

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 Statut Membre Dernière intervention 4

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 Statut Membre Dernière intervention 4

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

Réponse 2 / 3

HoodRide Messages postés 2 Date d'inscription Statut Membre Dernière intervention 12

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

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

Merci de votre aide !

Nico > Nico

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

♡ Coeur vide : Comment le faire ? (Solution !)

Conversion d'un fichier dat en fichier txt

HELP: Conversion Excel en CSV (séparateur: point virgule)

impossible de trouver ou charger la classe

Impossible de trouver ou charger la classe principale. Minecraft

Fichier TXT avec séparateur de champs

Votre réponse

Discussions similaires