Discussion :

[jl_danse]

Bonjour,

J'aimerais réaliser un publipostage dans word via une base de donnée Excel.
Les données Excel sont relatives à des références d'appareils.
Le but serait que l'opérateur remplisse la ligne correspondant à l'appareil rentré et qu'en lançant une macro, le document publiposté soit enregistré et imprimé sous word en sachant que chaque ligne correspond à un document enregistré à part lors du publipostage.

Pour ce faire, j'ai suivuis le tutoriel fort bien fait de heureuxoli sur le publipostage et en particulier la partie 7.G sur l' " Enregistrement de chaque document".
Je me heurte au problème suivant lorsque je compile :

"Erreur de compilation : Membre de méthode ou de données introuvable"

et la partie pointée est

iR = oDoc.MailMerge.DataSource.RecordCount

Pourriez vous m'indiquer quel pourrait être le problème s'il vous plaît !


Le programme est le suivant :

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
45
46
47
48
49
50
Dim i As Integer
Dim iR As Integer
Dim a As Integer
Dim b As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource
Dim Count As Integer
Dim n As Integer
 
ActiveDocument.MailMerge.OpenDataSource Name:="DVS.xls"
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
ChangeFileOpenDirectory "S:\Appareils.doc"
 
iR = oDoc.MailMerge.DataSource.RecordCount
 
 
Debug.Print iR
 
For i = 1 To iR
 
 
    With oDoc.MailMerge
           'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
 
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        DocName = .DataSource.DataFields("ChampFusionAuto1")
        DocName = DocName & "_" & .DataSource.DataFields("ChampFusionAuto5")
        ' Impression du document publiposté
           '.ViewMailMergeFieldCodes = wdToggle
    Debug.Print DocName; i
    End With
        ' ActiveDocument.PrintOut
    ' Sauvegarde du document publiposté
    With ActiveDocument
        .SaveAs FileName:=DocName & ".doc"
        '.Close
    End With

Merci d'avance si quelqu'un pouvait m'aider !
Bonne journée

[Heureux-oli]

Salut,

Il est possible que cette méthode ou propriété ne soit pas disponible pour Word 97.

Chaque nouvelle version apporte son lot de nouveauté et supprime aussi certaines choses.

[jl_danse]

Y a t-il une autre méthode pour remplacer cette fonction, c'est à dire réussir à indiquer la dernière ligne renseignée ?

[Heureux-oli]

Salut,

Une fonction, non, c'est un membre qui n'est pas connu dans W 97.

Une solution serait d'ouvrir la source pour compter le nombre d'enregistrements.

[jl_danse]

Comment cela s'effectue en VBA ? Désolé je ne suis pas un spécialiste de VBA....

Merci !

[Heureux-oli]

Salut,

Je ne comprend pas très bien la raison de passer par un système qui fera un publipostage complet alors que si j'ai bien compris, tu ne souhaites publiposter qu'un seul enregistrement.

Dans ce cas, il suffit d'injecter les données dans le document au moyen de signets.

[jl_danse]

Je ne veux pas forcément publiposter qu'un seul document, il se peut que je veuille remplir 15 lignes sous Excel pour des appareils différents et ainsi avoir 15 courriers types derrière.
Pour le moment, vu que je ne peux pas renseigner le nombre de boucles à faire dans la boucle for, cela engendre que dès qu'il arrive sur la première ligne vide dans Excel, il bug !

L'erreur émise par VBA est alors la suivante :

"Erreur d'exécution '5631' :
Impossible de fusionner le document principal avec la source de données: les enregistrements étaient tous vides ou aucun enregistrement ne correspondaient à vos options de requête. "

J'arrive à commpter le nombre de lignes remplies dans le fichier Excel que j'ai mis dans une cellule mais je n'arrive pas à lire la valeur de cette cellule dans mon VBA word..

[Heureux-oli]

Salut,

Il te suffit simplement d'ouvrir avant publipostage le fichier contenant la données pour l'utiliser ensuite.


Ajouter au projet la référence à la bibliothèque Excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
 
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open("Mon chemin")
Set xlWS = xlWB.Worksheets(1)
 
 
set xlapp = nothing
set xlwb = nothing
...

[jl_danse]

Cela marche nickel, merci bien !!!

J'ai un autre souci maintenant... En faite, dans mon classeur Excel, jai plusieurs feuilles (une feuille par opérateur). Lorsque je lance le fichier word, il me demande de choisir le document du classeur que je veux ouvrir, c'est à dire que je peux choisir la feuille désirée pour le publipostage. En effet, lorsque j'ai sélectionnée la source de donnée pour le publipostage, j'ai choisi "feuille de calcul Microsoft Excel via un convertisseur (*.xls)

Ma requête serait que :
le problème avec les lignes que tu m'a donné c'est que dans xlBook.Worksheets() on doit mettre le numéro de la feuille. Est il possible de mettre le nom de la feuille dans Worksheet() en fonction de la sélection de la feuille qui a été faite lors de l'ouverture du document ?

Merci..!

[Heureux-oli]

Salut,

On peut utiliser le nom de la feuille.

Code :

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

xlWB.WorkSheets("Ma Feuille")

[jl_danse]

Certes, merci.
Mais serait il possible de sélectionner la dernière feuille active dans le fichier Excel ? Parce que dans l'état actuel des choses, si on rentre un nom de feuille dans la macro fixe, et que l'on utilise une autre feuille ça ne marchera pas...
Le problème c'est qu'en fonction de l'opérateur qui utilise le fichier, la feuille utilisée n'est pas la même...

[Heureux-oli]

Salut,

Peut-être ActiveSheet ?

[jl_danse]

ActiveSheet marche très bien, merci bien !

Juste peut être encore une petite question, lorsque je cherche la valeur du nombre ligne j'ouvre le fichier Excel, qu'elle est alors la commande pour refermer derrière ce même fichier Excel ?

[Heureux-oli]

Salut,

La commande pour un fichier est close et pour une application Office, c'est Quit.

Ne pas oublier de libérer les objets lorsqu'on n'en a plus besoin.

Code :

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

1
2
monObjet.Close
Set monObjet = Nothing

[jl_danse]

Merci à toi pour ces aides précieuses !