Discussion :

[marie75019]

Bonjour

Je fais un publipostage Word depuis Access piloté en VBA.
La difficulté est lié à l'actualisation d'une image (de signature de courrier).

Je suis obligé d'actualiser les champs par une ligne (en rouge) .ActiveDocument.Fields.Update

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
With wdapp
   .Visible = True
    If Choix_modele > 0 Then
        .Documents.Open Chemin
        Else: .Documents.Open CheminDocType
    End If
    .ActiveDocument.MailMerge.OpenDataSource Name:=CurrentDb.Name, LinkToSource:=True, Connection:="Table tpubli", SQLStatement:="SELECT * FROM [tpubli]"
    .ActiveDocument.MailMerge.Execute
    .ActiveDocument.Fields.Update
    .ActiveDocument.SaveAs2 CheminDocPerso
    .Documents.Close
End With
wdapp.Quit
Set wdapp = Nothing
Shell "C:\WINDOWS\EXPLORER.EXE " & CheminDocPerso

Le problème est qu'au moment du rafraichissement, Word émet une alerte de sécurité située en arrière plan d'ailleurs. Bien entendu, si je répond oui, le publipostage se fait correctement.



Je n'arrive pas à trouver de paramètres dans Word pour empêcher l'apparition de ce message.
De plus, l'idéal serait de trouver une solution, si possible, pour que ce message n'apparaisse pas pour les utilisateur de la cette application Access.

Merci pour votre intérêt sur cette question.

[micniv]

Bonjour,
A essayer : https://support.microsoft.com/fr-fr/...8-143336039bbe

[marie75019]

Bonjour,
A essayer : https://support.microsoft.com/fr-fr/...8-143336039bbe

J'avais vu cette page.
Malheureusement, elle précise que "Important : L’option de modification de ces paramètres n’est pas disponible dans les versions Microsoft Office ultérieures à 2013."

Ce n'est donc pas adapté car, oubli de ma part, je fonctionne sous Windows 11 avec dernière version d'Office 365.

[micniv]

Autre possibilité :
via un ajout direct dans la base des registres (regedit) :

https://learn.microsoft.com/en-us/mi...erlink-warning

[marie75019]

Bonjour
Après un long moment tel qu'on les aime en programmation dominicale ou nocturne, j'ai trouvé une solution...
Il convient de modifier la clé de registre qui est bloquante.

J'ai donc fait une petite fonction

Code :

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

1
2
3
4
5
6
7
8
9
Public Function Security_squeeze(RegValue As Long)
Dim WshShell, RegKey, wVer
Set WshShell = CreateObject("WScript.Shell")
wVer = Application.Version
Start:
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & wVer & "\Word\Security\"
On Error Resume Next
WshShell.RegWrite RegKey & "DisableWarningOnIncludeFieldsUpdate", RegValue, "REG_DWORD"
End Function

que j'appelle avant le rafraichissement suite à l'exécution de mes publipostages (valeur 1 pour activer la clé de désactivation) mais également après pour réactiver la protection (valeur 0).

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
With wdapp
   .Visible = True
    If Choix_modele > 0 Then
        .Documents.Open chemin
        Else: .Documents.Open CheminDocType
    End If
    .ActiveDocument.MailMerge.OpenDataSource Name:=CurrentDb.Name, LinkToSource:=True, Connection:="Table tpubli", SQLStatement:="SELECT * FROM [tpubli]"
    .ActiveDocument.MailMerge.Execute
    Security_squeeze (1)
    .ActiveDocument.Fields.Update
    .ActiveDocument.SaveAs2 CheminDocPerso
    .Documents.Close
End With
wdapp.Quit
Set wdapp = Nothing
Shell "C:\WINDOWS\EXPLORER.EXE " & CheminDocPerso
Security_squeeze (0)

Si ça peut servir.
Merci à ceux qui m'ont orientés.

Bien à vous,

[User]

Bonjour,

Merci pour le partage

En complément un autre lien :
https://www.developpez.net/forums/d2...ty-dialog-box/