Aide macro commande excel / excel save en pdf
nono74
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je veux sauvegarder une feuille excel en pdf.
J'ai créé la macro commande qui fonctionne parfaitement.
Mais je souhaite que le fichier pdf prenne de lui même le nom qui s'affiche dans la case B5 de ma feuille excel.
que dois modifier ?
voici ma macro commande :
ChDir _
"N:\17000
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"N:\17000\APS\ ALS PDFS ET TRES\TRES\TRES NUMERO & B5.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=1, To:=1, OpenAfterPublish:=True
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.OnAction = "enregistre"
ActiveCell.Offset(1, 3).Range("A1").Select
End Sub
je veux sauvegarder une feuille excel en pdf.
J'ai créé la macro commande qui fonctionne parfaitement.
Mais je souhaite que le fichier pdf prenne de lui même le nom qui s'affiche dans la case B5 de ma feuille excel.
que dois modifier ?
voici ma macro commande :
ChDir _
"N:\17000
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"N:\17000\APS\ ALS PDFS ET TRES\TRES\TRES NUMERO & B5.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=1, To:=1, OpenAfterPublish:=True
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.OnAction = "enregistre"
ActiveCell.Offset(1, 3).Range("A1").Select
End Sub
A voir également:
- Aide macro commande excel / excel save en pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Save as pdf office 2007 - Télécharger - Bureautique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide