Enregistrer avec un format défini [Résolu]

[chtimi.k]

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

[jfontaine]

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

[chtimi.k]

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

[patricktoulon]

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

[jfontaine]

Salut patricktoulon, très bonne remarque.

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