Word Gnérer PDF et changer le titre

M

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
fanch55
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...
Trier par date Trier par votes
fanch55

fanch55

XLDnaute Barbatruc
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 .
1640438139550.png

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 www.faqword.com

C'est à vous maintenant de faire en sorte que vos documents fonctionnent .
 
Vote positif 0 Vote négatif
M

Marine_blatz

XLDnaute Nouveau
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 www.faqword.com

C'est à vous maintenant de faire en sorte que vos documents fonctionnent .
Cliquez pour agrandir...
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...
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif
M

Marine_blatz

XLDnaute Nouveau
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
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
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)
 
Vote positif 0 Vote négatif
Solution
M

Marine_blatz

XLDnaute Nouveau
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)
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2019 Macro d'enregistrement
Réponses
8
Affichages
1 K
job75
job75
J
  • Résolu(e)
XL 2019 Important : Nommer fichier grâce aux éléments de publipostage
Réponses
6
Affichages
582
JacquesO
J
D
  • Question
XL 2010 Afficher un doc Word sur une feuille et pouvoir le faire défiler
Réponses
5
Affichages
359
danielco
D
M
  • Question
Microsoft 365 Publipostage Word avec édition en pdf
Réponses
2
Affichages
3 K
jui42
J
W
  • Question
XL 2010 Publipostage Word Excel en joignant si possible automatuqement un fichier pdf et un fichier excell
Réponses
0
Affichages
1 K
willoweiss
W
jeanmi
  • Question
XL 2010 Ouvrir un doc word depuis excel et lancer une macro qui est dans le doc word
Réponses
2
Affichages
2 K
jeanmi
jeanmi
Y
  • Question
Microsoft 365 Convertir des données Pdf/Word sur un fichier Excel
Réponses
7
Affichages
1 K
Yann21
Y
Azuveus
  • Résolu(e)
Microsoft 365 Remplir un tableur Excel a partir d'un document Word
Réponses
2
Affichages
3 K
Azuveus
Azuveus
L
  • Question
Afficher le ou les fichiers liés à un nom dans un Combobox
Réponses
2
Affichages
725
Legendre
L
Y
  • Question
Microsoft 365 Faire une macro sur word pour enregistrer automatiquement le fichier en PDF
Réponses
0
Affichages
2 K
Yann21
Y

Membres actuellement en ligne

3 membres et 64 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 087
Messages
2 116 082
Membres
112 654
dernier inscrit
SADIKA