exporter un tab en txt

Sub Transfert()
Dim CheminCible As String
Dim LigneMax As Long, Ligne As Long
Dim MaxCol As Integer
Dim Colonne As Integer
Dim Tourne As Worksheet
Dim Info As String
CheminCible = InputBox("Renseignez le chemin de destination des fichiers Text", "DEMANDE SYSTEME", "c:\Temp")
For Each Tourne In ThisWorkbook.Worksheets
If InStr(1, "Matrix_1,Matrix_2,TMP", Tourne.Name) > 0 Then
Open CheminCible & "\" & Tourne.Name & "_" & Replace(Date, "/", "_") & ".txt" For Output As #1
With Worksheets(Tourne.Name)
If InStr(1, Tourne.Name, "Matrix") > 0 Then
MaxCol = 7
Else
MaxCol = 1
End If
LigneMax = .Range("A65536").End(xlUp).Row
For Ligne = 0 To LigneMax - 1
For Colonne = 0 To MaxCol - 1
If Colonne < MaxCol - 1 Then
Info = Info & .Range("A1").Offset(Ligne, Colonne) & ", "
Else
Info = Info & .Range("A1").Offset(Ligne, Colonne)
End If
Next Colonne
Print #1, Info
Info = ""
Next Ligne
End With
Close #1
End If
Next
End Sub

Cliquez pour agrandir...

camarchepas à dit:

Bonjour,

Voici une solution :
Attention , lors du renseignement du chemin destination , renseigner un chemin existant

Le code :



Et le fichier

Cliquez pour agrandir...