Discussion :

[elgordopresto]

Bonjour à tous,

A partir d'un formulaire Access, je cherche à donner la possibilité à l'utilisateur via un clic sur un bouton de générer une lettre Word personnalisée en utilisant des informations contenues dans la BDD.

Pour cela, j'ai utilisé une procédure trouvée ici, encore une fois sur cette ressource fabuleuse qu'est developpez.net ! J'ai adapté la procédure pour répondre à mon besoin notamment en passant en variables l'identifiant du client et le chemin vers la lettre type.

Le problème c'est que lorsque l'on clique sur le bouton, la boite de dialogue sécurité de Word s'ouvre et affiche le message suivant :



Le code de la procédure est le suivant :

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
Sub MergeIt(str As String, i As Long)
 
Dim strSQL As String, objWord As Word.Document
 
strSQL = "SELECT * FROM T_Dossiers WHERE ID=" & i & ";"
 
Set objWord = GetObject(str, "Word.Document")
objWord.Application.Visible = True
objWord.MailMerge.OpenDataSource _
Name:="CheminDeMaBDD", _
LinkToSource:=True, _
Connection:="TABLE T_Dossiers", _
SQLStatement:=strSQL
objWord.MailMerge.Execute
objWord.Close
Set objWord = Nothing
 
End Sub

Est-il possible d'empêcher l'affichage de ce message ?

Merci par avance pour votre aide.

el

[accessisgood]

Bonjour,

tu peux essayer de rajouter cette ligne? (pas garant du résultat)

Code :

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

DoCmd.SetWarnings False

[marot_r]

Bonjour.

À mon avis, vu que le message est une alerte Word, il faut chercher la solution du côté de Word.

A+

[chrtophe]

Code :

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

Application.DisplayAlerts = False

Non testé.

[marot_r]

Bonjour.

Pour info, ici un exemple de suppression d'alerte dans Word.

Macro – Print Without Margins Warning
https://www.thedoctools.com/index.ph...argins_warning

Ça concerne l'impression mais je pense que c'est le même mécanisme ailleurs.

A+

[elgordopresto]

Merci à tous,
Je teste ces différentes solutions la semaine prochaine et je vous dit si cela fonctionne.
el

[chrtophe]

Essayes ne ne pas oublier le retour, j'aimerais savoir si ce que j'ai proposé fonctionne.

[elgordopresto]

Bonjour à tous,
Désolé pour l'absence de retour...
Je n'ai pas réussi à contourner le problème de sécurité, en fait faute de temps, j'ai opté pour la solution des bookmarks dans un document Word plutôt qu'une fusion...
Avec les bookmarks, je peux ajouter du contenu dans un document word sans que le message de sécurité ne s'affiche.
Désolé chrtophe, je n'ai pas pu tester ta solution mais intuitivement, je pense qu'elle ne fonctionne que sur les opérations Access mais pas lorsque tu lances une autre application à partir d'access...
Merci à tous
el