XL 2013 renommer un fichier PDF

[pralo]

bonsoir le forum
j'ai besoin d'un petit coup de main

je voudrais que le PDF soit renommer automatique comme le nom du classeur
(ex test #546)
mais je n'est pas trouvé le bon code
quelqu'un a une idée ?
merci

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Desktop\test#546.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

 

[youky(BJ)]

chemin = ThisWorkbook.Path & "\"
fichier = Replace(ThisWorkbook.Name, ".xlsm", "")
On Error Resume Next
Sheets("Impression").ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & fichier & ".pdf"
If Err = 0 Then
MsgBox fichier & ".Pdf  a été créé"
Else
MsgBox "Impossible de créer le fichier PDF", vbExclamation, "ANNULATION"
End If

Bonjour pralo,
Un code pompé sur un de mes fichier
Remplacer "Imprime" par le nom de l'onglet
Bruno

 

[pralo]

bonsoir Bruno
merci pour ta réponse rapide
je suis pas très doué en vba
suivant tes indications j'ai mis le "imprime" dans mon code
"C:\Users\pralo\Desktop\imprime.pdf", Quality:=xlQualityStandard, _
maintenant le PDF est enregistrer sous de nom de "Imprime" et pas le nom du fichier
j'ai essayer ta macro et je pense que je ne sais pas l'adapter
si tu a un peut de temps tu peut me dire ou est mon erreur
encore merci

 

[JCGL]

Bonjour à tous,

Peux-tu essayer :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\JCGL\Desktop\" & ThisWorkbook.Name & ".pdf"

Tu remplaces "JCGL" par ton login.

A+ à tous

 

[youky(BJ)]

Bonsoir JCGL,
L'extension du ThisWorkbook.Name n'est pas sous la neige.
Je propose un coup de chasse neige
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\JCGL\Desktop\" & Replace(ThisWorkbook.Name, ".xlsm", ".pdf")
PS: j'ai pas fait de ski cette année et ca me manque
Bruno

 

[JCGL]

Bonjour à tous,

Si tu veux de la neige... J'en ai.
Elle a mis du temps à poindre mais elle est là.
Pénible le matin car elle tombe mais soleil timide l’après-midi.

A++
A+ à tous