Enregistrer une page Excel en pdf avec pour nom, l'adresse d'une cellule

Bonjour,

Je souhaite créer une macro qui me permette d'enregistrer ma page active au format pdf dans un répertoire sur c:\ et avec pour nom l'adresse d'une cellule (cellule B1).

Merci d'avance.

David.

PS : voir le fichier Excel 2007 disponible en pièce jointe

Bonjour DCE

ci joint un exemple

a vous relire

[attachment=0]EnregistrementPDF.xlsm

Merci pour votre aide.

La macro bloque sur cette ligne :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\qcms\" + Name + ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

False

Avez vous une idée pour palier à ce problème? David.

bizzare

ca fontionne trop bien chez moi

office 2019

Bonjour

ci joint les changement à faire

Sub Macro2()

'

' Macro2 Macro

'

'

Set Name = Range("B1")

Application.CutCopyMode = False

ChDir "C:\Users\iliyes\Downloads" ' l'adresse de ton rep de sauvegarde ce qui est entre guillemet

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\iliyes\Downloads\" + Name + ".pdf", Quality:=xlQualityStandard, _ ' l'adresse de ton rep de sauvegarde ce qui est entre guillemet

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

False

End Sub

j'espere que ca reglera votre probleme

à vous relire

pardon

Sub Macro2()
'
' Macro2 Macro
'

'
Set Name = Range("B1")

Application.CutCopyMode = False
ChDir "C:\Users\iliyes\Downloads" ' l'adresse de ton rep de sauvegarde ce qui est entre guillemet
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\iliyes\Downloads\" + Name + ".pdf", Quality:=xlQualityStandard, _ ' l'adresse de ton rep de sauvegarde ce qui est entre guillemet
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

Bon, cela ne fonctionne tjs pas, je vais essayer avec un autre pc (et office 2016).....

Merci pour votre aide. David.

re

je l'ai essayé aujourd'hui avec un autre PC ( moi aussi) sous 2013 !!! ça fonctionne

bizarre

bonjour

essaie cela

ChDir "C:\Users\iliyes\Downloads\" ' ajoute le \ 

a vous relire

Ca marche avec Excel2016. C'est une histoire de version en fait. Merci pour votre aide. David.

Bonjour

sans aucun problème

juste faire sur le post résolu

merci

Bonjour iliyes,

merci infiniment

simple et efficace

Rechercher des sujets similaires à "enregistrer page pdf nom adresse"