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

ratchet_jc 2 Messages postés mercredi 26 octobre 2005Date d'inscription 27 octobre 2005 Dernière intervention - 26 oct. 2005 à 21:54 - Dernière réponse : ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention
- 23 févr. 2013 à 22:31
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
Afficher la suite 

6 réponses

Meilleure réponse
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 26 oct. 2005 à 22:54
3
Merci
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.

Merci jpleroisse 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Meilleure réponse
ratchet_jc 2 Messages postés mercredi 26 octobre 2005Date d'inscription 27 octobre 2005 Dernière intervention - 27 oct. 2005 à 21:39
3
Merci
Bonsoir.

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

Jacky

Merci ratchet_jc 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

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

un fichier exemple svp
Utilisateur anonyme - 23 févr. 2013 à 21:32
0
Merci
Regarde donc la réponse plus haut.
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 23 févr. 2013 à 22:31
0
Merci
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.