Bonsoir
j'ai un code qui fonctionnait très bien en vba et je le remet en VB pour faire une application isolée
Je bute sur une déclaration
voici mon code
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 Function WordSave(wordDoc As Word.Document) As Boolean Dim strFilename As String Dim date_file As Date Dim temp As String date_file = Date.Today temp = "_" & date_file.ToString("ddmmyyhhmmss") WordSave = False On Error Resume Next 'wordDoc.Application.ActiveDocument.SaveAs(strFilename) strFilename = Chemin_Sauvegarde_ATR & pn_Actif & "_" & product_sn & temp & ".pdf" Call wordDoc.ExportAsFixedFormat(strFilename, wordDoc.wdExportFormatPDF, False) If Err.Number <> 0 Then MsgBox("Impossible de sauver " + strFilename) : Exit Function End If ' ouverture du fichier pdf lance_Shell(strFilename) On Error GoTo 0 WordSave = True End Function
j'ai la superbe erreur
Informations supplémentaires : Le membre public 'wdExportFormatPDF' du type 'DocumentClass' est introuvable.
Il ne connait pas wdExportFormatPDF ...
J'avais eu la même avec Replace:=wdReplaceAll le wdreplaceAll etait inconnu que j'ai resolu en ne le mettant plus...
Mais la pas possible donc ma question est comment je peux spécifier le format de l'export depuis VB ?
Partager