Copier / Coller d'EXCEL vers un éditeur de texte comme NOTEPAD.Résolu

Question

Bonjour / Bonsoir.
Comment, apr&#232;s avoir appel&#233; l'&#233;diteur de texte NOTEPAD avec la commande SHELL de VBA sous EXCEL, puis-je copier une s&#233;lection de CELLULES d'un CLASSEUR vers un fichier au format texte et l'enregistr&#233; avec NOTEPAD.
Merci d'avance pour votre r&#233;ponse.
Jacky

jpleroisse · Accepted Answer

Bonsoir,

Essaie ce code, mets quelques donn&#233;es de A1 &#224; A10 par exemple



Sub Export()

Range("A1").CurrentRegion.Select

Dim FileName As String

Dim Data

Dim r As Long, c As Integer

Dim NumRows As Long, NumCols As Integer

Dim ExpRng As Range

Set ExpRng = Application.Selection

NumRows = ExpRng.Rows.Count

NumCols = ExpRng.Columns.Count



FileName = "C:\Mes documents\fichiertexte.txt"

Open FileName For Output As #1

    For r = 1 To NumRows

     For c = 1 To NumCols

         Data = ExpRng.Cells(r, c).Value

         If IsNumeric(Data) Then Data = Val(Data)

         If IsEmpty(ExpRng.Cells(r, c)) Then Data = ""

         If c <> NumCols Then

            Print #1, Data

        Else

           Print #1, Data



             End If

        Next c

    Next r

Close #1



 Dim TaskID As Long

Dim fichier As String

fichier = "C:\Mes documents\fichiertexte.txt"

TaskID = Shell("notepad.exe " & fichier, vbNormalFocus)

    

    Range("A1:A4").Select

    Selection.Copy

    Application.CutCopyMode = False

    Range("A1").Select



End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

ratchet_jc · Answer

Bonsoir.

Je te remercie beaucoup pour le coup main. Cela va beaucoup m'aider.

Jacky

haffat1972 · Answer

Copier / Coller d'EXCEL vers un éditeur de texte comme NOTEPAD.

un fichier exemple svp

Utilisateur anonyme · Answer

Regarde donc la réponse plus haut.

Utilisateur anonyme · Answer

Ou apprends à utiliser l'API  WIN 32.

Ou va voir là pour plus de conseils.

ucfoutu · Answer

Bonjour,
il suffit pourtant de copier la sélection sur une feuille vierge et de l'enregistrer sous (en format txt) dans le répertoire de son choix et avec le nom de son choix.
Pour connaître le code d'une telle manoeuvre : donné par l'enregistreur de macros.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Copier / Coller d'EXCEL vers un éditeur de texte comme NOTEPAD.

6 réponses

Discussions similaires