Discussion :

[emile64]

Bonjour à tous,
j'aimerais bien perfectionner le bout de code ci-dessous qui devrait me permettre d'imprimer directement le document actif en pdf. Le problème c'est quand je veux paramétrer les 'Filters' avec ' .Filters.Clear ' et ' .Filters.Add "PDF", "*.pdf" ' ça plante avec l'erreur suivante:
Erreur '438' : Propriété ou méthode non gérée par cet objet

Et je ne vois pas trop comment faire pour arriver à mes fins. NB,
l'exercice étant de l'appeller par son nom et extension , plutôt que par son index (La version index, fonctionne)
Merci d'avance pour votre aide et suggestions.

Sub Imprimer_Pdf()
Dim dlgSaveAs As FileDialog
Dim FileName As String
Dim result As Integer

' Nom du fichier actif sans extension
If InStrRev(ActiveDocument.Name, ".") > 0 Then
FileName = Left(ActiveDocument.Name, InStrRev(ActiveDocument.Name, ".") - 1)
Else
FileName = ActiveDocument.Name
End If

Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
With dlgSaveAs
.InitialFileName = "D:\Documents\" & FileName
.Title = "Enregistrer sous"
.Filters.Clear
.Filters.Add "PDF", "*.pdf"
.FilterIndex = 1
result = .Show
If result = -1 Then ' L'utilisateur clique sur "Enregistrer"
' Imprimer le document en PDF

Else ' L'utilisateur clique sur "Annuler"
MsgBox "Opération annulée."
End If
End With
End Sub

Cordialement,
Emile

Office Professionnel plus 2021 (Word)

[E KERGRESSE]

Bonjour,

Le répertoire de destination est toujours le même ?

Nb : Mettez votre code avec le bouton # du menu.

[emile64]

Bonjour et merci pour votre suivi,
Oui, c'est toujours le même.
Bonne journée

[E KERGRESSE]

Bonjour,

A tester :

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
 
Sub EnregistrerPDF()
 
Dim Chemin As String, NomFichier As String
 
    ' Nom du fichier actif sans extension
    With ActiveDocument
 
         Chemin = .Path & "\"
         If InStrRev(.Name, ".") > 0 Then
            NomFichier = Left(.Name, InStrRev(.Name, ".") - 1)
         Else
            NomFichier = .Name
         End If
 
         .ExportAsFixedFormat outputFileName:=Chemin & "\" & NomFichier, exportformat:=wdExportFormatPDF  ', _
                    Quality:=wdQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
    End With
 
End Sub

[emile64]

Bonjour E KERGRESSE,
Merci pour votre aide.
Malheureusement, ça ne fonctionne pas comme je voudrais et souhaite vraiment calquer sur le modèle présenté.
Je vais voir si je peux marier les deux code et voir ce que ça donne.
Cordialement,
Emile

[E KERGRESSE]

Sauf erreur de ma part, vous essayez de sauvegarder un fichier word directement en fichier pdf en changeant seulement l'extension, mais je ne demande qu'à apprendre .

[emile64]

Bonjour E KERGRESSE,
Merci pour votre aide.

Heu, non pas tout-à-fait. L'idée c'est d'utiliser la boîte de dialogue :Enregistrer sous...
qui permets de changer le Nom du fichier (s'il y a lieu, mais un nom est déjà préparé par défaut), son répertoire éventuel ** et surtout le type, qui passe alors en pdf.
** Je souhaite qu'enregistrer sous... S'ouvre depuis : C:/ Mes documents / mais comme tous les pdf sont différents (Factures, fournisseurs, clients etc...) ils vont alors être envoyés a partir de mes documents dans leurs répertoires respectifs.

La macro en question fonctionne mais avec : .filterIndex = 7 ' 7ème position de l'index des extensions (pdf), le problème c'est que l'index peut changer d'un pc à l'autre... Et je voudrais quelque chose de plus directe. D'où l'idée de mettre directement le filtre 'Type': de docx à PDF, mais malheureusement la commande
.Filters.Clear et
.Filters.Add "PDF", "*.pdf"

Plantent la procédure, et ne semble pas fonctionner, comme si 'Filters' n'étaient pas reconnu dans cet environnement.

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
    Dim dlgSaveAs As FileDialog
    Dim FileName As String
    Dim result As Integer
    
        ' Nom du fichier actif sans extension
        If InStrRev(ActiveDocument.Name, ".") > 0 Then
            FileName = Left(ActiveDocument.Name, InStrRev(ActiveDocument.Name, ".") - 1)
        Else
            FileName = ActiveDocument.Name
        End If
    
    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    With dlgSaveAs
        .InitialFileName = "D:\Documents\" & FileName
        .Title = "Enregistrer sous"
        .filterIndex = 7 ' 7ème position de l'index des extensions (pdf), peut changer d'un pc à l'autre
        result = .Show
        If result = -1 Then ' L'utilisateur a cliqué sur "Enregistrer"
            ' Imprimer le document en PDF

Voilà, j'espère que c'est plus compréhensible comme ça

[E KERGRESSE]

Bonjour,

Je viens d'essayer votre code. En effet, la boite de dialogue recherche les documents de type pdf, mais la validation ne donne rien, et pour cause mon document n'existe pas au format pdf.
Etes-vous certain que la transformation d'un .doc vers un .pdf soit possible avec cette commande ?

De mon point de vue, il faudrait créer un userform pour donner la possibilité de choisir le répertoire et changer le nom du document tout en utilisant le code d'un précédent message une fois validé.