XL 2019 Sauvegarder une feuille en PDF dans un sous dossier du classeur

[Bana XIII]

Bonjour la communauté,

J'ai besoin d'aide sur une macro. Bon voici ma démarche:

Mon Classeur se trouve dans un dossier que j'ai nommé MONPROJET; dans ce dossier j'ai un sous dossier nommé EXPORTS dans lequel se trouve un autre sous dossier nommé FACTURE.
Je souhaite pouvoir enregistrer mes facture sous PDF dans le sous-dossier FACTURE en utilisant la syntaxe THISWORKBOOK.PATH.

J'ai essayé la macro suivante:

Private sub Bouton1_Click()
Dim Dossier as string

Dossier=ThisWorkbook.Path \ EXPORTS & FACTURE & ".PDF"

Feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier, Quality:=xlQualityStandard, _
includedocproperties:=True, ignoreprintareas:=False, Openafterpublish:=True

End sub

Malheureusement pour moi, la macro ne marche pas. J'ai beau fouiller, il s'avère que c'est le répertoire DOSSIER qui n'est pas bien définit.

Merci d'avance pour votre aide.

 

[_Thierry]

Bonjour @Bana XIII , le Forum

Je pense que la Syntax :
Dossier=ThisWorkbook.Path \ EXPORTS & FACTURE & ".PDF"
est mauvaise !
Essaies plutôt comme ceci :

Dossier = ThisWorkbook.Path & "\EXPORTS\FACTURE\FactureRef_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".PDF"

(Pour autant que les Folders "Exports" et sub-Folder "Facture" existent bien (sinon il faut les créer par 'MkDir'... après avoir testé leur existence ou non avec 'Dir'...)

Bonne soirée
@+Thierry

 

[Pounet95]

Bonsoir,
Et encore et toujours, il faut que je commence à écrire pour qu'il me soit proposé de voir ce qui l'a déjà été !!!!!
Ca devient ch.......

Si quelqu'un a une solution, je suis preneur
Claude alias Pounet95

 

[_Thierry]

LoL @Pounet95
T'inquiètes pas ça arrive à tout le monde !
Bien à toi Claude
@+Thierry

 

[Bana XIII]

Parfait Thierry,
Ta solution marche super bien.
Merci infiniment.

 

[Webperegrino]

Le Forum,
Bonsoir BanaXIII, Pounet95, Thierry,
Un autre exemple (bouton violet ExportPdf pour activer la macro).
Un Dossier "MON PROJET" qui contient :
- le fichier EXPORT.xlsm (dans lequel on crée la facture et on active le bouton de macro vba d'export de couleur en violet)
- un sous-Dossier "FACTURE" (qui recevra les exports de factures datées et en format .PDF).
Bon usage pour votre adaptation dans vos fichiers,
Cordialement,
Webperegrino

 

[kiki29]

Salut, toujours consultable, en bas du Post#1 Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant