Word Gnérer PDF et changer le titre

[Marine_blatz]

Bonjour,

quelqu'un aurait t-il la gentillesse de m'aider à a faire une macro ?

j'ai un doc excel et son titre fini par R0.

je souhaite que quand j'associe un racourci clavié exemple ctrl+m et sur mon document ouvert
il se passe cette action:

exemple:

titre du doc word: "azerty-R0"
j'execute la macro pour la quelle j'ai besoin de votre aide
il génére une copie (dans le même dossier) en pdf et renomme la copie pdf en : "azerty-P" (il sup le R0 pour remplacer par P quoi...)

enregistre le word en docx, et le ferme
sans ouvrir l'appercu PDF.

Celui qui reussi à me faire ca c'est un génie voila qui fait 17h que j'essaye de reussir ma premiere ligne de code mdr

Cordialement
marina

on ma déjà répondu mais j'ai des problème avec "le mot clé .ME" je ne sais pas quoi faire sincérement je suis perdu

 

[Marine_blatz]

Remplacez les codes du Normal/thisdocument par le code ci-dessous :
Nommez-le comme vous le désirez et exécutez le .

Sub Export()
Dim NomFich As String
    NomFich = Replace(CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name), "-R0", "-P")
    NomFich = ActiveDocument.Path & "\" & NomFich & ".pdf"
   
    ActiveDocument.ExportAsFixedFormat NomFich, wdExportFormatPDF
    If Err = 0 _
    Then MsgBox NomFich & vbLf & "a été enregistré ", vbInformation _
    Else MsgBox NomFich & vbLf & Err.Description, vbCritical
   
    Application.DisplayAlerts = False
    Application.Quit wdSaveChanges

End Sub

JE T'AIME MERCIIIIIIIIIII !!!!!!!