Enregistrer avec un format défini

Bonjour

Ne connaissant pas la techno, je recherche une assistance pour une macro toute simple

Je dispose d'un tableau d'une dizaine de colonnes

je souhaite simplement via une macro déclencher un 'enregistrer sous' avec un format txt prédéfinie.

Dans ce txt je souhaite retrouvé mes colonnes avec un séparateur à "|".

Une fois la sauvegarde de mon txt validé, mon document doit toujours être typé '.xls'

Voili voilou,
merci d'avance au contributeur qui pourra m'aiguiller.

Bon we

Bonjour,

Ce code devrait faire ce que tu souhaites

Analyse le et pose des questions si besoin

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub FichierTExte()   Dim FileD As FileDialog Dim strLigne As String Dim i As Long Dim c As Integer Dim sh As Worksheet   Set sh = ThisWorkbook.Sheets("Feuil1") Set FileD = Application.FileDialog(msoFileDialogSaveAs)       If FileD.Show = -1 Then   Open FileD.SelectedItems(1) For Output As #1   For i = 1 To sh.Range("A65536").End(xlUp).Row strLigne = "" For c = 1 To sh.Rows(i).End(xlToRight).Column If strLigne <> "" Then strLigne = strLigne & "|" strLigne = strLigne & sh.Cells(i, c).Value Next c Print #1, strLigne Next i   Close #1   MsgBox "Fichier Disponible" End If   End Sub

---

Merci beaucoup Jérôme,
La macro fonctionne au poil, je vous souhaite un très bon week-end

bonsoir

la macro de jfontaine est parfaite néanmoins il y a un petit détail qui me chagrine

si par exemple pour une raison ou une autre il y a dans une ligne, une cellule vide
avec

Code:

---

If strLigne <> "" Then strLigne = strLigne & "|"

---

on teste donc la valeur de la cellule donc il risque d'y avoir une omission dans la boucle

pour ma part j'appliquerais le teste par le nombre de colonne par ligne

sans vouloir offenser jfontaine bien sur

au plaisir

Salut patricktoulon, très bonne remarque. :P

chtimi.k si tu as ce cas, et si tu as besoin d'aide pour l'adaptation proposé par patricktoulon, fais le nous savoir.