[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]
[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Plage [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] Fichier [COLOR=NAVY]As String[/COLOR], Chaine [COLOR=NAVY]As String
Dim[/COLOR] L [COLOR=NAVY]As Long
Dim[/COLOR] F [COLOR=NAVY]As Integer[/COLOR], C [COLOR=NAVY]As Integer
Set[/COLOR] Plage = Sheets(1).UsedRange
[COLOR=NAVY]Set[/COLOR] Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1)
F = FreeFile()
Fichier = Replace(ThisWorkbook.FullName, ".xls", ".txt")
[COLOR=NAVY]Open[/COLOR] Fichier [COLOR=NAVY]For Output As[/COLOR] #F
[COLOR=NAVY]For[/COLOR] L = 1 [COLOR=NAVY]To[/COLOR] Plage.Rows.Count
Chaine = Plage.Cells(L, 1)
[COLOR=NAVY]For[/COLOR] C = 2 [COLOR=NAVY]To[/COLOR] Plage.Columns.Count
Chaine = Chaine & "|" & Plage.Cells(L, C)
[COLOR=NAVY]Next[/COLOR] C
[COLOR=NAVY]Print[/COLOR] #F, Chaine
[COLOR=NAVY]Next[/COLOR] L
[COLOR=NAVY]Close[/COLOR] #F
[COLOR=NAVY]End Sub[/COLOR][/SIZE]