save plage de cellule vers fichier.txt(RESOLU par MJ13)

pierrejean

XLDnaute Barbatruc

• 8 Mai 2015

• #2

Re : save plage de cellule vers fichier.txt

Bonjour charente

A tester (et adapter)

Code:

Sub test()
nomsave = "NomSave"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ThisWorkbook.Path & "\" & nomsave & ".txt", True)
maplage = Range("G1:G29")
For n = LBound(maplage, 1) To UBound(maplage, 1)
  a.WriteLine (maplage(n, 1))
Next
a.Close
End Sub

 

Vote positif 0 Vote négatif

C

charente

Guest

• 8 Mai 2015

• #3

Re : save plage de cellule vers fichier.txt

merci pierre-jean

j'ai testé ta solution mais LBound(maplage, erreur (tableau attendu)

encore merci
A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Mai 2015

• #4

Re : save plage de cellule vers fichier.txt

Re

As-tu recopié intégralement la macro ou modifié quelque chose ?
Si oui quoi ?

 

Vote positif 0 Vote négatif

C

charente

Guest

• 8 Mai 2015

• #5

Re : save plage de cellule vers fichier.txt

pierrejean

effectivement j'ai adapter ta macro
nomsave est deja defini
changer txt par KML
range("G1:G" & fin) ' fin est la derniere cellule du fichier

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ThisWorkbook.Path & "\" & nomsave & ".kml", True)
maplage = Range("G1:G" & fin)
For n = LBound(maplage, 1) To UBound(maplage, 1)
a.WriteLine (maplage(n, 1))
Next
a.Close

si tu as une explication ?
merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Mai 2015

• #6

Re : save plage de cellule vers fichier.txt

Re

Assure-toi que fin contient bien un nombre
Par exemple en interposant msgbox(fin) avant maplage=...

 

Vote positif 0 Vote négatif

C

charente

Guest

• 8 Mai 2015

• #7

Re : save plage de cellule vers fichier.txt

effectivement fin contient la derniere ligne (579)

si j'insere ta macro sans le sub et end sub j'ai le meme probleme
??

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Mai 2015

• #8

Re : save plage de cellule vers fichier.txt

Peux-tu poster une copie de ton fichier (sans données confidentielles) ?

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Mai 2015

• #9

Re : save plage de cellule vers fichier.txt

Bonjour,

Fichiers séquentiels
http://boisgontierjacques.free.fr/fichiers/ExportChamp.xls

JB

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 9 Mai 2015

• #10

Re : save plage de cellule vers fichier.txt

Bonjour à tous

En reprenant le code du début, ce type de code devrait fonctionner.

Code:

Sub a()
Close
nomsave = "C:\Temp\Test_09_05_2015"
 Open nomsave & ".kml" For Output As #1
    For i = 1 To 579
        Print #1, Range("G" & i).Value
    Next
 Close '#1
End Sub

 

Vote positif 0 Vote négatif

C

charente

Guest

• 10 Mai 2015

• #11

Re : save plage de cellule vers fichier.txt

bonjour a tous

désolé de ne pas vous avoir tenu au courant de la suite , mais j'etais de mariage tout le week-end
je regarde tout ca et vous tient au courant
merci
a bientot

 

Vote positif 0 Vote négatif

C

charente

Guest

• 10 Mai 2015

• #12

Re : save plage de cellule vers fichier.txt

bonsoir
je vient de tester la solution de MJ13 qui me convient très bien , simple, efficace

dans mon programme j'ai inserer:
' fin = variable de la derniere cellule vide de ma colonne
'nomsave = chemin de destination

Close
Open nomsave & ".kml" For Output As #1
For i = 1 To fin
Print #1, Range("G" & i).Value
Next
Close '#1

merci beaucoup.

 

Vote positif 0 Vote négatif

C

charente

Guest

• 10 Mai 2015

• #13

Re : save plage de cellule vers fichier.txt(RESOLU par MJ13)

bonsoir Staple1600
je ne comprend pas ta démarche, tu aurais préferé que je dise
je regarde tout cela , a la place de tout ca

dans ma démarche il n'y a pas de mèpris pour les réponse que j'ai recus
désolé d'avoir, a tes yeux ècorche la langue Francaise
bonne soirée

 

Vote positif 0 Vote négatif