VBA - Exporter en tableau format texte

Version imprimable

01/12/2015, 14h50
Safra

VBA - Exporter en tableau format texte

Bonjour,

Je cherche à exporter un tableau sous format "plain text" via macro, du type

+---+----+----+----+
| | 1 | 2 | 3 |
+---+----+----+----+
| a | a1 | a2 | a3 |
+---+----+----+----+
| b | b1 | b2 | b3 |
+---+----+----+----+
| c | c1 | c2 | c3 |
+---+----+----+----+

Qui permettrait de faire de "beaux tableau" adaptés à la longueur du contenu des cellules. Ceci par macro, sans passer par un site type http://www.tablesgenerator.com/text_tables#
Je cherche sur le web depuis 2 jours sans succès.
Avez vous une idée?
01/12/2015, 15h31
clementmarcotte

Bonjour,

Citation:

Envoyé par Safra

Bonjour,

Je cherche à exporter un tableau sous format "plain text" via macro

Avez vous une idée?

Mais oui ;)

Laisses Excel le faire lui-même.

1) Tu pars l'enregistreur de macros
2) Dans Excel, tu passes par Enregistrer sous... et tu choisis ton format dans la liste déroulante.
3) Quand tu as terminé, tu arrêtes l'enregistreur de macros.
01/12/2015, 15h32
NEC14

Bonjour,

Je ne vois pas ce que vous souhaitez faire exactement. Excel propose de très beaux modèles de tableaux.
Peut-être n'ai-je pas bien compris le sens de la question.
02/12/2015, 12h02
Safra

Bonjour clementmarcotte, quelle fonction d'Excel utiliser? je maitrise plutôt bien l'enregistreur d'habitude mais je ne sais pas quoi enregistrer. J'ai déjà tenté en mettant les | dans une colonne à part mais en définitive tout est décalé...

Bonjour NEC14, L'idée est de préparer des tableaux ensuite utilisables sur des sites de ventes, par exemple leboncoin.fr qui n'accepte que tu texte pur. Est-ce plus clair pour vous?
03/12/2015, 00h36
clementmarcotte

Quand tu fais Enregistrer Sous... tu remplaces classeur excel par autre chose. Tu déroules la liste et tu choisis fichier texte.
09/12/2015, 10h47
Safra

Merci pour l'info!

Au final je n'arrive pas tout à fait au rendu souhaité mais je laisse tomber l'idée et je cherche une solution alternative.
09/12/2015, 16h26
Marc-L

Bonjour, bonjour !

Pourtant ce n'est pas difficile s'il n'y a pas de cellule fusionnée et si la largeur de chaque colonne est prédéfinie !

Si tel est le cas, ré-ouvrir cette discussion puis joindre un classeur sans code en .xlsx et un fichier texte du résultat attendu …

______________________________________________________________________________________________________
Je suis Paris, …
10/12/2015, 14h12
Safra

1 pièce(s) jointe(s)

Bonjour Marc,
C'est bien là le soucis, c'est que la largeur de mes colonnes n'est pas défini.
J'ai bien trouvé comment remplir la cellule de "---" en fonction de la longueur de la largeur de la colonne mais ça ne semble pas prit en compte.

J'ai ajouté ici un fichier "exemple" que je tente de faire. En copie d'écran (dans le fichier excel) j'ai mis ce que j'obtiens et ce que je souhaites obtenir.

Le côté "automatisation" par macro du remplissage du tableau et de son extraction excel->texte une fois que le principe sera maitrisé ne me fait pas peur.

Merci pour vos aides!!
10/12/2015, 14h27
Marc-L

Dans le résultat recherché, la largeur des colonnes est bien grande pour le peu de caractères présents
sans compter la mise en forme centrée !

D'où sort la largeur de chaque colonne ?
11/12/2015, 12h30
Marc-L

Sans réponse et sans logique, j'impose !

http://perso.numericable.fr/mpl/pic/ExportCadre.jpg

Je choisis le cadre 1B se rapprochant le plus du classeur joint :

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
Sub Cadre1B(Rg As Range, FICHIER$, Optional BH As Byte = 151, Optional BV As Byte = 124)
    With Rg.Columns
        ReDim LM&(1 To .Count)
         For C& = 1 To .Count
          LM(C) = .Parent.Evaluate("MAX(LEN(" & .Item(C).Address & "))")
         Next
             VA = .Value
    End With
             F% = FreeFile
            Open FICHIER For Output As #F
    For R& = 1 To UBound(VA)
        For C = 1 To UBound(LM)
            Print #F, " " & VA(R, C) & String$(LM(C) - Len(VA(R, C)) + 1, 32) _
                          & IIf(C < UBound(LM), Chr$(BV), "");
        Next
        If R = 1 Then
            Print #F,
          For C = 1 To UBound(LM)
            Print #F, String$(LM(C) + 2, BH) & IIf(C < UBound(LM), Chr$(BV), "");
          Next
        End If
            Print #F,
    Next
            Close #F
End Sub
 
Sub Demo1B()
    Cadre1B Feuil1.Cells(1).CurrentRegion, ThisWorkbook.Path & "\Export Cadre .txt"
End Sub

Rappel des usages de ce forum:

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

23/12/2015, 15h02
Safra
Bonjour Marc-L,

Tout d'abord désolé de ne pas répondeur plus tôt, j'ai été éloigné de ce sujet par mon activité principale pendant quelques temps.
Merci beaucoup pour votre réponse qui colle parfaitement avec ce que je recherchais à faire!

Du coup je vais essayer d'étudier votre code pour l'adapter à ma macro principale.

Vous dites toutefois que l'aide VBA m'aurait permis de trouver ça mais je ne vois pas vraiment où ni comment, pouvez vous m'éclairer? Je serais interessé de voir (pour ma culture) les méthodes pour les autres procédures (1A, 2A/B/C)

Sinon, mon niveau en programmation ne semble pas être suffisant car il y a un certain nombre de caractères/fonctions utilisées dans le code que je ne connaissais pas.
Pouvez vous m’expliquer les quelques points ci dessous pour parfaire ma connaissance?
- "&" dans LM&
- "%" dans F%
- "#" dans #F
- La différence entre la fonction "Chr(...)" et "Chr$(...)" et entre "FICHIER" et "FICHIER$"
Joyeux Noël!
23/12/2015, 19h25
Marc-L

Certains types de données peuvent être déclarés à la volée - héritage du BASIC - via un caractère comme par exemple $ pour le type String …
Avec un point d'arrêt dans le code, voir la fenêtre des Variables locales pour l'équivalence des types de données ou encore dans l'aide VBA …

Bonnes fêtes !