Word Gnérer PDF et changer le titre

Marine_blatz

XLDnaute Nouveau
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
 

Pièces jointes

  • azerty-R0.docm
    21.7 KB · Affichages: 3
Solution
Modifiez le code avec celui ci-dessous
VB:
Option Explicit

Private Sub Document_Open()
    CustomizationContext = ActiveDocument
    KeyBindings.Add _
         KeyCode:=BuildKeyCode(wdKeyControl, wdKeyM), _
         KeyCategory:=wdKeyCategoryCommand, _
         Command:="Export"
    If Err = 0 Then MsgBox "La macro ""Export"" a été assignée aux touches CTRL+M"
End Sub

Sub Export()
Dim NomFich As String
    NomFich = Split(ActiveDocument.FullName, "-")(0) & "-P.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...

Marine_blatz

XLDnaute Nouveau
Remplacez les codes du Normal/thisdocument par le code ci-dessous :
Nommez-le comme vous le désirez et exécutez le .
VB:
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 !!!!!!!
 

Statistiques des forums

Discussions
298 013
Messages
1 965 133
Membres
200 858
dernier inscrit
Unclebens