Bonjour Alex, le Forum.
Pour répondre à ton problème, je pense que tu peux
remplacer la procédure SauvTexte() par celle-ci :
Sub SauvConvText()
Dim TabTemp As Variant
Dim Chemin As Variant
Dim F As String, T As String
Dim L As Long, L1 As Long
Dim C As Integer, C1 As Integer, N As Integer
'
Détermine le chemin de sauvegarde
F = ThisWorkbook.Name
If Right(F, 4) = ".xls" Then F = Left(F, Len(F) - 4)
Chemin = Application.GetSaveAsFilename(InitialFileName:=F, fileFilter:="Text Files (*.txt), *.txt", Title:="Enregistrer le fichier texte...")
If Chemin = False Then Exit Sub
'
Charge les données dans un tableau variant temporaire
With ActiveSheet
L = .Cells(1, 1).SpecialCells(xlLastCell).Row
C = .Cells(1, 1).SpecialCells(xlLastCell).Column
TabTemp = .Range(.Cells(1, 1), .Cells(L, C)).Value
End With
'
Crée le fichier txt et l'ouvre
N = FreeFile()
Open Chemin For Output As #N
'
Insère les lignes de données
For L1 = 1 To L
T = TabTemp(L1, 1)
For C1 = 2 To C
T = T & "/" & TabTemp(L1, C1)
Next C1
Print #N, T
Next L1
'
Fermer le fichier
Close #1
End Sub
Cordialement.
Didier_mDF