exporter des données excel dans un fichier TXT

Question

Bonjour &#224; tous,

J'ai besoin d'exporter le contenu de feuilles Excel dans un fichier TXT. Puisque j'en ai une 20 &#224; a faire quasi quotidiennement je me suis dis que &#231;a pourrait &#234;tre bien de faire une marco qui le fasse &#224; ma place. Le hic c'est que je ne connais pas trop le VBA et donc je ne sais pas comment faire.
Est-ce que qlq'1 connait qlq ch qui pourrait m'aider?
Merci d'avance

Cristof

gg00xiv · Answer

Salut,

Quand tu ouvres l'&#233;diteur Visual Basic dans Excel, il te permet de g&#233;rer les &#233;v&#232;nements de tes feuilles ou de ton classeur en entier. Tu peux m&#234;me cr&#233;er de nouveaux formulaires &#224; int&#233;grer dans ton classeur.
Tu trouveras bien un &#233;v&#232;nement qui te permetta de coder ton exportation comme en VB normal.

Cordialement,


Gr&#233;gory GHEZ
Hermes Informatique

cqui789 · Answer

Si les noms de feuilles et des fichiers sont toujours les memes,
utilise l'enregisteur de macro (outil>macro>Nouvelle Macro)



si non, l'enregisteur de macro a de toute facon l'interet de te donner le nom des commandes a utiliser pour rediger ton programe

jpleroisse · Answer

Essaie cette macro (elle fonctionne)

Sub Export()
Range("A1").CurrentRegion.Activate
Dim FileName As String
Dim Data
Dim r As Long, c As Integer
Dim NumRows As Long, NumCols As Integer
Dim ExpRng As Range
Set ExpRng = Application.Selection
NumRows = ExpRng.Rows.Count
NumCols = ExpRng.Columns.Count


FileName = "C:\Mes documents\fichiertexte.txt"
Open FileName For Output As #1
    For r = 1 To NumRows
     For c = 1 To NumCols
         Data = ExpRng.Cells(r, c).Value
         If IsNumeric(Data) Then Data = Val(Data)
         If IsEmpty(ExpRng.Cells(r, c)) Then Data = ""
         If c <> NumCols Then
            Write #1, Data
        Else
            Write #1, Data


             End If
        Next c
    Next r
Close #1
End Sub

jpleroisse

cqui789 · Answer

jpleroisse> Il
n'y aurrai pas un probleme, les 2 cotes du else sont identiques, a mon
avis tu voulais ajouter la virgule et eviter de retourner a la ligne,
non?



If c <> NumCols Then
            Write #1, Data
        Else
            Write #1, Data



             End If

J'aurrai utilise la fonction enregistrer sous - fichier TXT d'excel que l'enregisteur de macro me traduit en VBA par :



   ActiveWorkbook.SaveAs FileName:= _

        "C:\...\Classeur1.txt" _

        , FileFormat:=xlText, CreateBackup:=False

jpleroisse · Answer

Non , autan pour moi J'ai oubli&#233; de tapper un ; apr&#232;s le premier write

Write #1, Data; 
Le ; signifie que le fichier enregistrera ligne apr&#232;s ligne

jpleroisse

Exporter des données excel dans un fichier TXT

5 réponses

Discussions similaires