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

fanch55 · 19 Décembre 2021

Bonjour,
Le classeur joint devrait le faire

Marine_blatz à dit:
enregistre le word en docx

Ce serait alors une nouvelle copie sans la macro ?

Marine_blatz · 25 Décembre 2021

fanch55 à dit:
Bonjour,
Le classeur joint devrait le faire

Ce serait alors une nouvelle copie sans la macro ?

J'arrive pas à faire que la macro soit utilisable dans tout mes docs excel

merci de votre aide

fanch55 · 25 Décembre 2021

Bonjour,
C'est du Word ou du Excel ?

Marine_blatz · 25 Décembre 2021

fanch55 à dit:
Bonjour,
C'est du Word ou du Excel ?

Du word

Marine_blatz · 25 Décembre 2021

fanch55 à dit:
Bonjour,
C'est du Word ou du Excel ?

Je souhaite avoir dans nimporte quel fichier word la possibilité d'aller dans développeur de voir le titre "generationpdf" et que en faisant executer cela marche hors actuellement ca ne marche que dans le docs que vous m'avez envoyé

fanch55 · 25 Décembre 2021

Si vous voulez que cela fonctionne pour tous les documents Word sur votre PC, copiez tout le code dans le module "ThisDocument " du groupe "normal".
Ceci dit, le code est adapté à votre demande initiale .

Sinon, un topic à propos de macro partagée :

Faqword - Comment rendre disponible une macro depuis n'importe quel document?

Réponses à toutes les questions sur Word et PowerPoint, toutes versions

www.faqword.com

C'est à vous maintenant de faire en sorte que vos documents fonctionnent .

Marine_blatz · 25 Décembre 2021

fanch55 à dit:
Si vous voulez que cela fonctionne pour tous les documents Word sur votre PC, copiez tout le code dans le module "ThisDocument " du groupe "normal".
Ceci dit, le code est adapté à votre demande initiale .
Regarde la pièce jointe 1125691

Sinon, un topic à propos de macro partagée :

Faqword - Comment rendre disponible une macro depuis n'importe quel document?

Réponses à toutes les questions sur Word et PowerPoint, toutes versions

www.faqword.com

C'est à vous maintenant de faire en sorte que vos documents fonctionnent .

quelqu'un saurait m'expliquer comment générer les macros qu'on m'envoi ?elles marche que dans vos documents. Renvoyé

Je suis littéralement entrain de denouveau pleurer devant mon document...j'ai déjà passé des jours à essayer encore et encore ...

Pourquoi quand je stock les macros dans normal à l'exécution on me dit variable non définie " ExportAsFixedFormat" surligné en jaune.

j' doit stocker ou la macro ?

NORMAL
---newmacros
---thisdocument
PROJET (azerty-R0)
---référence à normal
---thisdocument

merci de votre aide
Je suis seul pour noël et en plus je pleure devant des macros my life be like...

fanch55 · 25 Décembre 2021

Copiez le code ci-joint dans le module
NORMAL
---newmacros
---thisdocument
PROJET (azerty-R0)
---référence à normal
---thisdocument

VB:

Option Explicit

Private Sub Document_Open()
    CustomizationContext = ActiveDocument
    KeyBindings.Add _
         KeyCode:=BuildKeyCode(wdKeyControl, wdKeyM), _
         KeyCategory:=wdKeyCategoryCommand, _
         Command:="Export"
     If Err = 0 Then MsgBox "Export is assigned to CTRL+M"
End Sub

Sub Export()
Dim NomFich As String
    NomFich = Split(ActiveDocument.FullName, "-")(0) & "-P.pdf"
    ExportAsFixedFormat NomFich, wdExportFormatPDF
    Application.DisplayAlerts = False
    Application.Quit wdSaveChanges
End Sub

Private Sub Document_Close()
    FindKey(BuildKeyCode(wdKeyControl, wdKeyM)).Disable
End Sub

Marine_blatz · 26 Décembre 2021

fanch55 à dit:

Copiez le code ci-joint dans le module
NORMAL
---newmacros
---thisdocument
PROJET (azerty-R0)
---référence à normal
---thisdocument

VB:

Option Explicit

Private Sub Document_Open()
    CustomizationContext = ActiveDocument
    KeyBindings.Add _
         KeyCode:=BuildKeyCode(wdKeyControl, wdKeyM), _
         KeyCategory:=wdKeyCategoryCommand, _
         Command:="Export"
     If Err = 0 Then MsgBox "Export is assigned to CTRL+M"
End Sub

Sub Export()
Dim NomFich As String
    NomFich = Split(ActiveDocument.FullName, "-")(0) & "-P.pdf"
    ExportAsFixedFormat NomFich, wdExportFormatPDF
    Application.DisplayAlerts = False
    Application.Quit wdSaveChanges
End Sub

Private Sub Document_Close()
    FindKey(BuildKeyCode(wdKeyControl, wdKeyM)).Disable
End Sub

Bonjour,
aucun message d'autres fichiers mais le -P.pdf ne se génére pas pourquoi? la fermeture l'enregistrement du docM marche pourtant

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
    Application.Quit wdSaveChanges
End Sub

Private Sub Document_Close()
    FindKey(BuildKeyCode(wdKeyControl, wdKeyM)).Disable
End Sub

N'oubliez pas que pour générer le fichier PDF, il faut faire Ctrl+M .
(ou éventuellement faire un Exécuter sur la sub Export)

Marine_blatz · 26 Décembre 2021

fanch55 à dit:

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
    Application.Quit wdSaveChanges
End Sub

Private Sub Document_Close()
    FindKey(BuildKeyCode(wdKeyControl, wdKeyM)).Disable
End Sub

N'oubliez pas que pour générer le fichier PDF, il faut faire Ctrl+M .
(ou éventuellement faire un Exécuter sur la sub Export)

Le code control M me perturbe on peu l'enlever ? et juste mettre le code qui génére pdf et ferme tout ?
comme ca après je paramétre le raccourci vers l'execution d'une seu

Marine_blatz · 26 Décembre 2021

Ca marche sauf qu'il enregistre pas dans le même fichier que le docm le pdf. et il le nomme "-P.pdf"
explication

il fait "nomdufichiers-R0.docm" --->"-P.pdf"
il devrait faire faire "nomdufichiers-R0.docm" --->"nomdufichier-P.pdf"

Marine_blatz · 26 Décembre 2021

Marine_blatz à dit:
Ca marche sauf qu'il enregistre pas dans le même fichier que le docm le pdf. et il le nomme "-P.pdf"
explication

il fait "nomdufichiers-R0.docm" --->"-P.pdf"
il devrait faire faire "nomdufichiers-R0.docm" --->"nomdufichier-P.pdf"

ien fait le code devrait juste ecrire remplacer dans le titre "-R0" par "-P" et enregistrer en pdf

fanch55 · 26 Décembre 2021

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

Word Gnérer PDF et changer le titre

Marine_blatz

XLDnaute Nouveau

Pièces jointes

fanch55

fanch55

XLDnaute Barbatruc

Pièces jointes

Marine_blatz

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Marine_blatz

XLDnaute Nouveau

Marine_blatz

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Faqword - Comment rendre disponible une macro depuis n'importe quel document?

Marine_blatz

XLDnaute Nouveau

Faqword - Comment rendre disponible une macro depuis n'importe quel document?

fanch55

XLDnaute Barbatruc

Marine_blatz

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Marine_blatz

XLDnaute Nouveau

Marine_blatz

XLDnaute Nouveau

Marine_blatz

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Discussions similaires