KTM
XLDnaute Impliqué
Bonsoir chers tous
la macro ci dessous crée un sous dossier dans le "DossierA" et y exporte ma plage de données.
Mais il se trouve qu'une erreur ( 52 )revient me disant "Nom de fichier ou numéro incorrect" surtout a la ligne If Dir(chem, vbDirectory) = "" Then MkDir chem
Je vous supplie de m'aider à comprendre et corriger. merci
la macro ci dessous crée un sous dossier dans le "DossierA" et y exporte ma plage de données.
Mais il se trouve qu'une erreur ( 52 )revient me disant "Nom de fichier ou numéro incorrect" surtout a la ligne If Dir(chem, vbDirectory) = "" Then MkDir chem
Je vous supplie de m'aider à comprendre et corriger. merci
VB:
Sub export()
Dim chemin$, a, i&, chem$
Dim fichier As String
fichier = Format(Range("F6"), "0000") & "-" & Range("F7") & "-" & Format(Range("F9"), "dd mm yyyy")
chemin = ThisWorkbook.Path & "\DossierA\" & Month([Menu!A4]) & "-" & Format([Menu!A4], "mmm yyyy") & "\" & fichier
a = Split(chemin, "\")
For i = 0 To UBound(a) - 1
chem = chem & a(i) & "\"
If Dir(chem, vbDirectory) = "" Then MkDir chem
Next i
With ActiveSheet
.PageSetup.PrintArea = "$A$1:$L$246"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub