Discussion :

[jbramond]

Bonjour,

Je me permets de m'inscrire sur ce forum pour poser une question dont je ne trouve pas la réponse.

Je souhaite créer une macro sous WORD pour automatiser
- l'enregistrement sur le bureau du document en cours
- au format pdf
- en lui donnant au fichier final le nom du document word.

Comme je suis débutant en VBA, j'ai utilisé l'enregistreur de macro, qui a filmé mes mouvements et donné le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub EnregistrerPDF()
' EnregistrerPDF Macro
      ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\Jean-Baptiste\Desktop\FICHIER TEST.pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

Tout marche bien, sauf que le fichier créé se nomme "FICHIER TEST", et que ce nom ne change pas quel que soit le fichier WORD utilisé.
Comment indiquer que je veux que le fichier pdf porte le nom du fichier en cours ? ActiveDocument.Name ?

Merci d'avance pour votre réponse précieuse !

[Invité]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub EnregistrerPDF()
 
Dim CheminCompletExport As String
 
     With ActiveDocument
 
          CheminCompletExport = "C:\Users\Jean-Baptiste\Desktop\" & NomSansExtension(.Name) & ".pdf"
         .ExportAsFixedFormat OutputFileName:=CheminCompletExport, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True
 
    End With
 
End Sub
 
Function NomSansExtension(ByVal NomDoc As String) As String
 
Dim I As Integer, PositionPoint As Integer
 
    For I = Len(NomDoc) To 1 Step -1
        If Mid(NomDoc, I, 1) = "." Then
           PositionPoint = I
           Exit For
        End If
    Next I
    NomSansExtension = Mid(NomDoc, 1, PositionPoint - 1)
 
End Function

[jbramond]

Merci Eric, ça marche parfaitement, c'est exactement ça !
Bonne fin d'année à vous !

[belaidx001]

Bonsoir jbramond,

J'ai essayé d'implementer le code ci-dessus en changeant le chemin mais ça pas fonctionné, pouvez vous vérifiez avec moi où existe l'erreur exactement? (Je suis vraiment débutant)

ça retourne: Erreur d'éxcution 424 - Objet réquis.

[supercopain]

Bonjour,
j'espère être à la bonne place pour poser ma question ...


Ci-dessous un code qui me permettais d'enregistrer le fichier word actif dans le même répertoire avec le même nom mais au format .PDF
mais ne marche plus correctement et me retourne une boite de dialogue : "Microsoft Visual Basic pour Applications" (avec un rond rouge contenant une croix) et les cases OK / Aide

Est-ce quelqu'un peut m'expliquer ce qui peut déclencher cette boîte de dialogue??

merci pour votre aide
(j'utilise office 365)

Sub VersPDF()

Dim nfichier As String, nfichier2 As String, intpos As Byte

nfichier = ActiveDocument.Name
'trouve la position de l'extension
intpos = InStrRev(nfichier, ".")
'remplace l'extension doc par pdf
nfichier = Left(nfichier, intpos - 1)
nfichier2 = nfichier & ".pdf"
'enregistre dans le dossier en cours
ActiveDocument.ExportAsFixedFormat outputFileName:=ActiveDocument.Path & "/" & nfichier2, _
exportFormat:=wdExportFormatPDF

Application.DisplayAlerts = False
ActiveDocument.Close SaveChanges:=False
Application.DisplayAlerts = True

Application.Quit

End Sub