Transformer un fichier Excel en Fichier csv

Version imprimable

Bonjour,

Je voudrai pouvoir enregistrer le fichier Excel que j’ai créé en csv plutôt qu'en xlsx.

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
29
30
31
32
33
34
35
Set rs = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
 Set excl = fExportExcel(chemin, rs, True, 1, 1)
 Path = CurrentProject.Path
 
Private Sub cmd6_Click()
'---Parcourt de la feuille
     With excl.Sheets(1)
            .Columns("I:I").ColumnWidth = 12 
            .Cells(1, 9).HorizontalAlignment = xlCenter
           .Columns("I:I").VerticalAlignment = xlCenter
           .Columns("I:I").HorizontalAlignment = xlCenter
           .Columns("I:I").WrapText = True
 
            With .PageSetup
                     .CenterHeader = "&G&18&K&""Comic Sans Ms"" &  " & Ex_Titre    
                     .LeftFooter = "&I&D / &T" 
                     .RightFooter = "&8&P/&N »
                     .Orientation = xlLandscape
                    .zoom = False
                    .
                   .
          End With
      End With
 
  '--- Sauvegarde d'Excel
        excl.SaveAs Path & "\" & "DOSSIERS\DOSSIERS EXCEL\" & D_Dossier & "" & ".xlsx"
 
excl.Application.Quit
        MsgBox "Tableau Excel Terminé"
 Set excl = Nothing
Exit Sub
 
Set excl = Nothing
Set rs = Nothing
End sub

J’ai modifié la sauvegarde d’Excel en modifiant xlsx" par csv mais ma page est illisible, je pense
qu’il faut ajouter un FileFormat dans la ligne, mais je ne trouve pas la syntaxe.

Code:

1
2
'--- Sauvegarde d'Excel
        excl.SaveAs Path & "\" & "DOSSIERS\DOSSIERS EXCEL\" & D_Dossier & "" & ".csv""

Merci pour votre aide.

Salutation

23/02/2020, 15h06
tee_grandbois

bonjour,

Citation:

je pense qu’il faut ajouter un FileFormat dans la ligne, mais je ne trouve pas la syntaxe.

Exact, le format est le 2ème paramètre de SaveAs:

Code:

excl.SaveAs Path & "\DOSSIERS\DOSSIERS EXCEL\" & D_Dossier & ".csv", xlCSV

et si la constante xlCSV n'est pas reconnue:

Code:

excl.SaveAs Path & "\DOSSIERS\DOSSIERS EXCEL\" & D_Dossier & ".csv", 6
28/02/2020, 14h20
jmde

Bonjour,

Merci, avec le 6 à la place de xlCSV cela fonctionne très bien.

Maintenant, j’ai rajouté dans « DOSSIERS EXCEL» un sous dossier FICHIER CSS qui conviendra
Le fichier D_Dossier & ".csv", mais la je ne vois pas comment faire.

Pouvez-vous svp m’aider ?

Salutations
28/02/2020, 15h42
tee_grandbois

bonjour,
si j'ai bien compris:

Code:

excl.SaveAs Path & "\DOSSIERS\DOSSIERS EXCEL\FICHIER CSS\" & D_Dossier & ".csv", 6

Bonjour,

Oui c’est bien cela.

Ci-après le code réel qui n’a fonctionné correctement qu’une seule fois, le fichier s’est
bien enregistré dans le bon répertoire ( FICHIERS CSV) sans aucun message.

Mais maintenant si je redemande le fichier, Il me demande si je veux enregistrer le classeur1.
Code:

1 2 3 4 5 '---Initialise le fichier csv D_Dossier = CStr("FICHIERS CSV" & "\" & "ACTIVITES" & " - (" & Left(Me.Texte124, 45) & ") " & CONS_SAISON_N & "-" & strDate) '--- Sauvegarde fichier csv excl.SaveAs Path & "\" & "DOSSIERS\DOSSIERS EXCEL\ACTIVITES\" & D_Dossier & "" & ".csv"
Bonne journée.

Salutations.

29/02/2020, 14h36
tee_grandbois

bonjour,

Citation:

Ci-après le code réel qui n’a fonctionné correctement qu’une seule fois, le fichier s’est
bien enregistré dans le bon répertoire ( FICHIERS CSV) sans aucun message.

Mais maintenant si je redemande le fichier, Il me demande si je veux enregistrer le classeur1.

plutôt que de nous le laisser deviner, pourrais-tu expliquer ce que tu souhaites?
01/03/2020, 14h20
jmde

Bonjour,

Désolé si je me fais mal comprendre.

Je voudrais que ce fichier :

Code:

"ACTIVITES" & " - (" & Left(Me.Texte124, 45) & ") " & CONS_SAISON_N & "-" & strDate"

soit enregistré dans le dossier FICHIERS CSV:

Code:

"DOSSIERS\DOSSIERS EXCEL\ACTIVITES\FICHIERS CSV\"

Merci

Salutations
01/03/2020, 14h48
tee_grandbois

bonjour,
décidément, on a du mal à se comprendre

Citation:

Je voudrais que ce fichier :
soit enregistré dans le dossier FICHIERS CSV:

cela, je l'ai compris puisque je t'ai donné la solution.
je vais donc être plus précis: peux-tu expliquer ceci:

Citation:

Mais maintenant si je redemande le fichier, Il me demande si je veux enregistrer le classeur1.

et dire ce que tu veux qui se passe lorsque que tu as le message.
02/03/2020, 11h50
jmde

3 pièce(s) jointe(s)

Bonjour,

Bien, si je dis oui lorsqu’il demande si je veux enregistrer le classeur1 (Image1), la
Boite de dialogue s’affiche (Image2), je choisis l’emplacement du fichier FICHIERS CSV,
et le classeur1 s’enregistre au format xlsx (Image3).

Dans Sauvegarde fichier CSV on ne voit pas FileFormat 6 mais je l’ai bien chez moi (erreur de transcription)

Merci.

Salutations.

bonjour,
essaie ce code:

Code:

1
2
3
4
5
6
'--- Sauvegarde fichier csv
excl.DisplayAlerts = False  ' désactive les messages d'alerte
excl.ActiveWorkbook.SaveAs Path & "\" & "DOSSIERS\DOSSIERS EXCEL\ACTIVITES\" & D_Dossier & "" & ".csv", FileFormat:=23, CreateBackup:=False
excl.ActiveWorkbook.Saved = True  ' force la sauvegarde du fichier
excl.ActiveWorkbook.Close False ' ferme le fichier 
excl.DisplayAlerts = True ' réactive les messages d'alerte

FileFormat:=23, correspond au format CSV Windows

06/03/2020, 13h48
jmde

Bonjour,

Le code fonctionne, merci pur ton aide et ta patience.

Salutations