Discussion :

[Nadine00]

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

[Marc-L]

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, …

[Nadine00]

Merci Marc pour ton retour,

Voici le code que j'ai pu cree jusqua present

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jerome.vaussenat]

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

[Nadine00]

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.

[kiki29]

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

[Nadine00]

Non ca ne m'aide pas kiki29 desole

[jerome.vaussenat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Nadine00]

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

[jerome.vaussenat]

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.

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)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("G:i").Delete

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

[Nadine00]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Re, Balise ton code