[VBA-E] enregistrement csv

Version imprimable

03/06/2006, 19h26
zoumzoum59

[VBA-E] enregistrement csv
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:

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
03/06/2006, 19h29
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:

1 2 3 Open filenamecsv For Output as #1 Close
03/06/2006, 19h57
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:

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

Merci a vous deux mon code est devenu le suivant:
Code:

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

03/06/2006, 20h28
MGD_Software
Il suffit d'utiliser la fonction DisplayAlert, qui valide ou inhibe tous les messages utilisateur.

Le code devient :
Code:

1 2 3 Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlCSV Application.DisplayAlerts = True
03/06/2006, 20h44
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
04/06/2006, 02h01
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 ;)

J'ai trouvé un de tes code ouskel'nor que j'ai adapté il marche sauf que je ne sais pas pourquoi mon tableau contient 7 colonne et dans mon fichier csv il n'en comporte que 6 il n'integre pas la derniere colonne et je ne comprend pas.

voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim x, j, DernièreLigne, DernièreColonne
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select           
    selection.CurrentRegion.Select            
    Set tbl = ActiveCell.CurrentRegion      
    DernièreLigne = tbl.Rows.Count          
    DernièreColonne = tbl.Columns.Count 
    Cells(1, 1).Select
    Open NomFichier For Output As #1
    For x = 1 To DernièreLigne
        For j = 1 To DernièreColonne - 1
            Print #1, Cells(x, j).Formula + ";";  
        Next j
        Print #1, Cells(x, j + 1).Formula        
    Next x
    Close #1                  
        ActiveWorkbook.Close
         Application.DisplayAlerts = True

un peu d'aide me serait tres utile.
Merci

04/06/2006, 13h59
zoumzoum59

je viens de trouver quelque chose qui fonctionne j'ai pas compris pour l'instant la suptilité mais apparemment c'etait tout simple, j'ai supprimé le -1 derriere dernierecolonne.

Merci à tous (encore une fois!)

Tu as mélangé deux codes. Avec ce code, tu as For i... to DernièreColonne -1
Code:

1 2 3 4 DernièreColonne = Cells(1, 1).SpecialCells(xlCellTypeBlanks).Column - 1 'Dernière ligne renseignée DernièreLigne = Cells(1, 1).SpecialCells(xlCellTypeLastCell).Row - 1 'La lecture des cellules commence en A1 dans chaque feuille de calcul
Si tu veux garder CurrentRegion, supprime le -1 dans "to dernièrecolonne"

Tu dis

A+

04/06/2006, 16h28
zoumzoum59

desolé je croyais que c'etait résolu mais j' ai un autre petit soucis en fin de ligne j'ai des point virgule .

comment puis je terminé ma ligne sans avoir ces points virgules ?

As-tu bien laissé ça ?

Code:

1
2
3
4
               '........
               '........
        Next j
        Print #1, Cells(x, j + 1).Formula

en sortie de boucle For j ....
Tu dis

A+

oui j'ai bien ces deux lignes dans mon code.

le voici en entier direct copier coller:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim x, j, DernièreLigne, DernièreColonne
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select           
    selection.CurrentRegion.Select    
    Set tbl = ActiveCell.CurrentRegion   
    DernièreLigne = tbl.Rows.Count    
    DernièreColonne = tbl.Columns.Count 
    Cells(1, 1).Select
    Open NomFichier For Output As #1
    For x = 1 To DernièreLigne
        For j = 1 To DernièreColonne
            Print #1, Cells(x, j).Formula + ";";  
        Next j
        Print #1, Cells(x, j + 1).Formula      
    Next x
    Close #1
 
        ActiveWorkbook.Close
         Application.DisplayAlerts = True

Puisque le but est de fournir un CSV avec des points virgules, pourquoi ne pas traiter directement icelui après l'export ?
Voici le code que moi personnellement j'aurais employé
Attention, il est entendu qu'aucune cellule ne contient de texte à virgule. Par contre il peut y avoir des valeurs décimales à virgule, car celles-ci sont exportées au format anglo-saxon (points). On en profitera pour les remettre au format français (séparateur décimal = virgule)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
    '.....  (Demande du nom du fichier CSV --> NomFichier)
 
    Dim NomClasseur$, nFile%, sDummy$
 
    NomClasseur = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlCSV
    ActiveWorkbook.SaveAs Filename:=NomClasseur, FileFormat:=xlNormal
    Application.DisplayAlerts = True
 
 
    'Lecture du fichier CSV
    nFile = FreeFile()
    Open NomFichier For Binary Access Read Write As #nFile  'Ouverture du fichier en binaire
    sDummy = Space$(LOF(nFile))                             'Taille chaine = taille fichier
    Get #nFile, 1, sDummy                                   'Lecture totale du fichier
 
    'Remplacement des virgules par des point-virgules
    sDummy = Replace(sDummy, ",", ";")
 
    'Remplacement des points par des virgules (valeurs décimales)
    sDummy = Replace(sDummy, ".", ",")
 
    'Réécriture du fichier
    Put #nFile, 1, sDummy
 
    'Fermeture fichier
    Close #nFile                                            'Fermeture du fichier

Autre avantage : Le classeur reprend son nom en "xls" au lieu de garder celui en "csv"

Ce code a été testé sous Excel 2003.

04/06/2006, 17h01
ouskel'n'or

Alors tu as une colonne de trop et tu dois mettre to DernièreColonne -1
S'il alors il te manque une colonne c'est que le dernier ; est un séparateur utile.

Tu dis

A+

Tout dépend de ce que tu veux faire de ton csv, une colonne de plus ajoute un champ vide dans Access mais n'a aucune autre incidence.
04/06/2006, 17h11
zoumzoum59

j'ai dejà tester ce code mgd_software est ce code me genere bien un fichier csv, mais pas avec des points virgules, mais des virgules et le logiciel qui importe les données au format csv n'accepte que les points virgules.

A moins que je me trompe et que je suis passé à coté de quelque chose ?
04/06/2006, 17h16
zoumzoum59

Si je rajoute -1 deriere to dernierecolonne ouskel'n'or il me manque la derniere colonne de donnée et en plus j'ai toujours un point virgule en fin de ligne.

je ne sais plus quoi faire.
04/06/2006, 17h23
ouskel'n'or

Alors le dernier séparateur est un séparateur utile pour définir la dernière colonne.
Ça pose problème à l'application avec laquelle tu ouvres le csv ?

A+
04/06/2006, 17h30
zoumzoum59

oui l'application ne veut pas l'ouvrir si il y des point virgule en fin de ligne, je les supprime manuellement et pas de soucis ça passe et d'ailleur excel genere egalement un fichier csv sans point virgule en fin de ligne.

si tu as une solution our ne plus avoir ce point virgule en fin de ligne je suis preneur.
04/06/2006, 17h32
ouskel'n'or

Je m'inquiète, tu ne donnes aucun nom à ton fichier.
MonFichier est une variable, tu dois indiquer le chemin et le nom du fichier.

Code:

nomFichier = "c:\MonFichier.csv"

et je n'ai pas l'impression, puisque tu as fais un copier/coller, que ce soit le cas
Auquel cas, c'est toujours le même fichier.csv que tu contrôles sans les modifs réalisées dans ton code

Tu dis

A+

Désolé, vous allez trop vite et je n'ai pas eu le temps de modifier ma contrib que vous l'aviez déjà exploitée. J'avais pourtant dit d'attendre. Je la reposte donc, en reprécisant que ce code donne bien des séparateurs points-virgules et des valeurs décimales françaises (à virgules)

------------------------------------------------

Puisque le but est de fournir un CSV avec des points virgules, pourquoi ne pas traiter directement icelui après l'export ?

Voici le code que moi personnellement j'aurais employé
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 '...... (Demande du nom de fichier CSV --> NomFichier Dim NomClasseur$, nFile%, sDummy$ NomClasseur = ThisWorkbook.Path & "\" & ThisWorkbook.Name Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlCSV ActiveWorkbook.SaveAs Filename:=NomClasseur, FileFormat:=xlNormal Application.DisplayAlerts = True 'Lecture du fichier CSV nFile = FreeFile() Open NomFichier For Binary Access Read Write As #nFile 'Ouverture du fichier en binaire sDummy = Space$(LOF(nFile)) 'Taille chaine = taille fichier Get #nFile, 1, sDummy 'Lecture totale du fichier 'Remplacement des virgules par des point-virgules sDummy = Replace(sDummy, ",", ";") 'Remplacement des points par des virgules (valeurs décimales) sDummy = Replace(sDummy, ".", ",") 'Réécriture du fichier Put #nFile, 1, sDummy 'Fermeture fichier Close #nFile 'Fermeture du fichier
Autre avantage : Le classeur reprend son nom en "xls" au lieu de garder celui en "csv"

Ce code a été testé sous Excel 2003.

oui "Monfichier" et une variable de type varant ça fait partie du code mais qui est un peu plus haut, je n'ai pas saisie cette partie de code dans mon copier coller.

Mais mon fichier csv s'enregistre dans Mes documents.

le code le voici:
Code:

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

04/06/2006, 17h44
MGD_Software

J'ai oublié de préciser pourquoi je réenregistrais le fichier en mode Excel : tout simplement parce que Excel verrouille les fichiers ouverts, et que dès qu'on a enregistré le classeur sous NomFichier, ce dernier reste verrouillé tant que le classeur reste ouvert ou n'est pas re-sauvé sous un autre nom. Sacré Bill !

Une autre solution si tu ne veux pas de ; après la dernière colonne, alors tu modifies le code en conséquence.
Deux solutions
1 - Un ; en début de ligne n'est pas génant, et tu mets
Code:

1 2 3 4 5 6 7 8 Open nomFichier For Output As #1 For x = 1 To DernièreLigne For j = 1 To DernièreColonne Print #1, ";" + Cells(x, j).Formula; Next j Print #1, Cells(x, j + 1).Formula Next x Close #1
2 - Tu ne veux pas de ; en début de ligne non plus et tu mets
Code:

1 2 3 4 5 6 7 8 9 Open nomFichier For Output As #1 For x = 1 To DernièreLigne Print #1, Cells(x, 1).Formula + ";"; For j = 2 To DernièreColonne Print #1, ";" + Cells(x, j).Formula; Next j Print #1, Cells(x, j + 1).Formula Next x Close #1
J'espère que tu vois l'idée car je n'ai pas testé

A+

04/06/2006, 18h11
zoumzoum59

désolé ouskel'n'or ça marche presque la seule chose, je me retrouve avec deux point virgule entre la premiere et deuxiéme colonne.
04/06/2006, 18h25
zoumzoum59

mgb_software j'ai une erruer avec ton code et je ne sais pas à quoi elle correspond si tu peux m'aider!
L'erreur et la suivante:
permission refusé erreur 70

sur la ligne :

Code:

Open NomFichier For Binary Access Read Write As #nFile
04/06/2006, 18h29
ouskel'n'or

Tu as raison. Regarde ce que j'ai fait sur la solution 2 et essaie d'adapter. Je regarde de mon côté.

A+

Voilà, j'ai corrigé

Code:

1
2
3
4
5
6
7
8
9
10
 
    Open nomFichier For Output As #1
    For x = 1 To DernièreLigne
        Print #1, Cells(x, 1).Formula;
        For j = 2 To DernièreColonne
            Print #1, ";" + Cells(x, j).Formula;
        Next j
        Print #1, Cells(x, j + 1).Formula
    Next x
    Close #1

Tu dis

04/06/2006, 19h57
zoumzoum59

Merci ouskel'n'or ça fonctionne au poil.

Merci aussi a toi mgd_software, meme si j'ai pas pu tester ton dernier code.
05/06/2006, 09h19
MGD_Software

Citation:

Envoyé par zoumzoum59

mgb_software j'ai une erruer avec ton code et je ne sais pas à quoi elle correspond si tu peux m'aider!
L'erreur et la suivante:
permission refusé erreur 70

sur la ligne :

Code:

Open NomFichier For Binary Access Read Write As #nFile

L'erreur provient, comme je l'ai déjà dit plus haut, du fait qu'Excel verrouille le fichier CSV, puisque dès qu'on a sauvé en CSV le fichier courant EST ce CSV.

C'est la raison pour laquelle je le réenregistre en XLS avec son nom d'origine.

As-tu bien rajouté la ligne SaveAs .. NomClasseur (et non plus NomFichier) ?