Discussion :

[esse2016]

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 :

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

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

[Fab_de_chez_PERFORM]

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

[esse2016]

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 :

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

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 ?

[Fab_de_chez_PERFORM]

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

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
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 :

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

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