Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Pour écrire dans un fichier voici une façon de faire : Dim z z = FreeFile nomfictxt = "C:Valeurs.txt" Open nomfictxt For Output As #z With Worksheets("Feuil1") For i = 1 To .Range("a65536").End(xlUp).Row Print #z, .Cells(i, 1) Next i End With Close #z
Cordialement Pascal
"aravis" a écrit dans le message de news:
bonjour, es-t'il possible d'enregistrer un page excel dans un fichier texte. En enlevant les tableau, et en ne gardant que la disposition du texte.
cordialement
Bonjour
Pour écrire dans un fichier voici une façon de faire :
Dim z
z = FreeFile
nomfictxt = "C:Valeurs.txt"
Open nomfictxt For Output As #z
With Worksheets("Feuil1")
For i = 1 To .Range("a65536").End(xlUp).Row
Print #z, .Cells(i, 1)
Next i
End With
Close #z
Cordialement
Pascal
"aravis" <aravis@discussions.microsoft.com> a écrit dans le message de news:
843C1679-5FE6-485B-BBC3-7481CC0F2B9C@microsoft.com...
bonjour, es-t'il possible d'enregistrer un page excel dans un fichier
texte.
En enlevant les tableau, et en ne gardant que la disposition du texte.
Bonjour Pour écrire dans un fichier voici une façon de faire : Dim z z = FreeFile nomfictxt = "C:Valeurs.txt" Open nomfictxt For Output As #z With Worksheets("Feuil1") For i = 1 To .Range("a65536").End(xlUp).Row Print #z, .Cells(i, 1) Next i End With Close #z
Cordialement Pascal
"aravis" a écrit dans le message de news:
bonjour, es-t'il possible d'enregistrer un page excel dans un fichier texte. En enlevant les tableau, et en ne gardant que la disposition du texte.
cordialement
papou
Une autre méthode avec le FileSystemObject Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim fictxt Set fictxt = fso.CreateTextFile("C:Valeurs.txt") With Worksheets("Feuil1") For i = 1 To .Range("A65536").End(xlUp).Row fictxt.WriteLine .Cells(i, 1).Value Next i End With fictxt.Close Set fso = Nothing
Cordialement Pascal
"aravis" a écrit dans le message de news:
bonjour, es-t'il possible d'enregistrer un page excel dans un fichier texte. En enlevant les tableau, et en ne gardant que la disposition du texte.
cordialement
Une autre méthode avec le FileSystemObject
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fictxt
Set fictxt = fso.CreateTextFile("C:Valeurs.txt")
With Worksheets("Feuil1")
For i = 1 To .Range("A65536").End(xlUp).Row
fictxt.WriteLine .Cells(i, 1).Value
Next i
End With
fictxt.Close
Set fso = Nothing
Cordialement
Pascal
"aravis" <aravis@discussions.microsoft.com> a écrit dans le message de news:
843C1679-5FE6-485B-BBC3-7481CC0F2B9C@microsoft.com...
bonjour, es-t'il possible d'enregistrer un page excel dans un fichier
texte.
En enlevant les tableau, et en ne gardant que la disposition du texte.
Une autre méthode avec le FileSystemObject Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim fictxt Set fictxt = fso.CreateTextFile("C:Valeurs.txt") With Worksheets("Feuil1") For i = 1 To .Range("A65536").End(xlUp).Row fictxt.WriteLine .Cells(i, 1).Value Next i End With fictxt.Close Set fso = Nothing
Cordialement Pascal
"aravis" a écrit dans le message de news:
bonjour, es-t'il possible d'enregistrer un page excel dans un fichier texte. En enlevant les tableau, et en ne gardant que la disposition du texte.
cordialement
aravis
quand je fait ton premier code sur une feuille avec un tableau ca me met une erreur . "erreur d'execution 9"
quand je fait ton premier code sur une feuille avec un tableau ca me met une
erreur .
"erreur d'execution 9"
Bonjour Il faut adapter avec le nom de ta feuille et la plage de cellules dont tu veux récupérer les valeurs. Cordialement Pascal
"aravis" a écrit dans le message de news:
quand je fait ton premier code sur une feuille avec un tableau ca me met une erreur . "erreur d'execution 9"
papou
Re Même réponse que pour l'autre test. Sinon, tu peux aussi considérer la réponse de Clément (après tout tu n'avais pas spécifié par macro ?) Cordialement Pascal
"aravis" a écrit dans le message de news:
idem pour le deuxieme code, ca enregistrer pas ce qu'il y a a l'interieur des tableaux
Re
Même réponse que pour l'autre test.
Sinon, tu peux aussi considérer la réponse de Clément (après tout tu n'avais
pas spécifié par macro ?)
Cordialement
Pascal
"aravis" <aravis@discussions.microsoft.com> a écrit dans le message de news:
AA16673F-03F9-4185-9662-BA6E7636C05B@microsoft.com...
idem pour le deuxieme code, ca enregistrer pas ce qu'il y a a l'interieur
des
tableaux
Re Même réponse que pour l'autre test. Sinon, tu peux aussi considérer la réponse de Clément (après tout tu n'avais pas spécifié par macro ?) Cordialement Pascal
"aravis" a écrit dans le message de news:
idem pour le deuxieme code, ca enregistrer pas ce qu'il y a a l'interieur des tableaux
