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

[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,

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

[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

[olivetou]

Bonjour a tous.

Ceci est mon tout premier post, mais cela fait un moment que je traine sur le forum et le site alors un grand merci à tous ceux dont les explications, réponses (voire même questions) m'ont permis d'avancer au quotidien pour résoudre mes soucis techniques.

@Sebinator : j'ai eu le meme problème quand j'ai commencé le publipostage en suivant le tuto de Heureux-oli (un grand Grand merci à lui !! ) :
1iere boite de dialogue à l'ouverture du fichier word (Oui/Non pour la requete SQL)
2ieme boite de dialogue pour la connexion vers la base de données
(Peut être d'autres encore je ne sais plus car j'ai arreté à ce moment)

La solution que j'ai trouvé est toute simple : à la fin de la préparation de mon document principal de publipostage (fait exactement comme dans le tutoriel de Heureux-oli) je retourne à la première étape pour remettre "Document Word normal" (qui se remplace automatiquement par "Lettres" lors de l'etape de la connexion à la BD du tutoriel).
Ensuite je remet le document en mode "Lettres" par le code juste avant d'effectuer la connexion suivie du publipostage

Code :

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

1
2
3
4
 
      oDoc.MailMerge.MainDocumentType = wdFormLetters
      oDoc.MailMerge.OpenDataSource ..................
      oDoc.MailMerge.Execute

Depuis que mes documents sont préparés ainsi, je n'ai plus du tout de problème de boites de dialogue intempestives.
(Ce qui ne veut pas dire plus de problèmes du tout car la version de mon code fonctionne parfaitement avec Office 2003 mais plante joyeusement au moment de la connexion BD avec Office XP SP3).

En espèrant que cela peut t'aider.

[sebinator]

Cela resoud mon problème. Merci