Bonjour à tous,
 
Ne trouvant la solution sur le net, je me permets de demander votre aide.
Je sais enregistrer un fichier excel en PDF (voir ci-dessous) en ayant un format pour renommer le fichier, mais je n'y arrive pas pour le format xlsm :
 
Private Sub PDF()
Dim Path As String, nom As String
Dim FL1 As Worksheet
    Set FL1 = Worksheets("Recap" )
    DLgn = Split(FL1.UsedRange.Address, "$" )(4)
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & DLgn
Path = ActiveWorkbook.Path
nom = Format(Date, "yyyy-mm-dd" ) & " (Recap Matooma)"
complet = Path & "\" & nom
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        complet & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub
 
Pourriez-vous m'aider svp ?
Merci beaucoup et vive la communauté

Bonjour,
 
Déjà essaye en simplifiant pour tester la grande partie du code.
nom ="essai"
 
si cela fonctionne, nom="matooma"  
si cela fonctionne, nom="01-01-2020 matooma"
si cela fonctionne, nom="01-01-2020" & "matooma"
etc

Salut à toutes et à tous
C'est du hors sujet mais pouvez vous me dire comment procéder pour ouvrir une nouvelle discutions
Merci