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

[LASpiro]

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 !

 

[Staple1600]

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...

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

 

[LASpiro]

@Staple1600

Merci pour cette première réponse qui n'était pas demandée mais pour autant très intéressante !!

Au plaisir de vous lire !

Cordialement.

 

[max.lander]

Bonjour à tous,

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

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

​

​