Export PDF chemin à choisir

Bonjour à tous !

Je me casse la tête à trouver exactement ce que je souhaite sur les différents forum, donc me voilà :

Comment exporter un fichier excel avec une boite de dialogue qui s'ouvre pour sélectionner le dossier ?

Du même style que Application.Dialogs(xlDialogOpen).Show (sauf qu'à la place du 'xlDialogOpen' un genre de 'xlDialogExportPdf' lol

J'ai des conditions pré-définis d'export, seulement je n'arrive pas à affecter à ma variable "Chemin" un chemin variable que l'on choisit au moment d'exporter..

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Chemin & "\" & nom & ".pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

From:=3, To:=30, OpenAfterPublish:=True

Merci pour vos lumières !

bonjour,

essaie ceci

    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 25 'pdf
        If .Show <> 0 Then
            fichier = .SelectedItems(1)
        End If
    End With
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                       fichier, Quality:= _
                                       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                       From:=3, To:=30, OpenAfterPublish:=True

Merci déjà pour ta réponse !

Ce code ne marche pas vraiment.. N'y a t il pas une autre façon ?

    ThisWorkbook.Activate
    DTI = Sheets("BASE").Range("G17").Value

    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 26 'C'est 26 chez moi et non 25
       If .Show <> 0 Then
            fichier = .SelectedItems(1)
        End If
    End With

'J'ai rajouté le nom du chemin + le nom du fichier en vain lol
    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                       fichier & "\" & DTI & ".pdf", Quality:= _
                                       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                       From:=3, To:=30, OpenAfterPublish:=True

D'autant plus qu'à certain moment il y a une erreur 1004 sur l'export du fichier


fichier = .SelectedItems(1)

Je ne souhaite pas vraiment cliquer sur un fichier pour enregistrer mon pdf, plutôt pouvoir choisir une destination que je met dans ma variable 'chemin' et ensuite enregistrer dans ce dossier avec une autre variable nom

Je vais continuer de cherche de mon côté.. Je comprend mieux petit à petit

bonjour,

pour sélectionner le répertoire

 ThisWorkbook.Activate
    DTI = Sheets("BASE").Range("G17").Value
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            chemin = .SelectedItems(1)
        End If
    End With
    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                     chemin & "\" & DTI & ".pdf", Quality:= _
                                     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                     From:=3, To:=30, OpenAfterPublish:=True

Oh yes merci ! C'est exactement ça

Rechercher des sujets similaires à "export pdf chemin choisir"