Discussion :

[gds10]

Bonjour,

Voilà je suis novice en code VB mais j'aimerais faire un truc qui me simplifierais la vie !!
J'ai une base de données où nous gérons nos adhérents (sous ACCESS), à partir d'un formulaire j'aimerais pouvoir générer un courrier automatiquement, juste en cliquant sur un bouton. Il faut que ce courrier ne sorte que pour l'adhérent sur lequel mon formulaire est ouvert.

Donc j'ai créée un module avec cette commande : nom MergeIt ?

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
22
23
24
25
 
Option Compare Database
Sub Publipostage_Vers_Document()
Dim wdApp As Word.Application
Dim strCheminDoc As String, strCheminFusion As String
Dim strSQL As String
strCheminDoc = "C:\Documents and Settings\FUSION.doc"
strCheminFusion = "C:\Documents and Settings\RESULTAT.doc"
strSQL = "SELECT * FROM [INTRO]"
Set wdApp = New Word.Application
With wdApp
.Documents.Open strCheminDoc
With .ActiveDocument.MailMerge
.OpenDataSource Name:=CurrentProject.FullName, _
SQLStatement:=strSQL, _
ReadOnly:=True
.Destination = wdSendToNewDocument
.Execute
End With
 
.ActiveDocument.SaveAs FileName:=strCheminFusion
.Quit SaveChanges:=wdDoNotSaveChanges
End With
Set wdApp = Nothing
End Sub

Puis sur mon formulaire j'ai créée un bouton avec comme commande

Code :

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

1
2
3
4
5
6
7
 
Option Compare Database
Private Sub cmdPublipostage_Click()
 
Call MergeIt
 
End Sub

Mais cela ne marche pas !
J'ai apparemment réussi à le faire marcher une fois mais Word ne s'était pas ouvert il m'avait juste créé un nouveau fichier.

D'avance merci, pour vos éclairages.

Je suis en WORD2003 - Visual Basic6.3 et ACCESS2002

[gds10]

Bonjour,
J'ai évolué dans mon publipostage.
Il me reste un problème (pas des moindres) à résoudre
Donc j'ai créé un bouton qui me lance mon module Publipostage d'ACCESS vers Word. Le problème est que quand je lance mon publipostage tout les enregistrements du formulaire sont intégré dans le publipostage, alors que je souhaiterais que le publipostage ne se fasse que la page du formulaire en cours.
Merci d'avance pour votre aide, je cale plus que sur ça !!

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
22
23
Public Sub Publipostage_Vers_Document()
Dim wdApp As Word.Application
Dim strCheminDoc As String, strCheminFusion As String
Dim strSQL As String
strCheminDoc = "C:\Documents and Settings\FUSION.doc"
strCheminFusion = "C:\Documents and Settings\RESULTAT.doc"
strSQL = "SELECT * FROM [INTRO]"
Set wdApp = New Word.Application
With wdApp
.Visible = True
.Documents.Open strCheminDoc
With .ActiveDocument.MailMerge
    .OpenDataSource Name:=CurrentProject.FullName, _
    SQLStatement:=strSQL, _
    ReadOnly:=False
    .Destination = wdSendToNewDocument
    .Execute
End With
.ActiveDocument.SaveAs FileName:=strCheminFusion
End With
Set wdApp = Nothing
 
End Sub

+ bouton

Code :

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

1
2
3
4
Private Sub Commande42_Click()
Call Publipostage_Vers_Document
 
End Sub

[dr_feelgood]

J'ai trouvé ton post par hasard, car je suis moi même en train d'écrire une procédure de publipostage et j'avais un problème dans le code (ton post m'a bien aidé)

Pour ton problème:
Dans Word, lorsque tu crées ton document de publipostage, tu lies ton document avec une table d'Acces, en indiquant les champs de fusion, et tu peux indiquer les critères de sélection.

Tu peux donc dans ta table access ajouter un champ Valide que tu mets sur Vrai ou Faux et seuls les lignes d'enregistrement valides seront fusionnés.

Pour ma part, ayant une table à fusionner avec des critères de sélection complexes, j'ai choisi une autre solution: celle de créer une table temporaire xx_temp_publipostage où j'efface d'abord tous les enregistrements, puis je lance une requête ajout de ma table principale (donc je recopie uniquement dans la table provisoire les enregistrements à publiposter) avant de lancer le publipostage.

[Simplifi]

hello
dans ton Vb, on trouve un joli petit SQL comme source de publipostage, il suffit de le filtrer correctement avec un Where le_bon_champ = la_bonne_zone_du_formulaire

En plus, tu peux mettre ton code directement dans l'évènement du bouton

[gds10]

Merci pour vos réponses...en effet il me manquait des paramètres d'exclusion/ inclusion pour me permettre de faire le tri. Donc j'ai rajouté des colonnes dans ma base...par contre je n'avais pas pensé à mettre directement le Where dans le bouton.

[Dadoudx]

as-tu pensé à transmettre à ta fct de publipostage une condition... style la clef de ton enregistrement en cours...

puis dans ta fonction, tu colles cette condition à te requête sql...

Moi pour mes publipostages avec access j'ai utilisé la méthode des RecSet et cela fonctionne super...
j'ai tout trouvé là : http://heureuxoli.developpez.com/publipostage/

Bon job

[gds10]

Mon projet ACCESS touche à sa fin et voilà qu'un nouveau problème apparait

J'ai créé plusieurs boutons de commande qui actionne chacun un module ACCESS.
Mon problème est que mon code du bouton se modifie dès que je crée un autre bouton. Savez-vous comment je peux le verrouiller ? D'avance merci

[Invité]

Bonjour

J'ai créé plusieurs boutons de commande qui actionne chacun un module ACCESS.
Mon problème est que mon code du bouton se modifie dès que je crée un autre bouton. Savez-vous comment je peux le verrouiller ? D'avance merci

Expliques nous comment tu fais pour créer ce nouveau bouton de commande (en détaillant le plus possible), car c'est vraiment bizarre.

Philippe

[gds10]

Bonjour,
Donc pour créer mon bouton, j'ouvre mon formulaire. Je passe en mode création. Dans la boite à outils je vais chercher le bouton de commande et je l'insère dans mon formulaire.
La boite de dialogue s'ouvre et là je fais "annuler" car aucun truc proposé ne me convient. Ensuite je fait un clic droit sur le bouton "créer code événement" puis "genérateur de code" et là j'insère la macro suivant que je copie à chaque fois et je modifie le chiffre (46) avec mon bouton correspondant puis derrière Document j'ajoute également un code (même référence que mon module)

Code :

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

1
2
3
4
Private Sub Commande46_Click()
Call Publipostage_Vers_Document
 
End Sub

Voilà, merci de ton aide

[Marie-Polygone]

Bonjour,

Je suis novice en VBA. Je m'entraîne donc avec les fameux Comptoirs avant de créer les modules ad hoc dans ma base de données.
Mon souci actuel est d'indiquer au moment de la fusion vers Word, de ne prendre que l'enregistrement en cours (un petit bouton depuis le formulaire "Employés", par exemple"). Tout fonctionne, sauf lorsque j'essaie d'indiquer une condition "WHERE"...
J'ai essayé plusieurs syntaxes, rien n'y fait... voici l'actuelle. Merci de m'aider à corriger !

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
Sub MergePUB4()
Dim objword As Word.Document
Set objword = GetObject(CurrentProject.path & "\Courriers aux employés Comptoir2.doc", "Word.Document")
objword.Application.Visible = True
objword.MailMerge.OpenDataSource _
    Name:=CurrentProject.path & "\Comptoir.mdb", _
    linktosource:=True, _
    Connection:="TABLE Employés", _
    sqlstatement:="SELECT * FROM [Employés]" & "WHERE 'N° employé'=  Me![N° employé]"
objword.MailMerge.Execute
objword.Close (wdDoNotSaveChanges)
 
Set objword = Nothing
 
End Sub

[gds10]

Je suis novice aussi, mais voilà ce que j'ai écrit et ça marche ! Je n'ai plus qu'un problème avec mon bouton de commande qui change de commande !!

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
22
23
Public Sub Publipostage_Vers_Document()
Dim wdApp As Word.Application
Dim strCheminDoc As String, strCheminFusion As String
Dim strSQL As String
strCheminDoc = "F:\INTRODUCTION\CT02.doc"
strCheminFusion = "F:\INTRODUCTION\COURRIER\CT02FUSION.doc"
strSQL = "SELECT * FROM [INTRO] WHERE [Type de courrier]='CT02' AND [Courrier envoyé]='Non'"
Set wdApp = New Word.Application
With wdApp
.Visible = True
.Documents.Open strCheminDoc
With .ActiveDocument.MailMerge
    .OpenDataSource Name:=CurrentProject.FullName, _
    SQLStatement:=strSQL, _
    ReadOnly:=False
    .Destination = wdSendToNewDocument
    .Execute
End With
.ActiveDocument.SaveAs FileName:=strCheminFusion
End With
Set wdApp = Nothing
 
End Sub

[Marie-Polygone]

Merci, mais ça n'arrange pas mes bidons.
J'aimerais une syntaxe correcte pour effectuer un filtre sur le formulaire/enregistrement en cours...

Mon idée est de sortir un courrier automatique en Word.
Par fusion et non via des bookmarks car j'ai, entre autres, des soucis de formatages de dates en plusieurs langues. (Suis belge et dois travailler en trois langues.)
Les champs de fusions en Word sont formatables, en Access, je n'ai pas encore trouvé d'astuce pratique. Et de toute façon mes clients veulent du Word pour pouvoir peaufiner la mise en page avant impression....

L'idée finale est donc d'avoir pour les 3 langues, 3 documents Word de fusion, appelables depuis 3 petits boutons de mon formulaire access....

Merci de m'aider !

[Simplifi]

hello Marie
la seule chose à vérifier quand on écrit du SQL dans un prog VB, c'est la syntaxe du texte réel qui est envoyé
J'ai déjà eut l'occasion d'écrire que le débuggeur VB n'est pas un débuggeur SQL ! !
pour ton cas, il me semble que tu devrait écrire plutôt ceci

Code :

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

    sqlstatement:="SELECT * FROM Employés WHERE [N° employé]=  " & Me![N° employé]

4 changements:
- enlevé les [ sur Employés: c'est un nom de table sans caractères spéciaux
- enlevé la première cassure, en effet: pas besoin de concaténer des textes dont on spécifie le contenu entre guillemets, de plus, il manquait peut être un espace
- remplacé les ' par des [ sur le nom du champ en effet, comme ça, SQL comprends un nom de champ alors qu'avec les ' SQL comprend un texte
- sorti le Me![N° employé] ici deux possibilités:
+ + soit on transmet WHERE [N° employé]= 12
+ + soit on transmet WHERE [N° employé]= forms!super_formulaire![N° employé]
il faut bien voir que ME signifie "le formulaire courant", ce qui a une valeur au moment ou le bouton fonctionne, par contre si on met ce texte dans le SQL, quand la requête va s'exécuter, on ne saura pas exprimer correctement ce ME

quand c'est possible, je préfère la 1° (=12) le critère est plus simplement exprimé donc le SQL plus rapide
par contre dans le problème des numériques décimaux provoque d'autres solutions à cause du point décimal: point ou virgule?
certains utilisent la fonction replace, dans ce cas je préfère la deuxième solution: en interne Access se débrouille de l'interprétation des séparateurs décimaux

plus généralement dans ces cas:
- je place un espion sur la variable qui contient le SQL
- je relève sa valeur juste avant utilisation
- je l'essaye dans une requête
- je la modifie éventuellement en mode création (le visuel, c'est pas mal)
- je modifie le VB en conséquence

Bonne chance

[gds10]

Bonjour,

Alors je ne comprends pas ton problème. Mon truc me sert à faire un publipostage de ACCESS vers Word (plusieurs types de courriers différents) je pensais que tu cherchais la même chose.
Bon courage

Merci, mais ça n'arrange pas mes bidons.
J'aimerais une syntaxe correcte pour effectuer un filtre sur le formulaire/enregistrement en cours...

Mon idée est de sortir un courrier automatique en Word.
Par fusion et non via des bookmarks car j'ai, entre autres, des soucis de formatages de dates en plusieurs langues. (Suis belge et dois travailler en trois langues.)
Les champs de fusions en Word sont formatables, en Access, je n'ai pas encore trouvé d'astuce pratique. Et de toute façon mes clients veulent du Word pour pouvoir peaufiner la mise en page avant impression....

L'idée finale est donc d'avoir pour les 3 langues, 3 documents Word de fusion, appelables depuis 3 petits boutons de mon formulaire access....

Merci de m'aider !

[Marie-Polygone]

Je teste... je teste... Mais ce n'est pas encore tout à fait ça.
J'ai abandonné le Me!, ce sera en effet plus simple pour la suite.
Par contre, je n'arrive pas encore à la bonne syntaxe.
Soit la fusion se fait sur l'ensemble de la table, soit la liaison avec la table est perdue... soit le système se plante complètement !
Je veux y arriver
Je cherche encore et je vous dirai si je trouve !
Encore merci pour les pistes et bonne journée
Marie

[Simplifi]

hello
j'ai oublié que je ne suis jamais arrivé à faire un publipostage avec des requêtes à critère externe, il faut donc se contenter de la 1° solution
il faut donc y remettre Me ce qui revient à la syntaxe de mon dernier post

[Marie-Polygone]

Il m'a fallu du temps et pas mal de lectures, essais, énervements... puis, c'est tout con, comme toujours.
L'astuce avec le mot-clé Me est de placer le code au niveau du formulaire d'où la commande doit partir, et non de créer un Public sub.

La syntaxe est donc bien :

Code :

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

sqlstatement:="SELECT * FROM [Employés] WHERE [IdEmployé] =" & Me![IdEmployé]

Merci à tous

Marie