Format de fichier wdF non reconnu

Version imprimable

08/09/2020, 10h47
jpmalb

Format de fichier wdF non reconnu

Bonjour
Dans une macro, j'ai trouvé cette appellation concernant ce type de fichier : wdf

Code:

ActiveDocument.SaveAs FileName:=pathstring & "\" & nomFichierDestination, FileFormat:=wdF

J'ai recherché dans "Énumération WdSaveFormat (Word)". Cette formulation n'apparaît pas...
et quand j'essaie de lancer la procédure, j'ai un message d'erreur "Erreur de compilation - variable non définie"
Quelqu'un a-t-il une suggestion ?
Merci
08/09/2020, 13h35
Invité

Citation:

Envoyé par jpmalb

Bonjour,

Pourquoi avez-vous besoin de ce type d'extension ?
08/09/2020, 14h51
jpmalb

...bonjour
un de mes contact m' a transmis une procédure destinée à réaliser une fusion avec un fichier Excel et à sauvegarder cette fusion sous Word sur le Bureau...et j'ai ce message d'erreur, que lui n'a pas et qui empêche la poursuite du programme... Je travaille avec Office 365 - 32 bits
08/09/2020, 15h24
Invité

Citation:

Envoyé par jpmalb

Je ne suis pas spécialiste, mais votre interlocuteur ouvre, génère ou utilise ce type de fichier avec quel outil ou quelle version d'office, word, etc ?
08/09/2020, 15h33
jpmalb

.. la même, Office 16, version 2007...pour Excel et Word..
08/09/2020, 15h44
Invité

Citation:

Envoyé par jpmalb

Désolé, je ne vois pas.
08/09/2020, 17h10
jpmalb

..merci de m'avoir répondu .. il me semble que l'auteur a utilisé l'enregistrement automatique de macro...
Bizarre que ça fonctionne chez lui et pas chez moi.
Bonne soirée.
09/09/2020, 04h45
Invité

Citation:

Envoyé par jpmalb

Aurait-il référencé une DLL particulière ? Dans VBA Outils - Références.

Bonjour
...non, pas de DLL particulière.
Ci-après la macro au complet qui est dans le document Word et qui est lancée par Excel dés la saisie de renseignements terminée.

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
Sub Macro1()
 
Dim docDP As Document, NomFichierSource, nomFichierDestination, nomfich As String
Set docDP = ActiveDocument
 
Dim WSHShell, desktop, pathstring, objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("WScript.Shell")
desktop = WSHShell.SpecialFolders("Desktop")
pathstring = objFSO.GetAbsolutePathName(desktop)
NomFichierSource = Dir(pathstring & "\" & "*.xls", vbNormal)
 
  With ActiveDocument
  .MailMerge.OpenDataSource Name:= _
       pathstring & "\" & NomFichierSource, _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & pathstring & "\" & NomFichierSource & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=" _
        , SQLStatement:="SELECT * FROM `Clients$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
 
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    With .DataSource
        .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
    End With
        .Execute Pause:=False
End With
 
nomfich = Word.ActiveDocument.Name
 MsgBox nomfich
NomFichierSource = Left(NomFichierSource, Len(NomFichierSource) - 17)
 nomFichierDestination = NomFichierSource & "_CBV-VC-AVP"
ChangeFileOpenDirectory pathstring
ActiveDocument.SaveAs FileName:=pathstring & "\" & nomFichierDestination, FileFormat:=wdF
 MsgBox nomFichierDestination
 
MsgBox (nomFichierDestination & " a bien été enregistré sur le bureau")
 
docDP.Close wdDoNotSaveChanges
End Sub