[VBA-E] .XLS vers .TXT (enregistrement fixe)

Version imprimable

01/03/2006, 17h16
turbo74

[VBA-E] .XLS vers .TXT (enregistrement fixe)

Bonjour,

J'ai un tableau d'environ 60 colonnes et n lignes.
Chaque ligne doit correspondre à un enregistrement en TXT.

La forme de cette enregistrement est composé de champs :
nom 60 car
prénom 25 car
age 2 car
...

Les séparteurs de ces champs sont l'espace et chaque champ doit toujours faire la même longueur quelque soit sont contenu..

Quel méthode me préconisez vous pour générer ce fichier TXT ?

Turbo74

Merci d'avance

Tu cherches dans la FAQ ou tu fais une recherche sur le forum, ce sujet a été x fois traité.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CréerFichierTxt()
Dim i, j, DernièreLigne, DernièreColonne
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select
    Selection.CurrentRegion.Select
    Set tbl = ActiveCell.CurrentRegion
    DernièreLigne = tbl.Rows.Count
    DernièreColonne = tbl.Columns.Count
    Cells(1, 1).Select
    Open "p:\InserComplété.txt" For Output As #1
    For i = 1 To DernièreLigne
        For j = 1 To DernièreColonne - 1  '**** Si tu veux mettre 1 donnée par ligne, supprime -1  et ****
            Print #1, Cells(i, j).Formula + ";"; '**** supprime ce point virgule et ****
        Next j
        Print #1, Cells(i, j + 1).Formula ' ***** supprime cette ligne **** fin si...
    Next i
    Close #1
End Sub

Reste plus qu'à adapter

A+

NB - Tu as de la veine que j'avais ça pas loin... :wink:

09/03/2006, 11h37
turbo74

Merci de m'avoir répondu.

Le prb ne vient pas du fait de lire, les cellules de ma feuille et de les enregistrer, le prb c'est que le fichier créé à un masque particulier (voir description + haut). Chq enreg doit se composer de plusieurs informations (renseignées ou non) mais ces dernières doivent toujours avoir la même longueur.

Merci par avance de vos précisions.

A+
09/03/2006, 13h17
SfJ5Rpw8
tu peu créer une fonction qui rajoute des espaces pour formater ta colonne :
Code:

1 2 3 Function MfNb(st As String, iNb As Integer) As String MfNb = Left(st & Space(iNb), iNb) End Function
de plus tu peu utiliser un tableau , pour stocker tes "largeurs" de colonnes...

tiens un peu de code ... , j'utilise la premiére ligne de la feuille courante pour définir la "largeur" des colonnes, cette premiére ligne n'est pas stocker dans fichier texte, seule les lignes suivantes y sont...

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub LanceSauveTexte()
 Dim stFichier As String
 stFichier = Application.GetSaveAsFilename(ActiveSheet.Name & ".txt")
 If stFichier = "" Then Exit Sub 'Abandon opérateur
 If Dir(stFichier) <> "" Then
   If MsgBox("Le fichier : " & vbCrLf & stFichier _
    & " Existe déjà voulez-vous l'écraser ?", _
    vbOKCancel, "Fichier existant") <> vbOK Then Exit Sub
 End If
  SauveTexte stFichier
 
End Sub
 
Function MfNb(st As String, iNb As Integer) As String
 MfNb = Left(st & Space(iNb), iNb)
End Function
'
' Procedure d'enregistrement dans fichier texte ..
'
Private Sub SauveTexte(stFichier As String)
Dim Lc() As Integer 'tableau largeur colonne
Dim r As Range ' Zone à sauver ...
Dim lg As Range ' Ligne de la Zone
Dim iC As Integer
Dim st As String
Dim f
' on sauve la zone "Contigu" à la cellule A1...( équivalent à Ctrl * en se positionnat sur A1)
Set r = ActiveSheet.Cells(1, 1).CurrentRegion
f = FreeFile
Open stFichier For Output As #f
 
 
For Each lg In r.Rows
 st = ""
 For iC = 1 To r.Columns.Count
   If lg.Row = 1 Then
    'On mémorise la Premiére ligne pour définir largeurs des colonnes..
     ReDim Preserve Lc(iC)
     Lc(iC) = Len(lg.Cells(iC))
     Else
     st = st & MfNb(lg.Cells(iC), Lc(iC))
   End If
 Next
 If st <> "" Then 'Ecriture de la ligne
  Print #f, st
 End If
Next
Close f
End Sub

:wink:

17/03/2006, 11h24
turbo74

Bonjour,

Et encore merci de vos réponses :D .

Toutefois, cela ne régle pas mon problème.

Voici à nouveaux quelques précisions qui j'espère vous permettrons de m'aider.

J'ai, donc, un tableau EXCEL avec des valeurs (qui proviennent de +ieurs tableaux). Ces cellules ont un format (longueur, nature ....) qui n'a aucune importance pour moi ........

Par contre, je dois générer un fichier TXT à partir de ce tableau MAIS avec un enregistrement toujours identique

(ligne 1) NOM (8car) + 1espace + PRENOM (8car) + 1espace ......
(ligne 2) NOM (8car) + 1espace + PRENOM (8car) + 1espace ......
....

Exemple : je peux avoir dans mon tableau excel dans la celulle où se trouve le nom une valeur supérieur à 10 caractères (ex : DEVELOPPEZ) mais lorsque je vais générer l'enregistrement TXT, cette zone ne devra pas se composer de plus de 8 caractères (ex : DEVELOPP).

Merci d'avance de vos réponses.

A+

Turbo74

NB : j'espère que je suis pas trop confus dans mes explications 8O
17/03/2006, 11h29
SfJ5Rpw8

as-tu essayer de comprendre le code que je t'ai poster ....

- la fonction MfNb te permet de formater en nombre de carcatéres la chaine donnée en paramétre, par rajout d'espace ou suppression de carcatéres...

- Modifie l'initialisation du tableau lc... en y plaçant le nombre de caractéres par colonne...
17/03/2006, 11h32
Megaxel

Salut, Turbo.
Franchement, bbil t'a maché le travail.
Il ne te reste presque rien à faire, alors modifie un tout petit peu son code toi-même, et tu auras le fichier texte que tu veux en sortie.
17/03/2006, 11h49
medbouh

je pense que le code proposé par BBIL Répond suffisament à ton besoin il faut juste faire des modif
17/03/2006, 12h28
ouskel'n'or

Le problème est que le séparateur choisi est l'espace or le code de bbil perturbe visiblement turbo74
Si c'est ça, remplace les espaces ajoutés par autre chose, ou mieux, utilise un autre séparateur (virgule, point virgule, etc...)

A+
17/03/2006, 15h30
turbo74

Salut bbil,

Merci beaucoup pour ton explication. C'est presque parfait.

Je suis hélas pas de ton niveau et le souci provient maintenant de la restranscription des valeurs :

- les numériques. Il me faut les cadrer àdroite en affichant 2 décimales.

Ne m'en veux pas de n'être pas à ton niveau :oops: .

Merci encore de tes réponses.

A+

Turbo 74
17/03/2006, 15h45
SfJ5Rpw8

Citation:

Envoyé par turbo74

Salut bbil,
- les numériques. Il me faut les cadrer àdroite en affichant 2 décimales.
Turbo 74

Voir instruction format... quelque chose du genre :

Code:

Format(MonNumerique,"#.00")

:wink: