Macro Excel pour enregistrement sous PDF
PASDECALAIS
-
PASDECALAIS -
PASDECALAIS -
Bonjour,
Ci-dessous une macro pour enregistrer mon document Excel sous format PDF, je souhaite intégrer le nom de certaines cellules comme nom du fichier.
Pouvez-vous m'aider, vous en remerciant par avance.
Sub Enregistrer()
'
' Enregistrer Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Mes documents\Bon de commande\ICI JE SOUHAITE INSERER LE NOM DES CELLULES.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Cordialement
Ci-dessous une macro pour enregistrer mon document Excel sous format PDF, je souhaite intégrer le nom de certaines cellules comme nom du fichier.
Pouvez-vous m'aider, vous en remerciant par avance.
Sub Enregistrer()
'
' Enregistrer Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Mes documents\Bon de commande\ICI JE SOUHAITE INSERER LE NOM DES CELLULES.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Cordialement
A voir également:
- Macro Excel pour enregistrement sous PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
3 réponses
Bonjour,
Suggestion :
Cdt
Lupin
Suggestion :
Option Explicit
Sub CheminDAccess()
Dim Chemin As String
Chemin = "C:\Mes documents\Bon de commande\"
Chemin = Chemin & Range("B1").Value & "_" & Range("C1").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
'
Cdt
Lupin
re:
Cdt
Lupin
Option Explicit
Sub Enregistrer()
'
' Enregistrer Macro
'
Dim Chemin As String
Chemin = "C:\Mes documents\Bon de commande\"
Chemin = Chemin & Range("B1").Value & "_" & Range("C1").Value & ".pdf"
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
'
Cdt
Lupin
Est ce que c'est une maco entière ou dois je le rajouter à celle de l'enregistrement, si c'est le cas où dois je la positionner ?
D'avance merci pour votre aide