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

jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 26 oct. 2005 à 22:54
+3
Utile
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.
Cette réponse vous a-t-elle aidé ?  
ratchet_jc 2 Messages postés mercredi 26 octobre 2005Date d'inscription 27 octobre 2005 Dernière intervention - 27 oct. 2005 à 21:39
+3
Utile
Bonsoir.

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

Jacky
Cette réponse vous a-t-elle aidé ?  
0
Utile
Copier / Coller d'EXCEL vers un éditeur de texte comme NOTEPAD.

un fichier exemple svp
Utilisateur anonyme - 23 févr. 2013 à 21:32
0
Utile
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
Utile
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.