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

Microsoft 365 Sauvegarde une feuille excel sous format PDF sous le nom d'une cellule

Créer une discussion

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
H

Huggy22

XLDnaute Nouveau
Bonjour à tous.

Dans le fichier ci-joint, la macro permet de sauvegarder la feuille nommé BCI sous format PDF à l'endroit indiqué. Dans mon exemple, le nom du PDF est le nom du fichier excel mais j'aimerai que la sauvegarde soit la valeur de la cellule B3 (23-200026.pdf).

D'avance merci,

HT.
 

Pièces jointes

Solution
Bonjour Huggy,
essayez :
VB: 
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     "C:\Users\htous\Downloads\" & [B3] & ".pdf", Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Mais vous aurez surement un souci avec le caractère "/" dans la cellule B3. Remplacez le par autre chose,
23-200026 ou 23_200026 par exemple.


Addon : Si le format dans la feuille est fixé, alors vous pouvez le remplacer dans la macro avec :
VB: 
NomFichier = "C:\Users\htous\Downloads\" & Replace([B3], "/", "-") & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFichier, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False...
Trier par date Trier par votes
Bonjour Huggy,
essayez :
VB: 
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     "C:\Users\htous\Downloads\" & [B3] & ".pdf", Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Mais vous aurez surement un souci avec le caractère "/" dans la cellule B3. Remplacez le par autre chose,
23-200026 ou 23_200026 par exemple.


Addon : Si le format dans la feuille est fixé, alors vous pouvez le remplacer dans la macro avec :
VB: 
NomFichier = "C:\Users\htous\Downloads\" & Replace([B3], "/", "-") & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFichier, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Bonjour,

Je me suis permis d'utiliser votre code pour un fichier à moi.

VB: 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    [A6], Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Mais j'aurais besoin, pour un autre fichier, de faire la même procédure, mais pour deux onglets à la fois, à mettre dans un seul fichier.
En sélectionnant "A6", VBA se contentera-t-il de la cellule A6 de la feuille active, ou ira-t-il chercher A6 sur chaque feuille ?

Merci d'avance,
Et bonne journée à chacun...
Olivier.
 
Vote positif 0 Vote négatif
Bon, vous les connaissez ces jours où, très tôt (quand le réveil vous a extirpé d'un sommeil profond), vous vous êtes dit qu'il aurait mieux valu rester couché ?
Ben, pour moi, aujourd'hui est un de ces jours-là.
Donc, en testant mon besoin sur mon premier fichier, j'ai pu constater que ça fonctionnait tel quel.

En espérant n'avoir fait perdre de temps à personne du coup...

Et si ma question/réponse peut servir à quelqu'un d'autre, ce sera finalement utile...

Bonne fin de journée à tous,

Olivier.
 
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

Discussions similaires

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
314
Phil69970
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
429
Nounours4173
N
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
241
PHIL37
P
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
257
StéphaneDeLà
S
S
  • Question Question
XL 2019 enregistrement pdf avec variable et format variable
Réponses
10
Affichages
435
sofmat
S
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
1 K
kiki29
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
503
tnion
T
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
388
firecarl
F
G
  • Question Question
Microsoft 365 vba intégrer réf onglet dans code sauvegarde
Réponses
2
Affichages
539
patricktoulon
M
  • Question Question
XL 2019 Macro empêcher enregistrer sous format pdf
Réponses
10
Affichages
537
Mulciber
M
L
  • Question Question
XL 2016 Fusionner PDF
Réponses
1
Affichages
488
kiki29
G
  • Résolu(e)
Microsoft 365 PDF via Excel + choix nom PDF
Réponses
2
Affichages
435
gpion
G
A
  • Résolu(e)
XL 2013 Enregistrement feuille sous pdf
Réponses
2
Affichages
356
Appo1985
A
B
  • Question Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
639
kiki29
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
980
JPaul78
J
J
  • Question Question
Microsoft 365 Conversion de fichiers word en pdf / VBA
Réponses
1
Affichages
592
kiki29
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
934
TooFatBoy
B
  • Question Question
Autres excel vba --> sauvegarder le dessin d'une feuille sur le disque dur
Réponses
2
Affichages
93
bernard_metz
B
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
210
tristan05
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
991
jojo4738
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…