créer des fichiers texte a partir de plusieurs cellules d'une feuille excel

  • Initiateur de la discussion Initiateur de la discussion blparb
  • 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 !

blparb

XLDnaute Nouveau
Bonjour,
J'ai parcouru le forum et n'ai trouvé qu'un sujet se rapprochant du mien mais il ne prend en compte que les 2 premieres colonnes.
J'ai une feuille excel avec 15 colonnes, la premiere contient le nom des fichiers à créer, les 14 autres colonnes contiennent les informations que doit contenir le fichier texte.Chaque ligne aura donc les information nécessaires pour chaque fichier créé.Ces informations devront être à la suite par retour a la ligne dans le fichier texte.

exemple:feuille excel
fichier1 info1 info2 info3 info4 info5 info6 info7 info8 info9 info10
fichier2 info1 info2 info3 info4 info5 info6 info7 info8 info9 info10
fichier3 info1 info2 info3 info4 info5 info6 info7 info8 info9 info10
fichier4 info1 info2 info3 info4 info5 info6 info7 info8 info9 info10

exemple fichier texte: fichier1.txt
info1
info2
info3
info4
info5
info6
etc
A savoir les infos ne seront pas toutes de la même dimension
Quelqu'un a une idée ? merci😎
 
Re : créer des fichiers texte a partir de plusieurs cellules d'une feuille excel

Bonjour blparb,
Une proposition :
VB:
Sub Export()
Dim I&, J&, Chemin$, Mes$
'Chemin du bureau (a adapter)
Chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
With Sheets("Feuil1") ' nom de la feuille à adapter
    For I = 1 To .Cells(.Rows.Count, 1).End(3).Row
        Mes = ""
        For J = 2 To 15 'Colonnes de 2 à 15
            Mes = Mes & .Cells(I, J).Value & vbNewLine
        Next J
        Open Chemin & "\" & .Cells(I, 1).Value & ".txt" For Output As #1
            Print #1, Left(Mes, Len(Mes) - 1)
        Close #1
    Next I
End With
End Sub
Cordialement
 
Dernière édition:
Re : créer des fichiers texte a partir de plusieurs cellules d'une feuille excel

Bonjour Efgé,

Merci pour cette réponse rapide et efficace, car après un rapide essai c'est ce que je souhaitais ! à moi de peaufiner le fichier Excel, le répertoire de sortie ... Encore merci pour la rapidité et l'efficacité 🙂
 
- 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
Retour