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

  • Initiateur de la discussion Initiateur de la discussion m.alhalli
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

m.alhalli

XLDnaute Nouveau
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
Code:
    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

Code:
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.
 
Re : Comment exporté des données excel vers des fichiers Texte?

Bonjour,

Code:
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
 
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.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
466
Réponses
4
Affichages
177
Réponses
2
Affichages
330
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour