VBA - changement pc / version Excel

Question

Bonjour @ toutes et tous,

Voila, j'ai eu à l'époque, quelqu'un de super qui m'avait fourni 2 petits code vba pour mon fichier (à l'époque j'etais sous 2007 avec win10)
depuis plusieurs mois ou j'ai changé de pc mes codes ne fonctionnent plus.
J'ai essayé à mainte reprise de le faire par mes moyens, mais bon après de multiples essais (et meme avec un enregistreur de macro), je cale
donc si vous aviez une piste cela serait super (les chemins sont les memes)
Merci d'avance @ tous

Sub pdf_mass()
Dim sRep$, sFilename$, i&
sRep = "C:\Users\calin\Desktop\Factures"
With ActiveSheet
    For i = 1 To Range("T_1[ID]").Rows.Count
        .Range("M1").Value = Range("T_1[ID]")(i, 1).Value
        sFilename = sRep & "\" & .Range("E4").Value
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, IgnorePrintAreas:=False
    Next i
End With
End Sub

Sub impr_pdf()
Dim monDossier As String, monFichier  As String
    monDossier = "C:\Users\calin\Desktop\Factures\"
    monFichier = [E4]

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        monDossier & monFichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

Jean-Eric · Answer

Bonjour, Essaie : monFichier=&#91;E4&#93;.Value & ".pdf" sFilename= sRep & "\" & .Range(E4).Value & ".pdf"...