Export PDF chemin à choisir Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
SoJa
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 12 octobre 2017
Version d'Excel : 2016 FR

Message par SoJa » 23 octobre 2017, 14:27

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 !
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 7'945
Appréciations reçues : 240
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 23 octobre 2017, 14:50

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
S
SoJa
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 12 octobre 2017
Version d'Excel : 2016 FR

Message par SoJa » 23 octobre 2017, 15:08

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
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 7'945
Appréciations reçues : 240
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 23 octobre 2017, 23:51

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
S
SoJa
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 12 octobre 2017
Version d'Excel : 2016 FR

Message par SoJa » 24 octobre 2017, 07:45

Oh yes merci ! C'est exactement ça :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message