Créer fichier txt avec macro VBA excel Résolu

Question

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.

Configuration: Windows 7 / Firefox 15.0.1

f894009 · Accepted Answer

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. ????????

HoodRide · Answer

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

HoodRide · Answer

Bonjour,
Petite rectification pour la 2è boucle : il faut mettre avant cette boucle 
 Close
Puis mettre #1 et non #Ligne

Créer fichier txt avec macro VBA excel

3 réponses

Discussions similaires

Newsletters