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

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

  • BCI.xlsm
    53.6 KB · Affichages: 19
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.
1675933498141.png


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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
1675933498141.png


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:

Discussions similaires

Réponses
1
Affichages
247
Réponses
22
Affichages
936

Statistiques des forums

Discussions
308 380
Messages
2 054 366
Membres
233 916
dernier inscrit
Akrobat