Generer un fichier txt avec un copier/coller

[piech]

Bonjour,

j'ai developper un ensemble de macro dans le fichier qui me permet de générer un fichier de type txt avec copiant l'ensemble des données contenue dans l'ongelt 'ecb' de mon fichier "journal écritures ATG via lot ecb". Mais je souhaiterais améliorer ce copier/coller en ne copiant uniquement les cellulles renseignées. Dans le fichier ci-joint j'ai seulement besoins des données des cellules Q2àQ29 (données sur fonds rose) et non l'intégralité des données de Q2 à Q51
Par avance merci de votre aide. Mon fichier étant de grosse taille je vous laisse le soin de me contacter afin de vous le transmettre en direct
merci par aide
christophe

 

[Papou-net]

Re : Generer un fichier txt avec un copier/coller

Bonjoir piech, et bienvenue,

Le plus simple et le plus efficace serait que tu crées un fichier exemple allégé à partir de ton application, en remplaçant éventuellement les données confidentielles. Et que tu le joignes sur ce fil.

Cordialement.

 

[piech]

Re : Generer un fichier txt avec un copier/coller

Bonjour, voici donc une version allégé avec l'onglet à partir du quel est générer le fichier séquentiel via le bouton générer le lot ecb
Bien à vous

 

[Papou-net]

Re : Generer un fichier txt avec un copier/coller

Bonjour piech,

Voici une copie de ton fichier avec la macro modifiée.

Tu remarqueras que je l'ai simplifiée : en effet, une seule boucle suffit à balayer les cellules de la plage Rg puisqu'elle ne comporte qu'une seule colonne. D'autre part, j'ai défini la plage Rg de la cellule Q2 jusqu'à la dernière ligne de la colonne, mais le paramètre SpecialCells ne prend en compte que les cellules remplies (elles ne sont pas forcément sur des lignes contigües).

Je te laisse le soin de tester cette solution.

A +

Cordialement.

 

[piech]

Re : Generer un fichier txt avec un copier/coller

Bonjour,
Mille merci pour cette aide. Cela fonctionne bien.
Cependant dans le fichier générer le copier/coller est n'est pas sur le 1er ligne mais le seconde.
Comment peut-on corriger ce retour clavier ?
Cordialement
merci
christophe

 

[Papou-net]

Re : Generer un fichier txt avec un copier/coller

Bonsoir piech,

Je n'ai pas bien compris ta dernière question.

Peux-tu préciser davantage, avec un exemple joint si possible ?

A +

Cordialement.

 

[piech]

Re : Generer un fichier txt avec un copier/coller

Bonsoir,

Afin d'etre plus explicite dans ma remarque, je joint un pj une image du fichier générer.

En effet il y a un retour clavier avant la ligne *JECB1160313. Cette dernière mention doit être sur la 1er ligne.

Dans l image "lotok.jpg" il y a le résultat désiré.

Merci d'avance pour ce cout de main.

Christophe

 

[Papou-net]

Re : Generer un fichier txt avec un copier/coller

RE :

C'est bien ce que je croyais avoir compris, mais sans en être certain d'où ma demande.

Pour y remédier, tu dois donc modifier une ligne dans le code :

Sub lotecb()
Dim Rg As Range, C As Range
Dim T As String * 145, Texte As String

Set Rg = Feuil2.Range("Q2:Q" & Rows.Count).SpecialCells(xlCellTypeConstants)

For Each C In Rg
T = C.Text
Texte = IIf(Texte = "", T, Texte & vbCrLf & T)
Next
Open "G:\ecbpiec.dat" For Output As 1
Print #1, Texte
Close #1
MsgBox "Votre lot ebc a été générer", vbExclamation, "LOT ECB"
End Sub

​

Cordialement.

 

[piech]

Re : Generer un fichier txt avec un copier/coller

Bonsoir,
C'est super, milles merci cela fonctionne correctement. encore merci pour ce coup de main.
Bien à vous.
Christophe