Hello Thomas, Amiral, le Forum
Voici le code de LN modifé afin de d'obtenir une boite de dialogue, laquelle te proposera de sauver le TXT dans le même répertoire que le classeur où se trouvera le code, et te proposera aussi automatquement le nom de fichier "TheTxtBackUp-YYYY-MM-DD" avec donc la date du jour.
Sub RebuildTXT()
Dim TheLine As Integer
Dim TheText As String, ThePath As String, TheName As String
Dim TheFullPath As Variant
TheName = "TheTxtBackUp-" & Format(Date, "YYYY-MM-DD")
ThePath = ThisWorkbook.Path & "\"
TheFullPath = Application.GetSaveAsFilename(ThePath & TheName, "Fichier,*.txt")
If TheFullPath = False Then Exit Sub
Open TheFullPath For Output As #1
TheLine = 4
Do
TheLine = TheLine + 1
TheText = Range("D" & CStr(TheLine)).Text
If TheText = "" Then Exit Do
Print #1, TheText
Loop
Close
End Sub
Pour ta question sur le #1, c'est le FileNumber, un numéro indispensable qui peut se situer entre 1 et 511 pour ouvrir un fichier (de 1 à 255 pour des fichiers non-accessible par d'autres application et de 256 à 511 pour les fichiers accessible depuis d'autres applications. On peut aussi utiliser FreeFile pour obtenir un numéro disponible dans le cas d'un travail simultanée sur plusieurs fichiers... (Voir Aide VBA à "Open Statement")
Dans ton cas c'est une utilisation simple, inutile de changer quoique ce soit dans les FileNumbers.
Bon Appétit
@+Thierry