Microsoft 365 création de fichier .txt par ligne non vide en VBA

LASpiro

XLDnaute Nouveau
Bonjour à toutes et tous ,

Je sollicite à nouveau votre aide aujourd’hui afin de gagner du temps lors de mes phases de test futures 😊

Je souhaiterais une macro qui me crée un fichier .txt différent pour chaque ligne de l’onglet « Fichiers test » non vide, avec la possibilité de choisir le lieu d’enregistrement et le nom du premier fichier avec une incrémentation auto sur le dernier caractère du nom pour le reste des fichiers (ex : fichier test1.txt / fichier test2.txt / …..).

L’idée est de me créer en masse des fichiers de test pour des spécifiques client sur un TMS.

Si quelqu’un a une idée géniale comme toujours je suis preneur !! (en espérant avoir été clair)

D’avance merci.

Informatiquement votre !
 

Pièces jointes

  • Matrice fichier test 2.xlsx
    183.7 KB · Affichages: 9

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

@LASpiro
Dans un premier temps , pour gagner du temps
Testes cette macro
(ajoute avant une feuille que tu nommerais TEST)
et enjoy... ;)
VB:
Sub DuBienFaitDeLaMacroSurLaFormule()
Dim i&, f As Worksheet: Set f = Sheets("Formulaire")
Application.ScreenUpdating = False
dl = f.Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To dl
Sheets("TEST").Cells(i, 1) = Application.WorksheetFunction.TextJoin(";", True, f.Range("B4").Offset(i).Resize(, 59))
Next i
End Sub
 

max.lander

XLDnaute Occasionnel
Bonjour à tous,

Un début pour générer vos fichiers :


VB:
Sub Test()
Dim EOL, T As Integer
Dim Flx As String
Dim intFic As Integer

EOL = Feuil2.Range("A" & Rows.Count).End(xlUp).Row

For Each cell In Feuil2.Range("A1:A" & EOL)


If cell.Value <> "" Then

T = T + 1

Flx = "C:\TEST\Fichier " & T & ".txt"

intFic = FreeFile
Open Flx For Append As intFic
Print #intFic, cell.Value
Close intFic

Else
End If

Next cell


End Sub

 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG