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

Bana XIII

XLDnaute Nouveau
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.
 
Solution
Bonjour @Bana XIII , le Forum

Je pense que la Syntax :
Dossier=ThisWorkbook.Path \ EXPORTS & FACTURE & ".PDF"
est mauvaise !
Essaies plutôt comme ceci :
VB:
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

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour @Bana XIII , le Forum

Je pense que la Syntax :
Dossier=ThisWorkbook.Path \ EXPORTS & FACTURE & ".PDF"
est mauvaise !
Essaies plutôt comme ceci :
VB:
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
 

Webperegrino

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

  • EXPORTS.xlsm
    58 KB · Affichages: 52
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO