Discussion :

[Alias_2003]

Bonjour à tous ,
Voici le code que j'utilise pour envoyer le document actif transformé en pdf, en pj d'un mail.

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
28
Private Sub CommandButton1_Click()
    Dim OL              As Object
    Dim EmailItem       As Object
    Dim Doc             As Document
    Dim strFileName     As String
 
    Application.ScreenUpdating = False
    Set OL = CreateObject("Outlook.Application")
    Set EmailItem = OL.CreateItem(0) ' 0 = olMailItem
    Set Doc = ActiveDocument
    strFileName = Replace(Doc.FullName, ".docm", ".pdf")
    Doc.ExportAsFixedFormat OutputFileName:=strFileName, _
        ExportFormat:=wdExportFormatPDF
 
    With EmailItem
        .Subject = ""
        .Body = ""
        .To = ""
        .Attachments.Add strFileName
        .Send
    End With
 
    Application.ScreenUpdating = True
 
    Set Doc = Nothing
    Set EmailItem = Nothing
    Set OL = Nothing
 End Sub

Ce code provient d'une recherche sur internet (je n'ai pas retrouvé le nom de l'auteur...) et fonctionne parfaitement, si ce n'est qu'il ne m'est plus possible d'enregistrer (et même enregistrer sous) mon document word après l'exécution de ce code.
Auriez-vous svp une explication ?
Je vous remercie,
Bonne soirée

[Invité]

e

Bonjour,

Essayez en remplaçant :

Code :

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

1
2
3
4
 
    'strFileName = Replace(Doc.FullName, ".docm", ".pdf")
 ' par
    strFileName = Mid(Doc.FullName, 1, Len(Doc.FullName) - 4) & "pdf"

[Alias_2003]

Bonjour Éric,
Je vous remercie beaucoup pour votre réponse, vous avez résolu mon problème ! Est-ce que je peux abuser et vous demander quelques explications ?
Merci encore à vous,
Bonne journée,
Amicalement

[Invité]

Est-ce que je peux abuser et vous demander quelques explications ?

Avec la ligne :

Code :

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

'strFileName = Replace(Doc.FullName, ".docm", ".pdf")

Vous venez renommer votre fichier Word avec une extension "pdf", c'est logique que Word ne puisse s'y retrouver par la suite.

[Alias_2003]

Evidemment ! Quel imbécile !
Merci beaucoup !
Bonne journée