exporter un tab en txt

[mout94]

Bonjour à tous,

Je souhaite exporter par une macro 2 tableaux de 7 colonnes mais le nombre de lignes est variable (chacun dans une feuille) vers un fichier .txt (créer un fichier avec le nom de l'onglet) dans le même répertoire.

exporter le contenu de la feuille TMP en fichier .txt avec le nom Project+date.
En gros à la fin je souhaite avoir 3 fichiers nommés project+la date, Matrix_1 et Matrix_2

Merci de votre aide

 

[camarchepas]

Re : exporter un tab en txt

Bonjour,

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

Le code :

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

Et le fichier

 

[mout94]

Re : exporter un tab en txt

Bonjour,

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

Le code :



Et le fichier

Merci camarchepas,

juste un truc, est-il possible que les fichiers soient sauvegardés dans le répertoire dont le chemin est indiqué dans la case AA1 de la feuille TMP.

Merci

 

[camarchepas]

Re : exporter un tab en txt

Voici,

si la cellule AA1 est vide, j'ai laissé en arrière plan , la demande par inputbox,
des fois que .....( Si AA1 est renseignée alors pas d'inputbox)😛😛