Discussion :

[NEC14]

Bonjour le forum,

J'ai un fichier Word comprenant des étiquettes faites en publipostages.
Je souhaite utiliser ce fichier dans une application Excel.
A l'aide d'un bouton, j'ouvre le fichier dans Word (Etiq). Dès l'ouverture du fichier je voudrais que la mise à jour soit automatique.
Comment dois-je m'y prendre ?
Merci pour votre aide

J'ai commencé le code, mais je ne sais pas comment faire pour la mise à jour automatique.
Merci pour vos suggestions

Code :

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

1
2
3
4
5
6
7
 
Private Sub Op3_Click()
Set wrdapp = CreateObject("Word.Application")
Set wrdDoc = wrdapp.documents.Open("C:\Documents and Settings\CLAS\Etiq.doc")
wrdapp.Visible = True
Exit Sub
End Sub

[Jean-Philippe André]

Bonjour,
peux-tu nous spécifier si la mise à jour automatique se fait depuis Excel vers Word, ou bien l'inverse stp ?

[NEC14]

Bonjour,

La base de données est en Excel, lorsque j'ouvre le fichier "Etiq" dans Word, et que des modif ont été apportées dans la base Excel, il serait souhaitable que celle-ci soient prises en compte dès l'ouverture du fichier Word.
Ai-je répondu à ta question ?

[Jean-Philippe André]

Oui,
Le fichier est ouvert dès que la ligne de code est passée

une fois ton fichier ouvert, tu peux manipuler son contenu avec les fonctions en exemple dans la
http://excel.developpez.com/faq/inde...#LireChampWord

et plus largement :
http://excel.developpez.com/faq/index.php?page=Word#

si ces solutions ne te permettent pas d'arriver à tes fins, on reste dispo

[NEC14]

Voici le code que j'ai fait. Deux erreurs surviennent
1ère : Une fois utilisé, le fichier word reste verrouillé par l'utilisateur (message : "Etiq.Doc est verrouillé par....")
2ème : Le message suivant apparaît ("Le membre de la collection requis n'existe pas". Le champ "Titre" est surligné en jaune
Pouvez-vous m'apporter votre éclairage s'il vous plait ?
Merci par avance

Les champs de fusion sont sur la ligne 2 en en-tête de colonne.

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
 
Private Sub Op3_Click()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
'ouverture de la session Word
Set WordApp = New Word.Application
'ouverture du document Word
Set WordDoc = WordApp.documents.Open("C:\Documents and Settings\CLAS\Etiq.doc")
'Word est visible pendant l'opération
WordApp.Visible = True
 
'Fields(1) : premier champ du document Word
'Insertion du contenu de la cellule dans le champ
WordDoc.Fields(1).Result.Text = Range("U2") 'Titre
WordDoc.Fields(2).Result.Text = Range("C2") 'NOM
WordDoc.Fields(3).Result.Text = Range("D2") 'Prénom
WordDoc.Fields(4).Result.Text = Range("P2") 'Rue
WordDoc.Fields(5).Result.Text = Range("O2") 'Complément
WordDoc.Fields(6).Result.Text = Range("Q2") 'Code postal
WordDoc.Fields(7).Result.Text = Range("R2") 'Ville
 
'sauvegarde les modifications
WordDoc.Save
End Sub

[Jean-Philippe André]

Quelques tips :
- en plus de sauvegarder le fichier, il faut que tu le fermes pour l'utiliser :

Code :

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

WordDoc.Close

- il en va de même pour l'appli Word créée :

Code :

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

1
2
WordApp.Quit
Set WordApp = Nothing

Enfin, pour le publi postage, je te recommande le cours très complet à ce sujet d'HeureuxOli:
http://heureuxoli.developpez.com/off.../publipostage/

[NEC14]

Bonjour le forum,

J'ai mis le code suivant pour mettre à jour mon fichier étiquettes.
J'ai cependant 2 anomalies :
la 1ère : Ce message d'erreur "Erreur d'exécution '4248' : Commande non disponible aucun document n'est ouvert". La ligne que j'ai souligné dans mon code est en surbrillance.
la 2ème : C'est qu'une fois le fichier Doc ouvert, il n'est plus accessible. Un message me demande si je veux l'ouvrir en lecture seule.

Pouvez-vous m'expliquer ce qui ne va pas dans mon code. J'y ai passé la nuit et je n'ai rien trouvé.
Merci par avance

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
Private Sub Op3_Click()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application") ' un objet word est créé
appWD.Documents.Open Filename:="C:\Documents and Settings\CLAS\Base.doc"
With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
    ChangeFileOpenDirectory "C:\Documents and Settings\CLAS\"
    ActiveDocument.SaveAs Filename:="Etiq.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub

[Jean-Philippe André]

Salut,
tu n'utilises plus d'object Word.Document ? ESt-ce voulu ?

[NEC14]

Ben non, il faut que j'utilise un objet Word puisque le fichier de fusion est un fichier Word (Base.doc) alimentée par une base de donnée Excel (Adhé.exe)

J'ai encore cafouillé.

[NEC14]

Bonjour le forum,

Je pensais avoir réussi, mais rien, ça ne marche pas.
Je vous explique donc ce que je souhaite faire :
1 - A partir du click sur un bouton option (op3) un fichier Word s'ouvre (Base.doc)
2 - La fusion avec la base de donnée Excel (Compte CLAS\feuille Adhé)
3 - Le fichier Base.doc est sauvegardé sous le même nom et fermé
4 - Le fichier de fusion est sauvegardé sous le nom Etiq.doc (qui existe déjà)

Le code que j'ai mis en place ne focntionne qu'une fois, ensuite je ne peux plus accèder au fichier Base.doc
Pourtant j'ai fait ce que l'on m'a dit dans les différentes discussions.

Bon, si vous avez un peu de temps à m'accorder, je vous en remercie par avance

Ps: j'ai changé le titre de cette discussion. Celui-ci me paraît plus approprié.
Merci pour votre compréhension

[NEC14]

ça y est j'y suis arrivé.
Voici le code si cela peut servir ou si vous avez des suggestions d'amélioration à me faire.
Merci à tous pour votre aide

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
 
Private Sub Op3_Click()
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String
 
    NomBase = "C:\Documents and Settings\CLAS\Compte CLAS.xls"
 
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("C:\Documents and Settings\CLAS\Base.doc")
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM `Adhé$Print_Area`"
            'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
    Application.ScreenUpdating = True
 
    'Fermeture du document Word
    docWord.Close True
End Sub

[NEC14]

Re le forum,

Une fois la procédure exécutée, je referme le fichier Excel "Compte CLAS", mais systématiquement, quelques secondes après, le message suivant apparaît :

Fichier désormais disponible. <<Compte CLAS.xls>> est à présent disponible pour modification. Ouvrez le fichier en lecture-écriture pour le modifier.

Je ne comprends pas ce qui se passe

[Jean-Philippe André]

Il me semble que la connection ouverte vers le fichier Excel n'est pas fermée dans ton code

[NEC14]

Et comment résoudre ce problème ? Je ne sais même pas quoi mettre et où.

[Jean-Philippe André]

Dans la
j'ai trouvé qu'il fallait exécuter le mailmerge
http://access.developpez.com/faq/?pa...PublAccessWord

Code :

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

.Execute

Tu peux l'adapter à ton cas il me semble.

[NEC14]

Bonjour le forum, Bonjour jpcheck,

J'ai ajouté ce qui manquai à mon code et apparament le problème ne perdure pas.

Merci à tous pour votre aide

Je mets le code si cela peut servir

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
 
Private Sub Op3_Click()
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String
 
    NomBase = "C:\Documents and Settings\CLAS\Compte CLAS.xls"
 
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    Set wdApp = CreateObject("Word.application")
    With wdApp.Visible = True
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("C:\Documents and Settings\CLAS\Base.doc")
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM `Adhé$Print_Area`"
            'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
    End With
    Application.ScreenUpdating = True
 
    'Fermeture du document Word
    docWord.Close True
    Set wdApp = Nothing
End Sub