Créer fichier txt avec macro VBA excel

Résolu/Fermé

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 écrire dans un fichier texte
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Le fichier à télécharger est la nouvelle note de service de votre entreprise. importez ce fichier dans le bon dossier sur l'espace pix cloud. donnez à ce fichier les mêmes droits d'accès que les autres notes de service. ✓ - Forum Windows

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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"

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

Fichier TXT avec séparateur de champs

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

Convertir .txt en .csv Excel 2007

Récupérer des données d'un fichier texte

transformer fichier .txt en un fichier .xml

comparaison de 2 fichiers ".txt"

Discussions similaires

Newsletters