Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sauvegarder en PDF dans le dossier contenant

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion The Red Goat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

The Red Goat

Guest
Bonjour à tous,

Nouveau sur le forum (et sur Excel aussi d'ailleurs) je tenais déjà à vous remercier pour toutes les réponses que j'ai pu trouver sur les questions d'autres membres.

Par contre la je bloque, j'ai une macro qui déclenche la sauvegarde d'une page en PDF, mais je ne veux pas lui attribuer de dossier fixe.

Il s'agit d'un fichier qui me sert de base et que je copie colle dans différents dossiers je souhaite donc qu'il me fasse la sauvegarde du PDF dans le dossier dans lequel le fichier excel se trouve.

J’espère être compréhensible et vous remercie par avance pour votre aide.

Voici un fichier qui reprend le fonctionnement.

Merci
 

Pièces jointes

Trier par date Trier par votes
Re : Sauvegarder en PDF dans le dossier contenant

Bonjour The Red Goat et bienvenue sur XLD 🙂

Dans ce cas il faut faire comme ceci

Code: 
Sub RECPDF()
   Rep = Application.GetSaveAsFilename("DRAFT BL.pdf")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Rep, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub


A+ 😎
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Sauvegarder en PDF dans le dossier contenant

Merci Lone Wolf pour la réponse, mais malheureusement il n'enregistre pas dans le répertoire ou se trouve le fichier excel à la place il m'ouvre le menu "enregistrez sous".

Si jamais il n'est pas possible de spécifier de sauvegarder dans le dossier contenant peut être est il possible de faire apparaître le chemin d’accès dans une cellule pour pouvoir le récupérer dans la macro?
 
Vote positif 0 Vote négatif
Re : Sauvegarder en PDF dans le dossier contenant

Re,

vu que le fichier est sur le bureau


Code: 
Option Explicit
Dim Rep As String

Sub RECPDF()
    Rep = "C:\Users\Thomas\Desktop\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Rep & "DRAFT BL.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
Application.DisplayAlerts = False
ActiveWorkbook.Save
End Sub


A+ 😎
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Sauvegarder en PDF dans le dossier contenant

En fait c'est un fichier qui sera copié collé régulièrement dans d'autres dossiers. Donc dans il idéal il doit savoir ou il se trouve pour pouvoir utiliser ce chemin afin d'y stocker des PDF. Je ne sais pas si c'est possible.
 
Vote positif 0 Vote négatif
Re : Sauvegarder en PDF dans le dossier contenant

Alors en bricolant un peu j'ai ce code qui fonctionne pour le choix du dossier de destination mais par contre me mets le bordel dans le nom du fichier. c'est presque bon: "Mon de fichier(excel) + "Draft BL" est le but recherché par contre la l'extension .xls apparaît au milieu çà donne çà: 'nomdefichier.xlsDRAFT BL.pdf'

Code: 
Sub RECPDF()
'
' RECPDF Macro
'

'
Dim Rep As String
    Rep = ActiveWorkbook.FullName
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Rep & "DRAFT BL.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Si tu as une solution pour affiner le nom sans casser le choix de chemin de destination je prend avec grand plaisir

Merci d'avance
 
Vote positif 0 Vote négatif
Re : Sauvegarder en PDF dans le dossier contenant

Re,

Rep = ActiveWorkbook.FullName: pourquoi tu mets le nom du classeur comme répertoire??? 😕

Je viens de le dire, si c'est dans des répertoires différents il faut ouvrir la boîte de dialogue, tu n'as pas le choix. Sinon, il faut répéter la macro pour chaque répertoire.


Code: 
Dim Rep(1 to 5) As String
Sub RECPDF()
   Rep1 = "C:\Users\Thomas\Desktop\Dossier1\"
   Rep2 = "C:\Users\Toto\Dossier2\"
   Rep3 = "C:\Users\Tata\Dossier3\"
   Rep4 = "C:\Users\Titi\Dossier4\"
   Rep5 = "C:\Users\Tutu\Dossier5\"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Rep1 & "Document1" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Rep2 & "Document2" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False


 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Rep3 & "Document3" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False


 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Rep4 & "Document4" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

 
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Rep5 & "Document5" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub



A+ 😎
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Sauvegarder en PDF dans le dossier contenant

Bonjour à toutes et à tous,
Bonjour The Red Goat,

Si j'ai bien compris votre besoin, voici ci-joint un classeur qui pourrait répondre à ta demande.

C'est un code que j'ai récemment obtenu grâce à Cathodique et que j'ai pu adapter.

A bientôt,
Amicalement,
Lionel,
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Sauvegarder en PDF dans le dossier contenant

Bonjour,

Lone-wolf en fait je débute et teste un peu tout et n'importe quoi (le pire c'est que çà marche pas mal), Rep = ActiveWorkbook.FullName: c'était pas parfait mais çà marchait (pour le choix du dossier tout du moins ).

Sinon le code de arthour973 fonctionne à la perfection!

Un grand merci à tous les deux et une bonne continuation à vous.
 
Vote positif 0 Vote négatif
Re : Sauvegarder en PDF dans le dossier contenant

Bonjour The Red Goat,
Bonjour le Forum,

Content que ce fichier te soit utile.

Même si j'ai réussi avec mes maigres connaissances à l'adapter, ce code n'est pas de moi mais d'un membre EXTRA, comme tous ici. c'est de Cathodique.

Bonne journée à toutes et à tous.
Amicalement,
Lionel,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
470
youguybass
Y
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
636
Phil69970
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
651
MarineU
M
D
  • Question Question
XL 2013 Aide à création Fichiers, SMS, envoi
Réponses
0
Affichages
289
DARRIEUX
D
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
684
PHIL37
P
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
3 K
Florent74
F
E
  • Résolu(e)
Microsoft 365 Pdf et Création Dossier
Réponses
11
Affichages
594
eric72
E
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
4 K
patricktoulon
W
  • Question Question
XL 2016 Joindre par mail un fichier.pdf personnalité selon le prénom trouvé dans le titre du pdf
Réponses
10
Affichages
1 K
TooFatBoy
P
  • Question Question
Microsoft 365 VBA - Enregistrer un fichier en pdf dans un dossier dont on ne connait que les 4 premiers caractères
Réponses
2
Affichages
578
phil75016
P
K
  • Question Question
Fusionner tous les PDF d'un dossier
Réponses
5
Affichages
914
crocrocro
C
W
  • Question Question
Microsoft 365 VBA: Combiner/Compiler des fichiers PDF dans un chemin existant dans ordre
Réponses
2
Affichages
526
kiki29
F
  • Question Question
XL 2019 Excel ne peut pas accèder "...". Le document est peut être en lecture seule ou chiffré.
Réponses
1
Affichages
583
wDog66
W
J
  • Question Question
XL 2019 créer un nouveau dossier contenant fichier
Réponses
4
Affichages
567
patricktoulon
D
  • Question Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
857
Phil69970
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
  • Question Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
620
AugusteP
M
  • Question Question
XL 2019 Code VBA pour fusionner plusieurs PDF en un seul Fichier PDF
Réponses
2
Affichages
2 K
kiki29
  • Question Question
Power Query [Resolu] Importer plusieurs fichiers excel provenant de dossiers différents sur sharepoint
Réponses
6
Affichages
2 K
Staple1600
P
  • Question Question
Microsoft 365 garder en mémoire plusieurs listview d'un userform
Réponses
4
Affichages
703
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…