XL 2010 Création de dossier

patricktoulon à dit:

bonjour
'création du dossier "mondossier" si il n'existe pas
dossier=environ("userprofile") &"\DeskTop\mondossier"
if dir(dossier ,vbdirectory)="" then mkdir(dossier)

Cliquez pour agrandir...

patricktoulon à dit:

re

VB:

Sub PDF_page()
    Dim FilePath As String
    'remplace le nom "mondossier" our le nom que tu veux pour ton nouveau dossier sur le bureau
    FilePath = Environ("userprofile") & "\DeskTop\mondossier"
    If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath)
   ' Debug.Print FilePath
    With Sheets("Notes")
        .Range("A:K").Resize(.usedrange.rows.count).ExportAsFixedFormat Type:=xlTypePDF, _
                                                            Filename:=FilePath & "\" & "Premier trimestre.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                                            gnorePrintAreas:=False, OpenAfterPublish:=True
    End With
End Sub

Cliquez pour agrandir...

patricktoulon à dit:

re
j'ai transformé ton tableau en tableau structuré
et je sauve le tableau en pdf

Cliquez pour agrandir...