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

Bonjour pijaku,

je suis vraiment nouveau dans la programmation, je suis à la recherche d'une procédure, qui va me permettre de mettre en place un macro à l'aide d'un bouton dans un fichier Excel pour générer un fichier texte (txt) ( sachant que le fichier doit être générer a partir de la 3éme feuille du mon fichier Excel . 

la 3 ème feuille son nom est CNSS comporte

- une entête sur  4 lignes

- les valeurs a enregistrer dans le fichier commencent  à partir de la 5 ème ligne 2 ème colonne ( B5 ) comportant :

       * matricule1:8 caractères ;  clé1 : 2 caractères ;  codeExp: 4 chiffre ; trimestre : 1 c ; Année : 4 c ; Num page : 3 c; Num ligne 2 c ; matricule2 : 8 c; clé2 : 2c ;Identité : 60c ; num carte : 8c; salaire: 10 c; zone : 10 c

il ya maximum 100 lignes

( L'enregistrement sans espaces ou caractères ) 

0024275864000012023001010000000000aaaaaaaaaaaaaaaaaaaaaaaaaaa                                              0000000000090000000000000000

nom du fichier à générer  : matricule1cle1codeExp.TrimstreAnnée

Répertoire : au choix

le nom 

Achraf

merci d'avance.

CDT,

Pour les entêtes, inscris en une pour les colonnes E et F...
Et n'oublies pas d'adapter la macro sur cette ligne :

MesDonnees = .Range("A1:E" & DernLigne).Value

qui devient :

MesDonnees = .Range("A1:F" & DernLigne).Value

Pourrais tu me donner le nombre de caractère par colonne, du style : col A : 5 Car etc...

Attention toutefois, en fonction de la résolution graphique des polices d'écritures, de la taille des lettres elles mêmes, ton fichier txt n'aura jamais la même "tronche" qu'un classeur Excel avec des colonnes bien "carrées"...

regarde ici :
14 m
mmmmmmmmmmmmmm
14 i
iiiiiiiiiiiiii

Comprends tu?

Je ne comprends pas bien ta demande...

Ok, mais tu veux quoi? Qu'elle est ta question?
N'oublie pas que je n'ai pas tes données sous les yeux...

Oui, faisons comme ça.

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
  'Ici on traite le souci de la ligne d'entêtes...
  i = LBound(MesDonnees, 1) Then Ligne = Left(Ligne, Len(Ligne) - 4)
  'Ecrit dans le fichier texte ligne par ligne
  Print #1, Ligne
  Ligne = ""
Next i
'Fermeture
Close #num
End Sub

erreur de copier-coller.
Remplacer :

i = LBound(MesDonnees, 1) Then Ligne = Left(Ligne, Len(Ligne) - 4)

par :

If i = LBound(MesDonnees, 1) Then Ligne = Left(Ligne, Len(Ligne) - 4)

Avec ce code ?

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
  'Ici on traite le souci de la ligne d'entêtes...
  If i = LBound(MesDonnees, 1) Then Ligne = Left(Ligne, Len(Ligne) - 4)
  'Ecrit dans le fichier texte ligne par ligne
  Print #1, Ligne
  Ligne = ""
Next i
'Fermeture
Close #num
End Sub

J'obtiens bien une ligne d'entête comme ceci :
1 |30 |204583100 |05052014093526 |

Pour obtenir :
1 |30 |204583100 |05052014093526

il faut remplacer :

  If i = LBound(MesDonnees, 1) Then Ligne = Left(Ligne, Len(Ligne) - 4)

par :

  If i = LBound(MesDonnees, 1) Then Ligne = Left(Ligne, Len(Ligne) - 6)

Ok :

Sub TestCreationFichierTxt()
Dim MesDonnees()
Dim Chemin As String, Ligne 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: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 traite le souci de la ligne d'entêtes...
  If i = LBound(MesDonnees, 1) Then
    Ligne = Left(Ligne, Len(Ligne) - 4)
    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

La suite.....

AS tu compris comment j'avais transformé 30 en 00000030?
cette partie du code :

    ColBInit = Split(Ligne, " |")(1)
    ColB = ColBInit
    Do While Len(ColB) < 8
      ColB = "0" & ColB
    Loop
    Ligne = Replace(Ligne, ColBInit, ColB)

Si tu l'as comprends, tu peux faire la même chose pour les autres colonnes...

La fonction Split (voir l'aide en ligne sur cette fonction)
Supposons Ligne = "Part1 |Part2 |Part 3 |Pat4"

Split(Ligne, " |")(0)

=> nous renvoie Part 1

Split(Ligne, " |")(1)

=> nous renvoie Part2

Split(Ligne, " |")(2)

=> nous renvoie Part 3

Split(Ligne, " |")(3)

=> nous renvoie Pat4
Donc pour ta colonne A utilise

Split(Ligne, " |")(0)

Attention au Replace également.

Ligne = Replace(Ligne, ColAInit, ColA) 

Si ColAInit = 1, tous les chiffres 1 de Ligne seront remplacés par " 1".
Comme il s'agit de la partie à gauche de Ligne, il suffit de récupérer la partie à droite du premier " |", donc utilises plutôt :

Ligne = ColA & Right(Ligne, Len(Ligne) -3)

C'est de la "simple" manipulation de caractères...

Bonjour,

Tu as eu toutes les infos qu'il te faut pour faire ce que tu veux faire (Salut Franck et chapeau pour ta patience).
Je n'ai pas vraiment l'impression que tu ais lu et appliqué toutes les recommandations données par Franck. Tu te contentes de copier/coller le code qu'il te donne sans vraiment chercher à comprendre.

Ce que tu demandes n'est rien de plus que de la manipulation de chaîne de caractères.