Copier texte vers un fichier txt

yusukens

XLDnaute Occasionnel

• 8 Juillet 2012

• #2

Re : Copier texte vers un fichier txt

Personne n'a une idée pour m'aider ?
j'ai trouvé pas mal d'astuce pour exporter en fichier texte mais aucun moyen pour changer l'extension en lsp

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Juillet 2012

• #3

Re : Copier texte vers un fichier txt

Bonsoir yusukens,

As-tu essayé de refaire tes manipulations avec l'enregistreur de macros d'Excel ?

Tu obtiendras un code que l'on pourra t'aider à optimiser.

Cordialement.

 

Vote positif 0 Vote négatif

yusukens

XLDnaute Occasionnel

• 8 Juillet 2012

• #4

Re : Copier texte vers un fichier txt

Bonsoir,
impossible car l'enregistrement de la macro s'arrête dès que je créer un fichier en dehors de Excel ( c'est à dire quand je créer un fichier txt ou lsp).

 

Vote positif 0 Vote négatif

yusukens

XLDnaute Occasionnel

• 8 Juillet 2012

• #5

Re : Copier texte vers un fichier txt

en cherchant sur le internet, j'ai réussi à adapter une macro.
Quand je lance la macro.
ça crée bien un fichier .lsp contenant les cellules désirés.


J'ai besoin de 2 améliorations sur cette macro :
1) le fichier lsp va dans C: alors qu'il me le faut dans le dossier courant contenant le fichier Excel.
2) Chaque ligne contient un double apostrophe en début et fin de phrase, il faut les enlever.

Merci pour votre aide

 

Dernière édition: 9 Juillet 2012

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Juillet 2012

• #6

Re : Copier texte vers un fichier txt

RE yusukens,

Voici comment modifier le code pour répondre à ta 1ère question :

Remplaces la ligne :

Code:

FileName = "c:\test.lsp"

par :

Code:

FileName = ThisWorkbook.Path & "\test.lsp"

Quant à la 2ème question, je continue de chercher la solution.

Cordialement.

 

Vote positif 0 Vote négatif

yusukens

XLDnaute Occasionnel

• 9 Juillet 2012

• #7

Re : Copier texte vers un fichier txt

Bonsoir,
merci Papou-net
ça répond effectivement bien à ma 1ere question.

ne reste plus qu'a supprimer ces double apostrophes
Merci

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 9 Juillet 2012

• #8

Re : Copier texte vers un fichier txt

RE (suite)

Pour supprimer les guillemets (double apostrophes), il te suffit de remplacer les "Write" par "Print" comme dans l'exemple ci-dessous :

Code:

...
...
         If c <> NumCols Then
            Print #1, Data;
            Else
            Print #1, Data
          End If
...
...

@ +

Cordialement.

 

Vote positif 0 Vote négatif

yusukens

XLDnaute Occasionnel

• 9 Juillet 2012

• #9

Re : Copier texte vers un fichier txt

Magnifique Papou-net,
vraiment un grand merci pour l'aide que tu m'as apporté.
Merci

 

Vote positif 0 Vote négatif