Enregistre feuille .xlsm en .xlsx

Bonjour à toute et à tous !!

La pluie est là sur paris, et donc coincé au bureau et donc sur excel au lieu de prospecter dans la rue

Ma question est :

j'ai un bouton ENREGISTRE FACTURE qui m'enregistre la feuille active dans deux dossiers sur mon pc dans deux formats differents.

voici le code.

Sub enregistrefacture()
Dim Chemin As String, Fichier As String

          Fichier = Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4")
          If Len(Trim(Fichier)) = 0 Then
             MsgBox "Pas de nom de fichier"
            Exit Sub
          End If

          With Application.FileDialog(msoFileDialogFolderPicker)
            .InitialFileName = "g:\Facturation\Facturation chantier\"
            If .Show = -1 Then    ' Clic sur Ok
           Chemin = .SelectedItems(1)
            Else
              ' Clic sur Annuler
           Exit Sub
            End If
          End With
          ActiveSheet.Copy
          With ActiveWorkbook
            .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
            .Close
          End With
          ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="g:\facture vente\Exercice 2015-2016" & "\" & Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
          recopie
End Sub

Actuellement il m'enregistre la facture en pdf, ca c'est nickel. par contre je souhaite qu'elle s'enregistre en xlsx au lieu de xlsm.

Quelqu'un aurais une idée ce que je doit modifier dans mon code.

merci d'avance.

Bonjour,

C'est toi qui a défini le format en .xlsm !

FileFormat:=xlOpenXMLWorkbookMacroEnabled

Tu remplaces par : xlOpenXMLWorkbook !

Cordialement.

Ah voila la phrase que je voulais savoir ... là voilà celle qui m'à fait perdre du temps à chercher lol

Merci Mferrand c'est cool.

Il te suffisait de taper fileformat dans l'aide, tu trouvais un lien vers la liste des formats et tu avais la réponse, et même plus !