Copier texte vers un fichier txt

[yusukens]

Bonjour,
quelqu'un veut bien m'aider à trouver une solution à un problème ?

Je souhaite mettre en macro une procédure récurrente
en vidéo ce que je fais manuellement :
[video=youtube;wlnXFKVNYmg]http://www.youtube.com/watch?v=wlnXFKVNYmg&feature=youtu.be[/video]


Vous comprenez donc que cet macro va aider à créer un fichier *.lsp contenant la copie du presse-papier
Information supplémentaire lors de la création du fichier *.lsp :
- Répertoire du dossier identique de la source du fichier Excel
- Nom du fichier à créer : test.lsp
- Écraser/Remplacer le fichier test.lsp si déjà présent dans le répertoire.

en pj le fichier excel.

 

[yusukens]

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

 

[Papou-net]

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.

 

[yusukens]

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).

 

[yusukens]

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

 

[Papou-net]

Re : Copier texte vers un fichier txt

RE yusukens,

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

Remplaces la ligne :

FileName = "c:\test.lsp"

par :

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

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

Cordialement.

 

[yusukens]

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

 

[Papou-net]

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 :

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

@ +

Cordialement.

 

[yusukens]

Re : Copier texte vers un fichier txt

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