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

[charente]

bonjour a tous.

je viens vers vous pour un probleme d'enregistrement d'une plage de données dans un format txt (kml pour etre plus precis)

mon probleme
nomsave et une variable qui reprend le nom du fichier


Dim maplage As Range
Set maplage = Range("G1:G579")

Open nomsave & ".kml" For Output As #1
'Print #1, Range("g1:g579")
'Print #1, Worksheets("feuil1").maplage

Print #1, maplage

Close #1

je bute sur PRINT #1 qui se souligne en jaune erreur excution 13
j'ai testé les 3 formules toujours pareil
je tourne en rond, merci de votre aide

 

[pierrejean]

Re : save plage de cellule vers fichier.txt

Bonjour charente

A tester (et adapter)

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

 

[charente]

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+

 

[pierrejean]

Re : save plage de cellule vers fichier.txt

Re

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

 

[charente]

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

 

[pierrejean]

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=...

 

[charente]

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
??

 

[pierrejean]

Re : save plage de cellule vers fichier.txt

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

 

[BOISGONTIER]

Re : save plage de cellule vers fichier.txt

Bonjour,

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

JB

 

[MJ13]

Re : save plage de cellule vers fichier.txt

Bonjour à tous

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

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

 

[charente]

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

 

[charente]

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.

 

[charente]

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