Discussion :

[zoumzoum59]

bonjour à tous

J'aiun bout de code qui me permet de sauvegarder une page d'un fichier excel sous un format csv.

Mais le fichier est bien enregistrer avec une extension csv parcontre le format du fichier est apparemment rester sous un format xls et non csv.

Quelque chose doit manquer dans mon code.

Voici le code:

Code :

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

1
2
3
4
5
6
Dim NomFichier As Variant
 
NomFichier = Application.GetSaveAsFilename("aze.csv", fileFilter:="Fichier (*.csv), *.csv")
 
If NomFichier <> False Then
        ActiveWorkbook.SaveAs NomFichier

Si quelqu'un peut m'aider.

Merci d'avance

[Vesta]

tu es passé par l'enregistreur de macro?

Sinon un csv ce n'est rien d'autre qu'un text... Alors avec un peu de code...

Code :

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

1
2
3
Open filenamecsv For Output as #1
 
Close

[MGD_Software]

SaveAs enregistre par défaut au format Excel. Il y a des paramètres à SaveAs, tu as appelé l'aide (il suffit de mettre le curseur sur SaveAs et d'appuyer sur F1 !)

Le bon code est

Code :

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

ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlCSV

[zoumzoum59]

Merci a vous deux mon code est devenu le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Dim NomFichier As Variant
 
NomFichier = Application.GetSaveAsFilename("aze.csv", fileFilter:="Fichier (*.csv), *.csv")
 
If NomFichier <> False Then
        ActiveWorkbook.SaveAs Filename:= _
        NomFichier, _
        FileFormat:=xlCSV
        ActiveWorkbook.Close

Mais j'ai une autre question qui en decoule, comment je peux repondre oui a la question voulez vous remplacer le fichier existant et non a voulez vous enregistrer le fichier (quand il se ferme puisque je l'enregistre au format csv qu'il me demande si je veux l'enregistrer en xls avant de quitter)

Si vous avez la reponse merci

[MGD_Software]

Il suffit d'utiliser la fonction DisplayAlert, qui valide ou inhibe tous les messages utilisateur.

Le code devient :

Code :

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

1
2
3
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlCSV
    Application.DisplayAlerts = True

[zoumzoum59]

merci mgd Sofware tout et tres claire et ça marche impec.

Cependant j'ai une autre chose que je ne comprend pas c'est que mon fichier csv est sauvegardé avec comme séparateurs des virgules et non des points virgules comme c'est le cas des fichiers csv.

Comment puis changer cela?

Merci

[ouskel'n'or]

Vesta t'a donné la réponse, pas l'explication, donc, la voici : En Anglais, le point virgule n'existe pas même s'il est traduit (semicolon)
Avec VBA 97 tout au moins, il n'est pas possible d'enregistrer un csv avec le point virgule comme séparateur par macro (alors que manuellement, c'est possible) On pallie ce problème en créant un fichier texte des données à sauvegarder avec l'extension csv.
Ce sujet a déjà été traité plusieurs fois sur le forum. Une recherche te permettra sûrement de trouver ça.
Je regarde de mon côté mais tu devrais jeter un oeil.

A+
Tiens, voici l'adresse
http://www.developpez.net/forums/sho...&highlight=csv
Lis bien jusqu'au bout