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

Signaler
Messages postés
2
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
27 octobre 2005
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour / Bonsoir.
Comment, après avoir appelé l'éditeur de texte NOTEPAD avec la commande SHELL de VBA sous EXCEL, puis-je copier une sélection de CELLULES d'un CLASSEUR vers un fichier au format texte et l'enregistré avec NOTEPAD.
Merci d'avance pour votre réponse.
Jacky

6 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonsoir,

Essaie ce code, mets quelques données de A1 à 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éponse vous convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
27 octobre 2005

Bonsoir.

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

Jacky
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

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

un fichier exemple svp

Regarde donc la réponse plus haut.

Ou apprends à utiliser l'API WIN 32.

Ou va voir là pour plus de conseils.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
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.