XL 2010 Création de dossier

[Appo1985]

Bonjour. J'ai besoin de votre soutien pour créer un dossier sur le bureau par VBA.
Avec le code ci-dessous, j'enregistre la plage choisie sous pdf sur le bureau. Mais je voudrais créer un dossier du nom de "Toutes les notes" avec le même code sur le bureau et enregistrer dans ce dossier. Je voudrais aussi que si un dossier qui a exactement le même nom existe sur le bureau que ça soit enregistré directement dans ce dossier et que si le fichier existe déjà que ça soit remplacé.
Code.

Sub PDF_page()
Dim FilePath As String
FilePath = CreateObject("WScript.Shell").specialfolders("Desktop")
Debug.Print FilePath
Sheets("Notes").Range("A:K").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=FilePath & "\" & "Premier trimestre.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub.

Merci d'avance.

 

[patricktoulon]

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

 

[Appo1985]

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

Merci beaucoup. Je vois bien le code mais à vrai dire je suis un nouveau apprenant d'Excel. Je ne sais pas du tout où l'insérer. Si vous pouvez m'apporter plus de précisions. Merci.

 

[patricktoulon]

re

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

 

[Appo1985]

re

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

Bonsoir. Merci pour l'intérêt accordé à ma question. J'ai insérer le dernier code dans dans le fichier ci-joint mais une erreur"1004" s'affiche. Je ne sais pas comment résoudre ce problème.

 

[patricktoulon]

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

 

[Appo1985]

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

Ça fonctionne comme ce que je voulais. Infiniment Merci