Argument ou appel de procedure incorrect

Salut Chere famille Forum

J'ai elaboré une macro qui doit faire les actions suivantes:

1- Sélectionner les plages spécifiques et les copier sur la feuille "Impr"

2- Créer un sous Dossier "Files Actives"

3- Sauvegarder au Format "pdf " dans le sous dossier

Les étapes 1 ET 2 fonctionnent normalement

Mais la 3e pose problème et je reçois le message d'erreur suivant:

Erreur d'execution 5

Argument ou appel de procedure incorrect

Je veux comprendre ce qui n'a pas marché. Merci

Sub SFa_T1()

With Sheets("Impr")

.Range("A1:H13").Value = Range("BC1:BJ13").Value

.Range("A15:H27").Value = Range("AT1:BA13").Value

.Range("A29:H41").Value = Range("AT57:BA69").Value

.Range("A43:H55").Value = Range("BC57:BJ69").Value

chemin = ThisWorkbook.Path & "\Files Actives\"

If Dir(chemin, vbDirectory) = "" Then MkDir chemin

fichier = "Files Actives" & "_" & "T1" & "_" & Sheets("TB").Range("B5") & "_" & Sheets("TB").Range("B8")

.PageSetup.PrintArea = .Range("A1:H69").Address

.PageSetup.CenterHeader = Sheets("TB").Range("B8")

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

chemin & fichier, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End With

End Sub

Bonjour,

Sub SFa_T1()
With Sheets("Impr")
.Range("A1:H13").Value = Range("BC1:BJ13").Value
.Range("A15:H27").Value = Range("AT1:BA13").Value
.Range("A29:H41").Value = Range("AT57:BA69").Value
.Range("A43:H55").Value = Range("BC57:BJ69").Value

Dim chemin as string ' déclaration de la variable chemin
chemin = ThisWorkbook.Path & "\Files Actives"  ' sans le dernier slash
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
fichier = "Files Actives" & "_" & "T1" & "_" & Sheets("TB").Range("B5") & "_" & Sheets("TB").Range("B8")
.PageSetup.PrintArea = .Range("A1:H69").Address
.PageSetup.CenterHeader = Sheets("TB").Range("B8")

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Merci

J'ai essayé mais le problème persiste