XLSM en PDF via une macro
Salut a tous
J'aurais besoin d'un code VBA pour enregistrer en PDF (j'ai excel 2007 donc pas besoin de PDFCREATOR). L'enregistrement doit se faire sur le bureau. Le nom du PDF doit etre "ETUDE RT2012 + le contenu de la cellule B20"
Le fichier doit estre exploitable à partir 'autres PC
Merci pour votre aide
Bonjour killerjo,
Essaie en utilisant l'enregistreur de macro, ça devrait le faire.
Et ça marche comment ? (Je suis débutant en vba)
Ah ok.
Lance l'enregistreur de macro (onglet Développeur / Enregistrer une macro)
Ensuite enregistre ton fichier en PDF en choisissant un nom de fichier quelconque.
Colle ensuite le code ici.
Je teste
Sub Enregistrer_PDF()
'
' Enregistrer_PDF Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\MONSIEUR PLAN\Desktop\RT2012 - B20.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Le probleme est que je voudrais que le nom du fichier soit "RT2012 + cellule B20". Là j'ai testé, mais ca marche pas comme je veux (mais a priori c'est un bon debut ...)
Là c'est plus simple
Tu as juste à faire comme ça :
Sub Enregistrer_PDF()
'
' Enregistrer_PDF Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\MONSIEUR PLAN\Desktop\RT2012 - " & Sheets("NomDeTaFeuille").Range("B20") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End SubGénail ca marche !!! Maintenant est ce que ca va fonctionner sur un autre pc ?
Si tu souhaites enregistrer le pdf toujours sur le bureau :
Sub Enregistrer_PDF()
'
' Enregistrer_PDF Macro
'
Dim obj As Object
Set obj = CreateObject("WScript.Shell")
dossierBuro = obj.SpecialFolders("Desktop") & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
dossierBuro & "RT2012 - " & ActiveSheet.Range("B20") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub