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

Résolu
ratchet_jc
Messages postés
2
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
27 octobre 2005
- 26 oct. 2005 à 21:54
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 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

6 réponses

jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
26 oct. 2005 à 22:54
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
ratchet_jc
Messages postés
2
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
27 octobre 2005

27 oct. 2005 à 21:39
Bonsoir.

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

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

un fichier exemple svp
0
Utilisateur anonyme
23 févr. 2013 à 21:32
Regarde donc la réponse plus haut.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Utilisateur anonyme
23 févr. 2013 à 21:34
Ou apprends à utiliser l'API WIN 32.

Ou va voir là pour plus de conseils.
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
235
23 févr. 2013 à 22:31
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.
0