corsu2a
XLDnaute Occasionnel
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
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