XL 2010 Création de dossier

Appo1985 · 4 Août 2021

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 · 4 Août 2021

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

patricktoulon · 4 Août 2021

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

Appo1985 · 4 Août 2021

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)

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 · 4 Août 2021

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

Appo1985 · 4 Août 2021

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

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 · 4 Août 2021

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

Appo1985 · 4 Août 2021

patricktoulon à dit:
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

XL 2010 Création de dossier

Appo1985

XLDnaute Occasionnel

patricktoulon

patricktoulon

XLDnaute Barbatruc

Appo1985

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Appo1985

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

Discussions similaires