mettre en place un macro qui va me generer un fichier txt Résolu

Question

Bonjour ALL,

je suis vraiment nouveau dans la programmation, je suis à la recherche d'une procédure, un document ou une explication détaillé s'il vous plait qui va me permettre de mettre en place un macro dans un fichier Excel pour générer un fichier plat (txt) pour éviter la manipulation des données. j'aurai besoin d'un en tête (avec des informations délimitées par des |) dans le fichier et ensuite des lignes avec plusieurs colonnes délimité par des " |"  .

merci d'avance.

CDT,

pijaku · Answer

Salut,

Un fichier .csv ne conviendrait pas? 
 
Cordialement, 
Franck

AHI_250 · Answer

Bonjour Franck,

En fait, le serveur qui est dédié pour traité le fichier attend un fichier .txt merci si tu as un chemin de me le dire s'il te plaît.

CDT,
AHI

pijaku · Answer

Pour tester...
Je ne l'ai pas essayé et l'ai écris ici, donc il y a peut être quelques erreurs...
A ADAPTER : cf commentaires de la macro

Sub TestCreationFichierTxt()
Dim MesDonnees()
Dim Chemin As String, Ligne As String
Dim num As Integer
Dim i As Long, j As Long, DernLigne As Long
num = FreeFile
With Sheets("Feuil1") ' A ADAPTER le nom de la feuille contenant les données
  'A ADAPTER au cas ou la colonne A ne serait pas la plus "longue"
  DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
  'A ADAPTER ici ne traite que les colonnes de A à E
  MesDonnees = .Range("A1:E" & DernLigne).Value
End With
'A ADAPTER : chemin d'accès complet pour le stockage du fichier txt
Chemin = "C:\Users\MoiMeme\Desktop"
'A ADAPTER le nom du fichier txt à créer
Open Chemin & "\MonFichierTexte.txt" For Output As #num
'Boucle sur la liste des mots
For i = LBound(MesDonnees, 1) To UBound(MesDonnees, 1)
  For j = LBound(MesDonnees, 2) To UBound(MesDonnees, 2)
    If j = LBound(MesDonnees, 2) Then 
      Ligne = MesDonnees(i, j) & " |"
    Else
      Ligne = Ligne & MesDonnees(i, j) & " |"
    End If
  Next j
  'Ecrit dans le fichier texte ligne par ligne
  Print #1, Ligne
  Ligne = ""
Next i
'Fermeture
Close #num
End Sub

AHI_250 · Answer

Merci infiniment Franck j'ai adapté le fichier .txt est bien crée mon souci actuellement c'est que le nombre de colonne de  l'entête est différent du nombre de colonne des autres lignes, entête sur 4 colonnes et le reste des lignes sur 6 colonnes et les colonnes sont définies sur une longueur bien  précise  par exemple la date c'est 14 et le matricule sur 5 merci s'il te plaît de m'indiqué comment ajouter cela au code du macro.

Merci beaucoup.

CDT,

AHI_250 · Answer

Pour l'entête:

col A:3  car
Col B:8  mais si je mets 4 car par exemple dans le fichier Excel que le reste soit complété par des 00 dans le fichier .txt 
col C:12
col D:14

pour les autres lignes
col A:5  car
Col B:11
col C:3
col D:12
col C:20
col E:20
col F:1 

pour MesDonnees = .Range("A1:E" & DernLigne).Value j'avais déjà adapté cela 

MesDonnees = .Range("A1:G" & DernLigne).Value


CDT,

AHI_250 · Answer

En fait le format de fichier de sortie c'est à dire le .txt a deux partie :

-une entête
-et des enregistrements

et donc 

Pour l'entête: 

col A:3 car 
Col B:8 
col C:12 
col D:14 

pour les autres lignes 
col A:5 car 
Col B:11 
col C:3 
col D:12 
col C:20 
col E:20 
col F:1

je sais pas si je me fais comprendre.
par exemple:

1  |00000030|000204583100|05052014093526
01081|08705152436|674|000007928500|AHI                 |MANGA 
01031|09977967643|952|000004270000|ZOOZOUU             |JOJOUA 


CDT,

AHI_250 · Answer

Je crois que je vais te posé mes préoccupations étape par étape s'il te plaît.

Pour l'entête avec le code que tu ma donné quand je génère mon fichier .txt vu que c'est 4 colonnes j'ai deux "|" qui continu parce que dans le code sa été défini pour 6 colonnes comment faire pour régler cela?

CDT,

AHI_250 · Answer

S'il te plaît J'ai un message d'erreur "erreur de compilation attendu fin d'instruction"

CDT,

AHI_250 · Answer

Voilà ce que j'ai dans le fichier généré avec le nouveau code

1 |30 |204583100 |05052014093526 | | 

je veux pas avoir les deux dernies "|"

CDT,

AHI_250 · Answer

ok ce problème est réglé merci infiniment concernant le meme entête

j'ai un problème avec les positions en fait 
1 |30 |204583100 |05052014093526 

la 2èm colonne c'est à dire ou il est mit 30 est sur 8 positions donc je veux avoir dans le fichier .txt 

 1 |00000030 |204583100 |05052014093526 quand je mets 30 dans le fichier excel ou si je mets 123 dans Excel je veux avoir 

dans le .txt  1 |00000123 |204583100 |05052014093526 


espérant que je me fais comprendre 

CDT,

AHI_250 · Answer

C'est ok merci .

toujours entête

1 |00000030|000000012300|05052014093526

la 1er colonne c'est à dire ou il est mi 1 est sur 3 positions je veux avoir dans le .txt
trois  positions pour cette colonne
par exemple:

1  |00000030|000000012300|05052014093526

et pour la 3èm colonne elle est sur 12 positions quand je mets 123 dans excel je veux avoir dans le fichier .txt


1  |00000030|000000012300|05052014093526

CDT,

AHI_250 · Answer

Excuse moi pour le retard de ma réponse en fait j'avais déjà fait cette modification avant de t'envoyer ma dernière requête voilà

    ColAInit = Split(Ligne, " |")(1)
    ColA= ColAInit
    Do While Len(ColA) < 3
    ColA= " " & ColA
     Loop
    Ligne = Replace(Ligne, ColAInit, ColA) 

cela ne ma rien donné comme réponse .Tu peux voir mon code s'il te plaît?

CDT,

AHI_250 · Answer

Sub TestCreationFichierTxt()
Dim MesDonnees()
Dim Chemin As String, Ligne As String, colA As String, colAInit As String, ColB As String, ColBInit As String
Dim num As Integer
Dim i As Long, j As Long, DernLigne As Long
num = FreeFile
With Sheets("Feuil1") ' A ADAPTER le nom de la feuille contenant les données
  'A ADAPTER au cas ou la colonne A ne serait pas la plus "longue"
  DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
  'A ADAPTER ici ne traite que les colonnes de A à E
  MesDonnees = .Range("A1:G" & DernLigne).Value
End With
'A ADAPTER : chemin d'accès complet pour le stockage du fichier txt
Chemin = "C:\Users\moi-meme\Desktop"
'A ADAPTER le nom du fichier txt à créer
Open Chemin & "\MonFichierTexte.txt" For Output As #num
'Boucle sur la liste des mots
For i = LBound(MesDonnees, 1) To UBound(MesDonnees, 1)
  For j = LBound(MesDonnees, 2) To UBound(MesDonnees, 2)
    If j = LBound(MesDonnees, 2) Then
      Ligne = MesDonnees(i, j) & "|"
    Else
      Ligne = Ligne & MesDonnees(i, j) & "|"
    End If
  Next j
  'Ici on traite le souci de la ligne d'entêtes...
  If i = LBound(MesDonnees, 1) Then
    Ligne = Left(Ligne, Len(Ligne) - 7)
    colAInit = Split(Ligne, "|")(1)
    colA = colAInit
    Do While Len(colA) < 3
      ColB = " " & colA
    Loop
    Ligne = Replace(Ligne, colAInit, colA)
    ColBInit = Split(Ligne, "|")(1)
    ColB = ColBInit
    Do While Len(ColB) < 8
      ColB = "0" & ColB
    Loop
    Ligne = Replace(Ligne, ColBInit, ColB)
  End If
  'Ecrit dans le fichier texte ligne par ligne
  Print #1, Ligne
  Ligne = ""
Next i
'Fermeture
Close #num
End Sub

voilà tout mon code.

AHI_250 · Answer

Bonsoir ,

j'ai eu des soucis avec Excel j'ai du redémarré ma machine  parce qu'il ne fessait que se planté j'ai modifier mon code mais voilà ce que je trouve il m'ajoute deux autres colonnes.

1|00000123|00000123|12062010000123|00000123|1206201


code:

'Ici on traite le souci de la ligne d'entêtes...
  If i = LBound(MesDonnees, 1) Then
    Ligne = Left(Ligne, Len(Ligne) - 7)
    ColBInit = Split(Ligne, "|")(1)
    ColB = ColBInit
    Do While Len(ColB) < 8
      ColB = "0" & ColB
    Loop
    Ligne = Replace(Ligne, ColBInit, ColB)
  End If
  
  If i = LBound(MesDonnees, 1) Then
  ColAInit = Split(Ligne, " |")(0)
  ColA = ColAInit
 Do While Len(ColA) < 3
 Loop
 Ligne = ColA & Right(Ligne, Len(Ligne) - 3)
 End If
 

CDT,

AHI_250 · Answer

Je sais que je me répète mais je voulais juste préçiser que la 1er colonne est sur 3 position et quand je mets 1 dans Excel je veux avoir dans mon .txt:
 
1  |Part2|Part3|Part4


CDT,

AHI_250 · Answer

Bonjour FRANCK,

S'il te  plaît tu peux m'aider à terminer ma macro je te prie de me répondre  j'en n'ai vraiment besoin.

CDT,

AHI_250 · Answer

Bonjour ,

j'ai pu régler le problème de la A colonne mais j'aimerais avoir de l'aide sur la  colonne C (elle est sur 12 positions) de sorte à avoir un fichier .txt dont le contenu est comme ce qui suit:

si je mets X dans Excel j'aimerais obtenir dans le .txt 000000000X00 si je mets 450 j'aimerais avoir  000000045000 le code que j'ai me permet d'avoir la valeur dans excel et les autres positions sont accupées par des "0" or moi je veux que deux "0" apres la valeur je vous laisse mon code merci de m'aider à régler cela svp

Sub TestCreationFichierTxt()
Dim MesDonnees()
Dim Chemin As String, Ligne As String, ColB As String, ColBInit As String, ColC As String, ColCInit As String
Dim num As Integer
Dim i As Long, j As Long, DernLigne As Long
num = FreeFile
With Sheets("Feuil1") ' A ADAPTER le nom de la feuille contenant les données
  'A ADAPTER au cas ou la colonne A ne serait pas la plus "longue"
  DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
  'A ADAPTER ici ne traite que les colonnes de A à E
  MesDonnees = .Range("A1:E" & DernLigne).Value
End With
'A ADAPTER : chemin d'accès complet pour le stockage du fichier txt
Chemin = "C:\Users\moi-même\Desktop"
'A ADAPTER le nom du fichier txt à créer
Open Chemin & "\MonFichierTexte.txt" For Output As #num
'Boucle sur la liste des mots
For i = LBound(MesDonnees, 1) To UBound(MesDonnees, 1)
  For j = LBound(MesDonnees, 2) To UBound(MesDonnees, 2)
    If j = LBound(MesDonnees, 2) Then
      Ligne = MesDonnees(i, j) & "  |"
    Else
      Ligne = Ligne & MesDonnees(i, j) & "|"
    End If
  Next j
  'Ici on traite le souci de la ligne d'entêtes...
  If i = LBound(MesDonnees, 1) Then
    Ligne = Left(Ligne, Len(Ligne) - 7)
    ColBInit = Split(Ligne, "|")(1)
    ColB = ColBInit
    Do While Len(ColB) < 8
      ColB = "0" & ColB
    Loop
    Ligne = Replace(Ligne, ColBInit, ColB)
  End If
  
  If i = LBound(MesDonnees, 1) Then
    ColCInit = Split(Ligne, "|")(2)
    ColC = ColCInit
    Do While Len(ColC) < 12
      ColC = "0" & ColC & "0"
    Loop
    Ligne = Replace(Ligne, ColCInit, ColC)
  End If
  'Ecrit dans le fichier texte ligne par ligne
  Print #1, Ligne
  Ligne = ""
Next i
'Fermeture
Close #num
End Sub

ce code me donne : A   |B|000045000000|

Espérant que je me suis fais comprendre

je reste disponible pour toutes informations complémentaires 

CDT

AHI_250 · Answer

Bonsoir ALL,

y'a vraiment personne pour m'aider s'ils vous plaît.

CDT,

AHI_250 · Answer

Bonsoir,

En fait je comprends bien ce que vous dites et je profite pour remercier FRANCK mais j'avais bien spécifié au début que je m'y connaissait pas vraiment en programmation j'ai bien compris ce que FRANCK a fait raison pour laquelle j'ai pu faire pour la colonne C


 If i = LBound(MesDonnees, 1) Then 
 ColCInit = Split(Ligne, "|")(2) 
 ColC = ColCInit 
 Do While Len(ColC) < 12 
 ColC = "0" & ColC & "0" 
 Loop 
 Ligne = Replace(Ligne, ColCInit, ColC) 
 End If 

mais le problème c'est que je n'arrive pas à positionner les valeurs là ou il faut. Merci  cas même de m'avoir répondu et je vous prie de m'aider à terminer svp.

CDT,

pijaku · Answer

Bonjour,

A ce niveau, nous allons séparer les deux procédures :
1- la Sub qui écrit le fichier txt
2- Une fonction de traitement de la ligne d'entête.
 
Sub Main_CreationFichierTxt()
Dim MesDonnees()
Dim Chemin As String, Ligne As String
Dim num As Integer
Dim i As Long, j As Long, DernLigne As Long
num = FreeFile
With Sheets("Feuil1") ' A ADAPTER le nom de la feuille contenant les données
  'A ADAPTER au cas ou la colonne A ne serait pas la plus "longue"
  DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
  'A ADAPTER ici ne traite que les colonnes de A à E
  MesDonnees = .Range("A1:E" & DernLigne).Value
End With
'A ADAPTER : chemin d'accès complet pour le stockage du fichier txt
Chemin = "C:\Users\MoiMeme\Desktop"
'A ADAPTER le nom du fichier txt à créer
Open Chemin & "\MonFichierTexte.txt" For Output As #num
'Boucle sur la liste des mots
For i = LBound(MesDonnees, 1) To UBound(MesDonnees, 1)
  For j = LBound(MesDonnees, 2) To UBound(MesDonnees, 2)
    If j = LBound(MesDonnees, 2) Then
      Ligne = MesDonnees(i, j) & " |"
    Else
      Ligne = Ligne & MesDonnees(i, j) & " |"
    End If
  Next j
  'Ici on appelle la fonction de traitement d'entêtes...
  If i = LBound(MesDonnees, 1) Then Format_Entete Ligne
  'Ecrit dans le fichier texte ligne par ligne
  Print #1, Ligne
  Ligne = ""
Next i
'Fermeture
Close #num
End Sub

Function Format_Entete(Entete As String) As String
Dim ColB As String, ColBInit As String
Dim ColC As String, ColCInit As String
       
    Entete = Left(Entete, Len(Entete) - 4)

'Placer ici le traitement de la colonne A

'traitement colonne B
    ColBInit = Split(Entete, " |")(1)
    ColB = ColBInit
    Do While Len(ColB) < 8
        ColB = "0" & ColB
    Loop
    Entete = Replace(Entete, ColBInit, ColB)

'traitement colonne C
    ColCInit = Split(Entete, "|")(2) & "00" 'ici on ajoute les deux zéros après
    ColC = ColCInit
    Do While Len(ColC) < 12
        ColC = "0" & ColC
    Loop
    Entete = Replace(Entete, ColCInit, ColC)

'Placer ici le traitement de la colonne D

Format_Entete = Entete
End Function

Dans ces codes, il y a peut être des petites erreurs car je n'ai pas testé.
A voir donc

Cordialement, 
Franck

AHI_250 · Answer

Bonjour Franck,

Depuis hier je cherchais à comprendre la fonction de traitement de la ligne d'entête. j'ai pas vraiment avancé dessus je vous prie de me comprendre c'est mes premiers pas dans la programmation.
Avec ce code

Function Format_Entete(Entete As String) As String
Dim ColB As String, ColBInit As String
Dim ColC As String, ColCInit As String
Dim ColD As String, ColDInit As String

Entete = Left(Entete, Len(Entete) - 4)

'traitement colonne B
    ColBInit = Split(Entete, " |")(1)
    ColB = ColBInit
    Do While Len(ColB) < 8
      ColB = "0" & ColB
    Loop
    Entete = Replace(Entete, ColBInit, ColB)

'traitement colonne C
    ColCInit = Split(Entete, "|")(2) & "00"  'ici on ajoute les deux zéros après
    ColC = ColCInit
    Do While Len(ColC) < 12
        ColC = "0" & ColC
    Loop
    Entete = Replace(Entete, ColCInit, ColC)

'Placer ici le traitement de la colonne D

ColDInit = Split(Entete, "|")(3)
    ColD = ColDInit
    Do While Len(ColD) < 14
      'ColB = "0" & ColB
    Loop
    Entete = Replace(Entete, ColDInit, ColD)

Format_Entete = Entete
End Function

voilà le résultat que j'obtiens  

1  |80|450|23451765432876| au lieux de  

1  |0000080|000000045000|23451765432876

Alors stp est ce que tu peux expliquer les informations d'une colonne pour que je puisse comprendre mieux? Aussi, j'aimerais s'il te plaît savoir 

ColXInit=?

Len(ColX)=?

Merci infiniment.
CDT

AHI_250 · Answer

Bonjour FRANCK,

Honnêtement je te remercie pour  l'explication je comprends de plus en plus mais je rencontre des problèmes j'ai l'impression la fonction de traitement de la ligne d'entête n'est pas pris en compte parce que avec ce code j'ai un fichier txt comme ceci 1  |30|500|201406181 je ne sais pas si j'ai oublié quelque chose d'important.

Sub Main_CreationFichierTxt()
Dim MesDonnees()
Dim Chemin As String, Ligne As String
Dim num As Integer
Dim i As Long, j As Long, DernLigne As Long
num = FreeFile
With Sheets("Feuil1") ' A ADAPTER le nom de la feuille contenant les données
  'A ADAPTER au cas ou la colonne A ne serait pas la plus "longue"
  DernLigne = .Range("D" & Rows.Count).End(xlUp).Row
  'A ADAPTER ici ne traite que les colonnes de A à E
  MesDonnees = .Range("A1:D" & DernLigne).Value
End With
'A ADAPTER : chemin d'accès complet pour le stockage du fichier txt
Chemin = "C:\Users\MOI-MEME\Desktop"
'A ADAPTER le nom du fichier txt à créer
Open Chemin & "\MonFichierTexte.txt" For Output As #num
'Boucle sur la liste des mots
For i = LBound(MesDonnees, 1) To UBound(MesDonnees, 1)
  For j = LBound(MesDonnees, 2) To UBound(MesDonnees, 2)
    If j = LBound(MesDonnees, 2) Then
      Ligne = MesDonnees(i, j) & "  |"
    Else
      Ligne = Ligne & MesDonnees(i, j) & "|"
    End If
  Next j
  'Ici on appelle la fonction de traitement d'entêtes...
  If i = LBound(MesDonnees, 1) Then Format_Entete Ligne
  'Ecrit dans le fichier texte ligne par ligne
  Print #1, Ligne
  Ligne = ""
Next i
'Fermeture
Close #num
End Sub

Function Format_Entete(Entete As String) As String
Dim ColA As String, ColB As String, ColC As String, ColD As String

Entete = Left(Entete, Len(Entete) - 4)

ColA = Split(Entete, "|")(0)
'placer ici le traitement pour la colonne A

'traitement colonne B
    ColB = Split(Entete, "|")(1)
    Do While Len(ColB) < 8
    ColB = "0" & ColB
    Loop

'traitement colonne C
    'dans la colonne C, on veut d'abord ajouter deux 0 à la fin, dont acte :
    ColC = Split(Entete, "|")(2) & "00"
    Do While Len(ColC) < 12
        ColC = "0" & ColC
    Loop

'traitement colonne D
    ColD = Split(Entete, "|")(3)
    Do While Len(ColD) < 14
     ColD = "0" & ColD
    Loop

'On formate la chaine de caractères de "sortie"
    Format_Entete = ColA & "  |" & ColB & "|" & ColC & "|" & ColD
    End Function

CDT

AHI_250 · Answer

S'il te plaît peut être qu'il faudra essayer le code voir je viens de faire ce que tu as demandé j'ai le même résultat j'ai même essayer sur le laptop d'un collègue on a le même résultat. je sais pas dans ce code on n'a pas utilisé de variable du genre "ColBInit " est ce que c'est pas ce qui fait que malgré  ce code j'ai pas les "0" avant ColB.


 'traitement colonne B
    ColB = Split(Entete, "|")(1)
    Do While Len(ColB) < 8
    ColB = "0" & ColB
    Loop
 


CDT,

AHI_250 · Answer

je comprends pas bien exemple d'entête avant/après mais bon voilà ce que j'ai avec mon code  1  |30|500|20140618102 or il était sensé me donner 
      
1  |00000030|000000050000|20140618102830

ColA sur 3 positions
ColB sur 8 positions
ColC sur 12 positions
ColD sur 14 positions du genre la date (DDMMYYYYHHMMSS)

CDT,

AHI_250 · Answer

HA ok désolé c'est exactement ça.

CDT,

AHI_250 · Answer

S'est bizard mais il ne fonctionne pas j'ai toujours 

1  |30|500|201461810283  avec le code

AHI_250 · Answer

Bonsoir Pijaku,

Tu peux s'il te plaît testé le code ?il ne marche pas chez moi.

CDT,

Mettre en place un macro qui va me generer un fichier txt

27 réponses

Votre réponse

Newsletters