Discussion :

[alaingui]

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 ?

[clementmarcotte]

Bonjour,

Généralement les noms des constantes ne sont pas transmises par automation. Peut-être que cela marcherait si elle était déclarée comme une constante à partir de ton objet interop.word, mais je n'ai jamais essayé. Par contre, et c'est la même chose pour tous les noms des constantes Office, que ce soit avec .net ou avec le pilotage dans VBA, il suffit de transmettre la valeur numérique (17) de la constante, au lieu de son nom.

Code :

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

Call wordDoc.ExportAsFixedFormat(strFilename, 17, False)

Même que je ne serais pas surpris que ceci fonctionne également. (jamais essayé, c'est du trouble pour pas grand chose)

Code :

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

1
2
dim wdExportFormatPDF as integer =17
Call wordDoc.ExportAsFixedFormat(strFilename, wdExportFormatPDF, False)

Ou, on peut toujours rêver, quelqu'un qui bâtirait un type ENUM contenant toutes les constantes d'Office avec leurs valeurs numériques.

[alaingui]

Merci pour la réponse donc pour toutes les constantes je regardes avant dans le word ou excel la valeur...
j'ai un appliqué la 1 avec un commentaire pour le 17

Joyeux 31