KTM
XLDnaute Impliqué
Bonsoir chers tous
je voudrais exporter ma plage A1:C10 au format PDF dans un sous dossier.
Ma macro doit:
- Créer un Dossier "Plage"
-Créer Un Sous dossier qui portera comme nom ma cellule E1
-Stocker mon Fichier PDF "TRIS" dans le Sous Dossier
J'ai élaboré ce qui suit mais je sais pas comment créer le sous dossier et le renommer
Merci de me guider
je voudrais exporter ma plage A1:C10 au format PDF dans un sous dossier.
Ma macro doit:
- Créer un Dossier "Plage"
-Créer Un Sous dossier qui portera comme nom ma cellule E1
-Stocker mon Fichier PDF "TRIS" dans le Sous Dossier
J'ai élaboré ce qui suit mais je sais pas comment créer le sous dossier et le renommer
Merci de me guider
VB:
Sub SAVE()
Dim chemin As String
Dim fichier As String
chemin = ThisWorkbook.Path & "\Plage\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
With ActiveSheet
.PageSetup.PrintArea = "$A$1:$C$10"
fichier = .Range("A1")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub