Discussion :

[stéphane_ais2]

Bonjour,

Les éléments du problème :
-une base fractionnée et sécurisé (frontale sur pc utilisateur, dorsale sur disque partagé avec accès pour l'utilisateur, fichier mdw sur disque partagé)
- des droits définis sur les objets nécessaires au traitement (tbl, frm, rqt) pour l'utilisateur
- un frm avec un sfrm (dans un contrôle onglet)
-un bouton dans le sfrm
-le code du btn :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Private Sub BtnEdConv_Click()
' Chemin d'accès au document Word de publipostage
    Const DOC_WORD = "C:\BASE\SOURCES\ConvRes.dot"
    ' Variable pour gérer l'objet Word
    On Error GoTo Err_BtnEdConv_Click
    Dim wdApp As Word.Application
    Dim TypCom As String
    TypCom = [Forms]![frmEleves]![sfCommissions]![com_ty]
 
    ' Modifie le filtre SQL de la requête rqtComEl
    If IsNull(TypCom) Then
        MsgBox "Précisez préalablement la commission chargée d'instruire ce dossier !", vbInformation, "ATTENTION"
        Exit Sub
    End If
    ModRqtConv Me.num_eleve
 
    ' partie Publipostage
    Set wdApp = New Word.Application
    With wdApp
        ' Word n'est pas visible 
        .Visible = False
        ' Ouvre la lettre type
        .Documents.Open DOC_WORD
        ' Lie la lettre type à la source de données Access
        .ActiveDocument.MailMerge.OpenDataSource Name:="C:\BASE\SOURCES\IA78_AIS2.mdb", SQLStatement:="SELECT * FROM [rqtComEl]"
        ' fusion vers imprimante
        .ActiveDocument.MailMerge.Destination = wdSendToPrinter
        ' Exécute la fusion
        .ActiveDocument.MailMerge.Execute
        .ActiveDocument.Close wdDoNotSaveChanges
    End With
    'Quitte Word
    wdApp.Quit
    Set wdApp = Nothing
    MsgBox "Edition terminée !", vbInformation
 
Exit_BtnEdConv_Click:
    Exit Sub
 
Err_BtnEdConv_Click:
    MsgBox Err.Description
    Resume Exit_BtnEdConv_Click
End Sub

-Erreur sur click du btn :

vous n'avez pas l'autorisation requise pour utiliser l'objet MySysTables

Je tourne en rond...sur cette terre...un avis ?
Merci
SE

[Tofalu]

Sur quelle ligne ?

Le publipostage demande peut être des droits spécfique notamment celui de créer des objets

[stéphane_ais2]

Oui effectivement, après vérification une autorisation sur le module (appelé avec le btn) suivant est nécessaire :

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
 
Function ModRqtConv(ByVal NumEl As Long)
Dim qry As DAO.QueryDef
Dim strSQL As String
Dim intPosition As Integer
' Lit la définition SQL de la requête de publipostage
Set qry = CurrentDb.QueryDefs("rqtComEl")
strSQL = qry.SQL
 
' Cherche le mot WHERE dans le code SQL et supprime ce qui suit
intPosition = InStr(1, strSQL, "WHERE", vbTextCompare)
If intPosition > 0 Then
    strSQL = Left(strSQL, intPosition - 1)
 
    ' Ajoute une condition sur la fonction
    strSQL = strSQL & " WHERE [tblEleves].[num_eleve]=" & NumEl & ""
   qry.SQL = strSQL
End If
Set qry = Nothing
End Function

l'erreur se situe sur :

Code :

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

qry.SQL = strSQL

J'ai donc établi les droits de modification pour le groupe concerné et cela semble fonctionner sauf que l'appli renvoie des boites de connexion (à trois reprises) et ouvre 3 fois access (refermé à la fin de la procédure)...au bilan le publipostage s'effectue...

Merci pour cet éclairage...un module oublié car peu usité et je suis passé devant "mille fois" sans sourciller

Si tu as une idée pour la demande de connexion?

SE

[stéphane_ais2]

Bonjour, je poursuis sur ce post, même si le problème initial est résolu.

Je souhaiterais un avis, une orientation sur cette ouverture multiple de l'appli et des boites de connexion pendant le publipostage.

Quand je suis connecté avec tous les droits (en tant que propriétaire et admin), je ne rencontre pas ce problème.

Merci

SE

[stéphane_ais2]

Le problème des boites de connexion est résolue...
Reste la deuxième instance d'appli qui s'ouvre...je cherche...
...Aussi de l'aide...

Merci

SE

[stéphane_ais2]

Salut,

j'ai oublié le Résolu.

J'en profite pour préciser que les boites de connexion intempestives disparaissent lorsque le fichier MDW se trouve sur la machine "cliente" et non plus sur le "serveur".

Pour la deuxième instance de l'appli qui s'ouvre on m'a conseillé d'utiliser MySql...à voir

SE