Word Gnérer PDF et changer le titre

Marine_blatz · 19 Décembre 2021

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

fanch55 · 26 Décembre 2021

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 · 26 Décembre 2021

fanch55 à dit:

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 !!!!!!!

Word Gnérer PDF et changer le titre

Marine_blatz

XLDnaute Nouveau

Pièces jointes

fanch55

Marine_blatz

XLDnaute Nouveau

Discussions similaires