Transformer une sélection au format *.txt

[Chris]

Bonsoir à tous
Dans un tableau je voudrais sélectionner les données de ce tableau sans les libellés des lignes et que je puisse ensuite sauvegarder cette sélection au format *.txt

Pour sélectionner ma zone j'utilise dans une macro la ligne suivante,

Range("c2:47", [c2:47].End(xlDown)).Select

Mes données commencent dans la Colonne/Ligne C2 et se termine dans la Colonne/Ligne C47 et il n'y a pas de limite de lignes dans le sens ou ce tableau sera mis à jour régulièrement.

Mais je n'arrive pas à trouver la solution pour sauvegarder que cette sélection dans un fichier au format *.txt

J’ai également réfléchis sur une autre possibilité, en effet il serait peut-être possible de créer une macros qui me cache les lignes dont je n’ai pas besoin pour mon fichier *.txt mais il faudrait qu’à la fin de cette macro ces lignes que j’ai cacher réapparaissent.
Là par contre je sèche. (mais j’ai lancé l’idée)

Mais l’important, c’est que cela se fasse de façon totalement automatique, ce fichier sera également utilisé par d’autres personnes

un p'tit coup de main serait le bienvenu.
merci à tous
bonne soirée

 

[Abel]

Bonsoir Chris,

Je viens de tester ça chez moi.

Sub EnregistrerTxt()
Range("c2:a" & Range("c65536").End(xlUp).Row).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\Mes documents\ExempleChris.txt", FileFormat:=xlText , CreateBackup:=False
End Sub

En passant par un nouveau fichier qu'on enregistre par la suite, on évite les problèmes.
D'autant que seule la feuille 1 est enregistrée.

En espérant que cela te dépanne.

Abel

 

[Chris]

Bonsoir à tous

cool, déjà une solution

Merci Abel pour ta réponse, je vais tester ceci demain.

@+
et encore un grand merci

bonne soiré à tous

 

[Chris]

Bonjour à tous

Abel, rien à dire 😉
Cela fonctionne à merveille

Encore un grand merci

Bonne journée à tous

@+
Chris