Bonjour,
Appliquer la macro suivante :
Sub galopin()
Sep = "|"
With Worksheets("Feuil1")
Set Plage = .Range("A1").CurrentRegion
End With
chemin = ThisWorkbook.Path & "\"
Open chemin & "kira" & ".csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
End Sub
Le fichier est créé dans le même dossier que le classeur source
On modifiera le chemin et le nom de dossier et même l'extension comme voulu...
Open chemin & "galopin" & ".xyz" For Output As #1 'conviendrait parfaitement...
A+