KTM
XLDnaute Impliqué
Salut Chere famille Forum
J'ai elaboré une macro qui doit faire les actions suivantes:
1 Selectionner 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 etapes 1 ET 2 fonctionnent normalement
Mais la 3e pose problème
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
J'ai elaboré une macro qui doit faire les actions suivantes:
1 Selectionner 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 etapes 1 ET 2 fonctionnent normalement
Mais la 3e pose problème
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