publipostage lecture de cellule

Version imprimable

Bonjour,

je cherche à lire le contenu de ma base de donnée BDD dans un autre fichier excel.
je voudrais comparer la valeur d'une cellule de ma BDD à une valeur tablo passer en argument dans le publipostage.
Et retenir au final que les lignes présentes dans le tablo :
- je ne sais pas si c'est clair ?
- et si c'est possible ?

Pour le moment ça ne marche pas :), je dois mal m'y prendre.
le bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 With MonDoc.MailMerge .Destination = wdSendToPrinter .SuppressBlankLines = True With .DataSource For i = 1 To nbr If tablo(i) = .Cells(i + 1, 7).Value Then .FirstRecord = i .LastRecord = i End If End With .Execute Pause:=False End With

18/03/2024, 16h18
Fab_de_chez_PERFORM

Astuce

Bonjour
pour faire ceci, en général, j'utilise plutôt l'astuce suivante :
dans le fichier 2, au bout de mes données, je rajoute une colonne avec un SI dedans. (ex : si l'info est présente dans le fichier 1 et dans le fichier 2 alors mettre X sinon rien)
du coup dans mon publipostage, je règle la macro Word sur la fusion des données seulement où il y a un X dedans

en espérant que ca puisse être applicable ici

provisoire

bonjour Fab_de_chez_PERFORM

j'arrive à faire ce que vous dites. J'ai ajouté à ma base de donnée, une colonne appelée "Impression". J'y mets une croix ("X")
voici donc la modif pour que cela fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=adress;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";J" _ , SQLStatement:="SELECT * FROM `'Trame BDD$'`WHERE `Impression` = 'X'", SQLStatement1:="", _ SubType:=wdMergeSubTypeAccess With MonDoc.MailMerge .Destination = wdSendToPrinter .SuppressBlankLines = True With .DataSource .FirstRecord = 1 .LastRecord = 14 End With .Execute Pause:=False End With
Je pensais qu'on pouvait lire les cellules de la base de donnée BDD. Je ne trouve pas d'articles en ce sens.

Si QQun sait ?

Aide

Salut
voici le code que je mets dans WORD
j'ai mis 4 dim au début pour aider à se repérer

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
Dim Ma_source As String
Ma_source = "C:\Users\-----\Desktop\a jeter.xlsx" 'chemin complet du fichier source
 
Dim Ma_feuille As String
Ma_feuille = "Feuil1$" 'le nom de la feuille suivi d'un $
 
Dim Mon_nom_de_colonne As String
Mon_nom_de_colonne = "DEF" 'Le nom de ma colonne
 
Dim Mon_critère As String
Mon_critère = "X" 'le caractère que j'ai mis dans la colonne et qui va me permettre de filtrer
'
    ActiveDocument.MailMerge.OpenDataSource Name:=Ma_source, _
        ConfirmConversions:=False, _
        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=" & Ma_source & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Lockin", _
        SQLStatement:="SELECT * FROM `" & Ma_feuille & "`WHERE `" & Mon_nom_de_colonne & "` = '" & Mon_critère & "'", _
        SQLStatement1:="", _
        SubType:=wdMergeSubTypeAccess
End Sub

En bas, à ce niveau

Code:

SQLStatement:="SELECT * FROM `" & Ma_feuille & "`WHERE `" & Mon_nom_de_colonne & "` = '" & Mon_critère & "'"

comme on cherche du texte dans mon exemple, il faut rajouter des ' autour du Mon_critère