Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'--- Sauvegarde d'Excel
        excl.SaveAs Path & "\" & "DOSSIERS\DOSSIERS EXCEL\" & D_Dossier & "" & ".csv""

Merci pour votre aide.

Salutation