Discussion :

[fario]

Bonjour,
malgré la lecture assidue de nombreux sujets publiés par Silkyroad(et d'ailleurs merci à lui) sur les publipostage pour Word à partir de Excel, je bute sur un problème de syntaxe sur l'utilisation de variable dans la connexion de la base:
en reprenant l'enregistrement de la macro faite dans word, j'ai souhaité remplacer le chemin de la base par une variable et la choix de la feuille source par une autre; le blocage se fait au niveau de la feuille source; quelque soit l’écriture (avec replace pour les guillemets, etc.), je ne parviens pas à me connecter; je précise que si j'écris en dur la feuille source, la variable du nom de la base permet d’accéder à la base: il n'y a donc qu'un souci avec la syntaxe de la variable de la feuille source.
voici le code:

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
With docWord.MailMerge
        .OpenDataSource Name:=NomBase _
        , ConfirmConversions:=True, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=NomBase;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OL" _
        , SQLStatement:="SELECT * FROM `'Clients_factures$'`", _
        SQLStatement1:="", SubType:=wdMergeSubTypeAccess
        
        'Spécifie la fusion vers un nouveau document
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
            'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With

bien sûr, c'est client_factures$ que je cherche à remplacer.
merci par avance aux dévoués...

[jfontaine]

Bonjour,

As tu essayé comme cela

Code :

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

, SQLStatement:="SELECT * FROM `'" & Variable & "'`", _

[fario]

Bonjour Jérôme,
oui j'avais essayé et j'ai recommencé à l'instant dans le doute; mais toujours pas; j'ai lu des forums sur les variables dans les requêtes sql dans l'espoir d'y trouver une soluce: j'ai compris que les guillemets contenus dans la variable et entourant le nom de la feuille source étaient gênant: j'ai donc créé une fonction les remplacant :

Code :

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

1
2
3
4
Function quote(chaine)
chaine = Replace(chaine, """", "")
quote = chaine
End Function

dans le sub:

Code :

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

SQLStatement:="SELECT * FROM `'" & quote(feuilleSource) & " $'`",

.
peut être une erreur là, car dans l'affichage des variables locales, quote affiche toujours les guillemets autour du nom.
merci pour ton attention

[jfontaine]

et comme cela, en supprimant les apostrophes

Code :

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

, SQLStatement:="SELECT * FROM `" & Variable & "`", _

[fario]

oui j'ai essayé et re-essayé, mais pas mieux;
info: en supprimant après le nomBase le reste de la requête (commentaires) je parviens bien à la boite de dialogue Word "sélectionner le tableau", mais si je rétablis en insérant la variable, j'arrive à la boite "tables" et pas de suite.
une autre idée?

[jfontaine]

Et en mettant toute la requete dans la variable

Code :

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

Variable = "SELECT * FROM `'Clients_factures$'`"

et ensuite

Code :

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

, SQLStatement:= Variable, _