Macro

bonjour Daniel,

voici un exemple,

Sub Enregistre_Ligne()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Rows(ActiveCell.Row).Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlValues, SkipBlanks:=True,
Transpose:=True
ActiveSheet.Move
For i = Range("A65536").End(xlUp).Row To 1 Step -1
Range("A" & i).Insert Shift:=xlDown
Next
ActiveWorkbook.SaveAs FileName:="C:Mes DocumentstestMonFichierText",
_
FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

isabelle

Bonjour,

Je cherche une macro qui permettrait en sélectionnant une
ligne de la copier dans un répertoire de Windows sous la
forme d'un fichier TXT en recopiant chaque cellule de la
ligne comme autant de paragraphes.

Merçi

quel beau travail, mon ange, à une heure aussi tardive de la nuit!
bises
jps

isabelle wrote:

bonjour Daniel,

voici un exemple,

Sub Enregistre_Ligne()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Rows(ActiveCell.Row).Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlValues, SkipBlanks:=True,
Transpose:=True
ActiveSheet.Move
For i = Range("A65536").End(xlUp).Row To 1 Step -1
Range("A" & i).Insert Shift:=xlDown
Next
ActiveWorkbook.SaveAs FileName:="C:Mes DocumentstestMonFichierText",
_
FileFormat:=xlText, CreateBackup:úlse
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

isabelle

Bonjour,

Je cherche une macro qui permettrait en sélectionnant une
ligne de la copier dans un répertoire de Windows sous la
forme d'un fichier TXT en recopiant chaque cellule de la
ligne comme autant de paragraphes.

Merçi

quel beau travail, mon ange, à une heure aussi tardive de la nuit!

:-) merci jean paul, c'est gentil de m'envoyer des fleurs comme ça à
l'aurore

bises
isabelle

.. bonne anniversaire à cette ;-) courageuse Dame Sabatier
isabelle

c'est mon anniversaire de mariage...c'est pour cela que, quitte à off rir
des fleurs, autant qu'elles aillent un peu tous azimuts...
jps

isabelle a écrit:

quel beau travail, mon ange, à une heure aussi tardive de la nuit!

:-) merci jean paul, c'est gentil de m'envoyer des fleurs comme ça à
l'aurore

bises
isabelle

c'est mon anniversaire de mariage...

Si c'est vrai: bon anniversaire.

PS. Faut - il dire pauvre lui, pauvre elle ou pauvre Beaujolais ?
:-)))))

Ben alors bon nana !

--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:3F3F7818.4030100@wanadoo.fr...

c'est mon anniversaire de mariage...c'est pour cela que, quitte à offrir
des fleurs, autant qu'elles aillent un peu tous azimuts...
jps

isabelle a écrit:

quel beau travail, mon ange, à une heure aussi tardive de la nuit!

:-) merci jean paul, c'est gentil de m'envoyer des fleurs comme ça à
l'aurore

bises
isabelle

merci philippe
je suis allé ce matin au bureau de tabacs de min villach' et j'ai
demandé "vous n'auriez pas une carte postale sur laquelle on pourrait
lire "tu es mon seul et unique amour" ou quelque chose d'approchant"?
coup de chance, le commerçant avait ça...
alors je lui dis : "formidable! mettez-m'en une douzaine"
jps

Philippe.R a écrit:

Ben alors bon nana !

;'o)))))))))) mdr
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:3F3FF5F7.6070206@wanadoo.fr...

merci philippe
je suis allé ce matin au bureau de tabacs de min villach' et j'ai
demandé "vous n'auriez pas une carte postale sur laquelle on pourrait
lire "tu es mon seul et unique amour" ou quelque chose d'approchant"?
coup de chance, le commerçant avait ça...
alors je lui dis : "formidable! mettez-m'en une douzaine"
jps

Philippe.R a écrit:

Ben alors bon nana !