Sujet Précédent Sujet Suivant

Macro Excel pour enregistrement sous PDF

Fermé
PASDECALAIS - 12 avril 2011 à 13:45
 PASDECALAIS - 15 avril 2011 à 09:55
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

A voir également:

3 réponses

Réponse 1 / 3
Utilisateur anonyme
12 avril 2011 à 14:41
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
PASDECALAIS
12 avril 2011 à 15:05
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
Réponse 2 / 3
Utilisateur anonyme
12 avril 2011 à 17:17
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
Réponse 3 / 3
PASDECALAIS
15 avril 2011 à 09:55
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