Macro Excel pour enregistrement sous PDF

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

3 réponses

  1. Utilisateur anonyme
     
    Bonjour,

    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
    0
    1. PASDECALAIS
       
      J'ai fait un copier coller, mais la macro ne fonctionne pas...Sub CheminDAccess() est surbrillance.
      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
      0
  2. Utilisateur anonyme
     
    re: 

    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
    0
  3. PASDECALAIS
     
    Bonjour Lupin,

    Bon bé les macros s'est pas pour moi...Je n'ai toujours pas réussit à faire une impression ou même enregistrer en PDF avec le nom de mes cellules...
    Merci quand même pour ton aide.
    Cordialement
    0