Requête SQL - Access - Publipostage Word

[ANTMA]

Bonjour,

Je souhaiterai créer une requête permettant de créer un formulaire offrant la possibilité de faire un publipostage vers word via un bouton action.

Ma base est composé de plusieurs table ayant des liens entre elles. Ainsi ma requête récupère au sein de ces différentes tables l'ensemble des éléments dont j'ai besoin pour éditer mon fichier word.

Ainsi, mes table sont composé de :

Table 1 : Groupe (N° groupe / Code groupe / Libellé groupe)
Table 2 : Filière (N° Filière / Code Filière / libellé Métier /libellé Domaine / Appellation Fiche)
Table 3 : Mission filière (N° Mission / N° Filière / libellé Mission )
Table 4- Activités.....
etc...

Pour vous expliquer, la structure et la déclinaison des éléments :

1- Groupe (Niveau 1)
2- Filière (Niveau 2)
3- Métier (Niveau 3)
4- Domaine
5- Appellation fiche
6- Mission filière
7- Activités etc....

==> Par exemple - Ma fiche A est composé de missions et d'activités associés / cette Fiche A est rattachée à un domaine qui lui même est attaché à un métier qui est rattaché à une filière qui elle même est rattachée à un groupe.

L'idée du formulaire est de pouvoir éditer l'ensemble des fiches (et leurs composantes missions/activités) associées à un métier ou à un domaine.

Ainsi, l'utilisateur pourra choisir entre éditer les fiches d'un métier ou d'un domaine.

La base du formulaire sera une requête associant l'ensemble de ces éléments. L'utilisateur sélectionne ainsi par liste déroulante le groupe concerné, les filière associées à ce groupe s'affichent pour sélection et l'utilisateur à le choix d'éditer soit le métier et donc les fiches liées à ce métier ou le domaine et donc les fiches liées à ce domaine.

Par avance merci pour votre aide

A+

[ClaudeLELOUP]

Bonjour,

Ce que tu expliques, ressemble à
- un formulaire de recherche multicritère (tu trouves des exemples dans la documentation proposée par le site) ;
- la confection d'un état (assez simple me semble-t-il), je n'ai pas trop compris pourquoi tu voulais faire intervenir Word.

Je n'ai pas compris non plus ce que tu attendais de nous.
Quelles sont les difficultés que tu rencontres ?

[ANTMA]

Oui effectivement, je précise ma demande;

En fait j'ai le code suivant me permettant de sélectionner les données de mes tables en fonction de la sélection des listes déroulantes supèrieures.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub codefiliere_Change()
Me.codemetiers.RowSource = "SELECT DISTINCT [Métiers-Domaine].[Métiers libellé]FROM [Métiers-Domaine] " & _
  "WHERE ([Métiers-Domaine].[Filière libellé])='" & Me.codefiliere & "'"
Me.codemetiers.Requery
End Sub
Private Sub codemetiers_Change()
Me.Codedomaines.RowSource = "SELECT DISTINCT[Métiers-Domaine].[Domaine libellé]FROM [Métiers-Domaine] " & _
  "WHERE ([Métiers-Domaine].[Filière libellé]& [Métiers-Domaine].[Métiers libellé]) ='" & Me.codefiliere & Me.codemetiers & "'"
 Me.Codedomaines.Requery
End Sub
 
 
 
Private Sub Form_Load()
Me.codemetiers.RowSource = "SELECT DISTINCT [Métiers-Domaine].[Métiers libellé]FROM [Métiers-Domaine] " & _
"WHERE ([Métiers-Domaine].[Métiers libellé])='" & Me.codefiliere & "'"
Me.codemetiers.Requery
Me.Codedomaines.RowSource = "SELECT DISTINCT [Métiers-Domaine].[Domaine libellé]FROM [Métiers-Domaine] " & _
"WHERE ([Métiers-Domaine].[Métiers libellé])='" & Me.codemetiers & "'"
Me.Codedomaines.Requery
End Sub

Mon idée est de pouvoir mettre en place au sein de ce formulaire un bouton permettant d'exporter sur word les données issues de ma sélection. Pour ce faire j'utilise ce code mais n'étant pas vraiment calé en VBA et SQL je galère un peu ..........

Code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Publipostage_Click()
Dim wdApp As Word.Application
Dim strCheminDoc As String
Dim strSQL As String
 
' Chemin du document Word à ouvrir
strCheminDoc = "D:\Mes Documents\POLE EMPLOI\DGARH\12- Matrice\BASE ACCESS POLE EMPLOI\Base du 04082011\Fiche ET.doc"
 
' Instruction SQL permettant d'extraire les données RM
strSQL = "SELECT Fiche.Filière, Fiche.Métier, Fiche.Domaine, Fiche.[Appellation de la fiche emploi type], Mission.[Mission libellé long], Activité.[Type d'activité], Activité.[Soustype d'activité], Activité.[Activité libellé long], Compétences.[Type de compétence], Compétences.[Sous types de compétence], Compétences.[Compétence libellé long], Spécialisation.[Spécialisation libellé long]FROM (((Fiche LEFT JOIN Mission ON Fiche.[N° Fiche] = Mission.[N° Fiche]) INNER JOIN Activité ON Fiche.[N° Fiche] = Activité.[N° fiche]) INNER JOIN Compétences ON Fiche.[N° Fiche] = Compétences.[N° fiche]) INNER JOIN Spécialisation ON Fiche.[N° Fiche] = Spécialisation.[N° fiche];"
 
 
' Démarrer Word
Set wdApp = New Word.Application
With wdApp
    ' Rendre Word visible pour faciliter la mise au point
    .Visible = True
 
    ' Ouvrir le document de publipostage
    .Documents.Open strCheminDoc
 
    ' Paramétrer le publipostage
    With .ActiveDocument.MailMerge
        .OpenDataSource Name:=CurrentProject.FullName, _
            SQLStatement:=strSQL, _
            ReadOnly:=True
 
        ' Diriger le publipostage vers un nouveau document
        ' plutôt que vers l'imprimante
        .Destination = wdSendToNewDocument
 
        ' Lancer la fusion
        .Execute
    End With
End With
 
' Fermer et libérer les objets
Set wdApp = Nothing
End Sub

Je souhaite en fait que le bouton m'exporte sur un fichier word au format prédéfini les données des métiers / domaines / Fiches sélectionner au sein de mon formulaire

Par avance merci