XL 2013 renommer un fichier PDF

youky(BJ)

XLDnaute Barbatruc

• 7 Mars 2017

• #2

VB:

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

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 7 Mars 2017

• #3

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Mars 2017

• #4

Bonjour à tous,

Peux-tu essayer :

VB:

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

Tu remplaces "JCGL" par ton login.

A+ à tous

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 7 Mars 2017

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Mars 2017

• #6

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

 

Vote positif 0 Vote négatif