Macro pour convertir mon fichier XLS en CSV

Bonjour a tous,

J'ai un fichier .xls (qui s'appelle "FTT") dans le lequel je souhaite transformer (convertir) ses donnees en .csv sans perdre et renommer ce fichier .xls d'orgine de base.
La conversation sera journaliere et le fichier final s'appellera "Final Report"

Je viens imputer des donnees (copier coller) de colonne A a N a partir de la ligne 2.

J'ai des donnees de colonne A a N et le bouton de conversation sera en colonne P par exemple

Je souhaite une macro:
- Lors de la conversiion du fichier en CSV que ce soit en point virgule.
- Lors de la conversiion du fichier em CSV je ne souhaite pas avoir les 3 virgules a la fin de la 1ere ligne
- De garder mon fichier excel d'origine de base
- D'enregistrer le fichier final .csv dans le folder F:\XXX\INVOICES\FTT
- D'enregistrer le fichier avec la date d'aujourdhui en auto

Pouvez-vous m'aider s'il vous plait :) ?

J'espere que j'ai ete assez claire. N'hesitez a me poser des questions si ce n'est pas le cas.

Merci pour tout.

Nadine

Bonjour,

pour conserver le fichier d'origine il suffit d'en créer un nouveau via la commande Enregistrer sous au format csv.
Ensuite modifier les nombres au format désiré puis Enregistrer …

En activant au préalable l'Enregistreur de macro avant d'opérer manuellement, une base de code est livrée sur un plateau !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci Marc pour ton retour,

Voici le code que j'ai pu cree jusqua present

Code:

---

1 2 3 4 5 6 7

Sub test()   ActiveWorkbook.SaveAs FileName:= _ "F:\XXX\INVOICES\FTT\Classeur1.csv", FileFormat:=xlCSV, _ CreateBackup:=False   End sub

---

Peux-tu m'aider a la developper stp avec mes demandes, je suis debutante sur VBA?

Merci

Nadine

salut,

si tu débute complétement en VBA y compris avec l'enregistreur. Voici un tuto qui te monte comment commencer.

http://fauconnier.developpez.com/tut...istreur-macro/

Bonne lecture

Merci Jerome pour lien, je compte m'exercer ce week end :)

Mais si vous aviez un code a me filer pour m'aider ca serait super sympa de votre part.

Salut, sans savoir si cela t'aidera voir Conversion de fichiers Excel

Non ca ne m'aide pas kiki29 desole

salut,

voici un bout de code qui j’espère te mettra sur la voie.

J'ai mis un ou deux commentaires pour plus de clareté.

Code:

---

1 2 3 4 5 6 7

Sub save_csv() 'on détermine le nom du fichier par rapport à la date du jour (jjmmaaaa) nom_fichier = Day(Date) & Month(Date) & Year(Date) 'enregistrement du fichier au format CSV avec le nom défini plus haut et à l'emplacement désiré ActiveWorkbook.SaveAs Filename:="F:\XXX\INVOICES\FTT\" & nom_fichier & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False, Local:=True End Sub

---

ps : comme indiqué plus haut, la commande la plus longue à été générée automatiquement par l'enregistreur de macro. J'ai ajouté la génération du nom du fichier à partir de la date ...

Merci pour tout Jerome, cela marche.

par contre mon fichier "FTT" d'origine se tranforme et pert son intitule alors que je veux garder mon fichier d'origine en .xls et cree le second .csv dans le folder "F:\XXX\INVOICES\FTT\"

Mon futur fichier .csv s'apellera "Final report" suivi de la date d'aujourd'hui, cela est possible svp ?

Apparement mon fichier transforme en .csv contiens toujours les 3 virgules a la fin de la 1ere ligne. Cela est normal ? je souhaite les supprimer en auto.

Le but sera d'utiliser cette macro a plusieurs reprise afin de l'ajouter a un bouton que je mettrai en colonne P

Merci encore Jerome pour votre aide si precieuse

Nadine

Citation:

---

par contre mon fichier "FTT" d'origine se tranforme et pert son intitule alors que je veux garder mon fichier d'origine en .xls

---

C'est normal, on fait un enregistrer sous. Par contre le doc en XLS est toujours présent et n'est pas effacer.

Citation:

---

Mon futur fichier .csv s'apellera "Final report" suivi de la date d'aujourd'hui, cela est possible svp ?

---

il faut modifier la ligne d'enregistrement de la manière suivante :
nom_fichier = "Final report " & Day(Date) & Month(Date) & Year(Date)

Citation:

---

Apparemment mon fichier transforme en .csv contiens toujours les 3 virgules a la fin de la 1ere ligne.

---

C'est que dans le fichier d'origine, il considère que les dernières colonnes ne sont pas vides.
La seule solution est de supprimer ces colonnes avant de faire l'enregistrement.
ceci peut être fait avec cette instruction :

Code:

---

Range("G:i").Delete

---

Bien sûr mettre entre les "" les premières colonnes "vides".

Merci pour tout Jerome ca marche.

et une derniere chose est-il possible de combiner les 2 codes Range("G:i").Delete et Sub save_csv ()

- Dans un 1er temps effacer les 3 colonnes vides du fichier excel pour ne pas avoir les 3 virgules dans le fichier .csv

- et dans un 2eme temps lancer la macro pour generer le fichier .csv

Que dois etre le bon code a votre avis ? Le code ci-dessouus est il bon ?

Code:

---

1 2 3 4 5 6 7 8

Sub save_csv() Range("G:i").Delete 'on détermine le nom du fichier par rapport à la date du jour (jjmmaaaa) nom_fichier = "Final report " & Day(Date) & Month(Date) & Year(Date) 'enregistrement du fichier au format CSV avec le nom défini plus haut et à l'emplacement désiré ActiveWorkbook.SaveAs Filename:="F:\XXX\INVOICES\FTT\" & nom_fichier & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False, Local:=True End Sub

---

Merci encore Jerome

Nadine

Re, Balise ton code