Export de données Excel

Bonjour
Soit convertir les nombres en texte en formatant avec un point soit changer les paramètres Windows le temps de l'export.

Le format de sortie est csv (enregistrer-sous).
Chris

Ce Topic proposait un script très intéressant

http://www.excel-downloads.com/html/French/forum/messages/1_65818_65818.htm

Je pourrais l'utiliser s'il ne générait pas d'espace après chaque champ et s'il y avait un moyen de remplacer préalablement les , par . via une macro


Mais bon, je vais essayer de me débrouiller autrement

Merci.

=> DEMO UserForm Export Fichiers TXT avec Selection Séparateur Champs et Décimal

Salut Chris, JPB, le Forum

Et bien en tant qu'auteur du fil avec le Lien supprimé je te remercie et grace à toi, JPB, je me suis rendu compte qu'un espace m'avait échappé... en fait c'était le libellé de l'OptionButton "Point-Virgule" qui comportait cet espace...

Donc je te propose ci-joint une Version 1.0 qui est corrigée sur ce niveau... Mais surtout qui devrait combler ton attente car elle comporte également un choix pour un export avec un autre séparateur de décimal... le point en l'occurence !

Je pense qu'avec çà tu n'auras pas besoin de chercher à te débrouiller autrement... Enfin j'espère.

Voilà Bonne Nuit
@+Thierry[

Merci infiniment ! ;-)

J'aurais besoin d'un dernier conseil:

Est-il difficile de modifier le module de façon à pouvoir définir la zone du tableau sur laquelle on veut effectuer les traitements ??

C'est faisable pour un débutant ?

Et encore Merci pour le coup de main.

Salut JPB, Chris, le Forum

Excuse moi, je n'avais pas vu ta dernière question.

C'est possible bien entendu, mais il faut jouer sur différents niveau dans le module : "Exportation" / macro : "BuildTXT".

Premièrement :
Set Range = TXT.Range("A" & X & "" & TXT.Range("A65536").End(xlUp).Row)
Où on prendra soin de gérer la taille du tableau (ici de "A" à "D")

Deuxièmement :
Case 0 '(et pour tous les "Cases")
If C < 4 Then
Ici on estime que c'est dans la quatrième colonne du tableau ("D") que se trouve les valeurs numériques à convertir pour le séparateur...

On pourrait écrire :
Case 0
If C = 4 Or C = 6 Then
Ce qui aurait pour effet de convertir les colonnes "D" & "F"...

Le reste devrait être OK sans modif, quoique cette démo traite de différentes choses à la fois qu'on pourrait supprimer selon tes besoins précis...

Bonne Journée
@+Thierry

Re: DEMO UserForm Export Fichiers TXT avec Selection Séparateur Champs et Décima

RE

En me relisant j'aurais dû écrire :

Case 0 '(et pour tous les "Cases")
If C < 4 Then
Ici on estime que c'est à partir de la colonne "D" (et plus) que se trouvent les valeurs numériques à convertir pour le séparateur

Bonne Semaine,
@+Thierry

Je pense que je vais arriver à me débrouiller.

Encore Merci et bonne semaine.