XL 2010 Macro enregistre en XLS

[corsu2a]

Bonjour
j'aimerais que quelqu'un m'aide à modifier cette macro, qui enregistre en .PDF en .XLS.

Merci pour tout


Sub Enreg_Pdf()
Dim NomDossier As String
Dim CheminDossier As String
Dim LaDate$, Nom$, Rep$ 'Déclaration des variables

On Error GoTo 1

'Nom de dossier
NomDossier = Application.InputBox("Saisissez le mois en cours :", "Dossier 2018")
CheminDossier = "C:\Users\mab2172\Documents\Perso\Marc Ange\Bureau-ordre\Centres\CODIS\2018\" & NomDossier & "\"
LaDate = Format(Now, "dd_mm_yyyy_") & Format(Time, "hh_mm_") 'formatage de la date et heure
Nom = "Feuille de garde CODIS du" 'Nom de l'onglet à enregistrer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & Nom & "_" & LaDate & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False 'enregistrement du fichier en PDF
1

End Sub

 

[Lone-wolf]

Bonsoir corsu2a

Tu veux enregistrer la feuille en .xls, c'est ça?

 

[corsu2a]

Bonsoir corsu2a

Tu veux enregistrer la feuille en .xls, c'est ça?

Tout a fait
merci

 

[Lone-wolf]

Bonjour corsu2a, le Forum 🙂

Sub Enregistrer_Sous()
Dim NomDossier$, CheminDossier$, Nom$, NouveauNom$, Ladate$

    NomDossier = Application.InputBox("Saisissez le mois en cours :", "Dossier 2018")
    CheminDossier = "C:\Users\mab2172\Documents\Perso\Marc Ange\Bureau-ordre\Centres\CODIS\2018\" & NomDossier & "\"
    Ladate = Format(Now, "dd_mm_yyyy - h""h ""mm")  'formatage de la date et heure
    Nom = "Feuille de garde CODIS du"   'Nom de l'onglet à enregistrer"
    NouveauNom = CheminDossier & Nom & " " & Ladate
    ActiveSheet.Copy
    ActiveSheet.SaveAs Filename:=NouveauNom & ".xls", FileFormat:=xlExcel8, CreateBackup:=False
   ActiveWorkbook.Close True
End Sub

 

[corsu2a]

Bonjour Lone Wolf

Super merci