Comment exporté des données excel vers des fichiers Texte?

[m.alhalli]

Bonjour le forum;

J'ai un tableau sur lequel je récupère des données chaque 120minutes et ces données doivent être archivées dans une base de données, je voudrais exporté ces données vers des fichiers texte pour que ca ne prenne pas beaucoup d'espace en utilisant le MS-Query ou le VBA.

en ce qui concerne VBA j'utilise les cours de MichelXld comme comme réference mais je m'en sors pas très bien. (LIEN pour le cours, c'est tout en bas de la page)

Ce que je veux exporté c'est des cellules précise et non pas tout le tableau, alors j'ai utlisé ca, mais il exporte qu'une seule Cellule et c'est normal

    Sub TransferVersFichierTxt()

    Dim Cible As Integer

    Cible = freeFile

    Open "C:\Essai\Transfer.txt" For Append As #Cible

    Print #Cible, Range("A1") 'renvoie valeur cellule A1 dans fichier txt

    Close #Cible

    End Sub

Alors j'ai essayé d'exporté tout le tableau avec ceci

Sub Transfert_versFichierTexte()
Dim plage As Range
Dim i As Long
Dim j As Byte
Dim result As String
Dim tableau As Variant
Set plage = Feuil1.UsedRange.Cells
tableau = plage
Open "c:\Essai\transfert.txt" For Output As #1
For i = 1 To UBound(tableau, 1)
For j = 1 To UBound(tableau, 2)
resultat = resultat & tableau(i, j) & ";"
Next
resultat = Left(resultat, Len(resultat) - 1)
Print #1, resultat
resultat = ""
Next
Close #1
End Sub

Mais le problème ce qu'il prend toutes les cellules utilisées et le but c'est de prendre de cellules spécifiques

Pourriez-vous m'aider SVP


Sinon, Est ce qu'on peut utiliser le MS Query pour archiver dans des fichiers texte.

J'espère que j'étais claire.


Merci d'avance.

 

[BOISGONTIER]

Re : Comment exporté des données excel vers des fichiers Texte?

Bonjour,

Sub ExportTxtChamp()
  repertoire = ThisWorkbook.Path
  Open repertoire & "\x.txt" For Output As #1
  Set champ = [C1].CurrentRegion
  For lig = 1 To champ.Rows.Count
    ligne = ""
    For col = 1 To champ.Columns.Count
      ligne = ligne & champ.Cells(lig, col) & ";"
    Next col
    Print #1, Left(ligne, Len(ligne) - 1)
  Next lig
  Close #1
End Sub

Fichiers séquentiels

JB
Formation Excel VBA JB

 

[m.alhalli]

Re : Comment exporté des données excel vers des fichiers Texte?

Merci pour la réponse.

Edit :

C'est bon j'ai compris, mais apparemment ca va pas être facile si je veux exploiter plusieur feuilles dans le même classeur;
et puis comment on peut faire pour récupérer ces données sur excel pour les visualiser?


Cordialement
Mar1.

 

[m.alhalli]

Re : Comment exporté des données excel vers des fichiers Texte?

Re

Appel a tous les forumiste

Est ce qu'il y a d'autres solutions?

Merci

 

[m.alhalli]

Re : Comment exporté des données excel vers des fichiers Texte?