Rebonjour,
Ici, on parle du fichier "2018 - Révision de comptes (macro enregistrer sous fonctionne).xlsm" car le nom du fichier d'enregistrement est pris dans la feuille en "E4" (Compte = Range("E4").Value).
Pour l'autre fichier il faudra adapter la valeur de "Compte".
Est-ce que ceci peut convenir ?
Sub EnregistrerSous()
'Déclaration des variables
Dim CheminDossier As String
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Set objShell = CreateObject("Shell.Application")
' demande le chemin
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error GoTo Gesterr
Set oFolderItem = objFolder.Items.Item
CheminDossier = oFolderItem.Path & "\"
'Nom de la cellule de titre
Compte = Range("E4").Value
'Enregistrement du fichier au format pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminDossier & Compte & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Gesterr:
End Sub
ric