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

[blparb]

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

 

[Efgé]

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

Bonjour blparb,
Une proposition :

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

 

[blparb]

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é