Discussion :

[sebinator]

Bonjour,

Lorsque je lance mon publipostage une boite de dialogue me demande de
confirmer l'execution de code SQL, je cliques oui et ca continue... ensuite
je dois sélectionner la table contenant les données.. après la fusion
s'effectue...

En fouillant sur le newsgroup, j'ai trouvé la parade pour la sécurité SQL,
ajout d'une clé dans la bdr et ca roule :

Code :

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

1
2
3
 Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options]
"SQLSecurityCheck"=dword:00000000

Maintenant j'aimerai bien ne pas avoir à confirmer la table d'où proviens
les données.. (surtout que la source est déja spécifiée dans le code
initiant le publipostage )

Code :

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

1
2
3
4
5
objWord.MailMerge.OpenDataSource _
        Name:="C:\Local_datas\Access\database\Contacts_Direction.mdb", _
        LinkToSource:=True, _
        Connection:="TABLE Tb_contacts", _
        SQLStatement:="SELECT * FROM [Tb_contacts]WHERE " & strFiltreallpub

Comment fait-on ??

Merci d'avance

Seb

[Jean-Philippe André]

Bonjour,
d'une manière générale,

Code :

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

DoCmd.SetWarnings False

te permet d'éviter les messages de demande de confirmation.

[sebinator]

d'une maniere générale oui,

Pour la securité SQL cela ne fonctionne pas avec le SetWarnings False.
La modification de la BDR corrige ce probleme.

Par contre je n'ai toujours de soluce pour mon problème de confirmation de table...

[Hamdi]

Bonjour,

dans le cas des fucions automatiques depuis Access, voilà comment je fonctionne:

D'abord :
Sur Access:
1 - je crée une requête création de table de fusion;
2 - je l'exécute.

Ensuite:
Sur Word:
1 - je crée mon document de fusion;
2 - je fais la liason avec ma table de fusion ;
3 - j'enregistre le document.

Enfin:
Sur Access:
j'utilse le code de fusion qui ouvre le document qui se fusionne automatiquement.

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
 
Dim wdapp As Word.Application
Do While Not RsFusion.EOF
Dim i
i = RsFusion.AbsolutePosition + 1
Set wdapp = CreateObject("Word.application")
With wdapp
    .Visible = True
    .Documents.Open Fiche, , True
    .ActiveDocument.MailMerge.DataSource.FirstRecord = i
    .ActiveDocument.MailMerge.DataSource.LastRecord = i
    .ActiveDocument.MailMerge.Execute
    .ActiveDocument.SaveAs Path & RsParam![operation] & "_" & Replace(RsFusion![SOCIETE], "/", "_") & "_" & Format(Date, "dd_mm_yyyy")
    .ActiveDocument.SaveAs PathExtranet & RsFusion![SOCIETE] & "_" & RsFusion![NOM CONTACT] & ".doc"
End With
For Each Doc In wdapp.Documents
    Doc.Close savechanges:=wdDoNotSaveChanges
Next Doc
Set wdapp = Nothing
RsFusion.MoveNext
Loop

par contre mon souci actuel est le suivant:
Sur mon poste (Access XP, Word XP) tout fonctionnent merveilleusement. Mai dès que je lance mon code sur un autre poste, la fusion me demande la confirmation de l'exécution du code SQL.

J'ai essayé de créer directement la clé dans la Bdr mais celà nemarche pas.

Pourrais-je savoir coment tu as fait pour éviter la confirmation. est ce que tu as inclu la création de la clé dans ton code ? si oui, OU ?

Merci

[sebinator]

Bonjour,

dans le cas des fucions automatiques depuis Access, voilà comment je fonctionne:

D'abord :
Sur Access:
1 - je crée une requête création de table de fusion;
2 - je l'exécute.

Ensuite:
Sur Word:
1 - je crée mon document de fusion;
2 - je fais la liason avec ma table de fusion ;
3 - j'enregistre le document.

Enfin:
Sur Access:
j'utilse le code de fusion qui ouvre le document qui se fusionne automatiquement.

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
 
Dim wdapp As Word.Application
Do While Not RsFusion.EOF
Dim i
i = RsFusion.AbsolutePosition + 1
Set wdapp = CreateObject("Word.application")
With wdapp
    .Visible = True
    .Documents.Open Fiche, , True
    .ActiveDocument.MailMerge.DataSource.FirstRecord = i
    .ActiveDocument.MailMerge.DataSource.LastRecord = i
    .ActiveDocument.MailMerge.Execute
    .ActiveDocument.SaveAs Path & RsParam![operation] & "_" & Replace(RsFusion![SOCIETE], "/", "_") & "_" & Format(Date, "dd_mm_yyyy")
    .ActiveDocument.SaveAs PathExtranet & RsFusion![SOCIETE] & "_" & RsFusion![NOM CONTACT] & ".doc"
End With
For Each Doc In wdapp.Documents
    Doc.Close savechanges:=wdDoNotSaveChanges
Next Doc
Set wdapp = Nothing
RsFusion.MoveNext
Loop

par contre mon souci actuel est le suivant:
Sur mon poste (Access XP, Word XP) tout fonctionnent merveilleusement. Mai dès que je lance mon code sur un autre poste, la fusion me demande la confirmation de l'exécution du code SQL.

J'ai essayé de créer directement la clé dans la Bdr mais celà nemarche pas.

Pourrais-je savoir coment tu as fait pour éviter la confirmation. est ce que tu as inclu la création de la clé dans ton code ? si oui, OU ?

Merci

Bonjour,

Pour ma part, je suis sous office 2003 sp2(version 11). J'ai modifié la BDR directement.

seb

[Pierre Fauconnier]

Bonjour

d'une maniere générale oui,

Pour la securité SQL cela ne fonctionne pas avec le SetWarnings False.
La modification de la BDR corrige ce probleme.

Par contre je n'ai toujours de soluce pour mon problème de confirmation de table...

C'est peut-être dans l'application Word que tu dois spécifier que tu ne veux pas de message

Code :

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

1
2
 
Application.DisplayAlerts = wdAlertsNone

en remplaçant Application par ton objet Word.Application

Cela aide t'il?

[sebinator]

Bonjour



C'est peut-être dans l'application Word que tu dois spécifier que tu ne veux pas de message

Code :

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

1
2
 
Application.DisplayAlerts = wdAlertsNone

en remplaçant Application par ton objet Word.Application

Cela aide t'il?

C'est une piste, je vais tester..

[sebinator]

C'est une piste, je vais tester..

J'ai testé, cela ne fonctionne pas.

Word s'obstine à me demander de sélectionner la table pour effectuer la fusion