Discussion :

[wasdaka]

bonjour, j'ai utilisé le tuto de heureux oli pour la réalisation de mon publipostage (super tuto!!!).
mon problème est que je suis obligé de sauvegarder à 2 endroits pour que le publipostage puisse se faire n'y a t'il pas moyen qu'access mette à jour automatiquement la seconde base servant au publipostage?
merci d'avance

[Lou Pitchoun]

Salut,

La sauvegarde de quoi ?

[wasdaka]

la sauvegarde de ma base de données, à chaque fois il faut que je sauvegarde manuellement ma base de données dans le répertoire ou il y a mes documents word servant au publipostage pour que mon publipostage soit à jour

[Lou Pitchoun]

Et tu peux être plus précis sur ce qui ne va pas ?

Pourquoi es tu obligé de sauvegarder ta base 2 fois pour que le publipostage fonctionne ?

[wasdaka]

en fait pour mon publipostage j'ai suivi le tuto d'heureux oli, j'ai donc ma base de données et une copie de celle ci dans un dossier avec mon document word pour le publipostage.
dès lors des que j'ajoute des données dans ma base de données je suis obligé pour que le publipostage prenne en compte les nouvelles données de sauvegarder également ma base de données dans le dossier ou il y a les document word.

[Lou Pitchoun]

Solution 1 : Intègre le publipostage dans ta base.
Solution 2 : lies les tables de la base 1 dans ta 2ème base.

Ma préférence va sur la solution 1 car la seconde n'est pas justifiée.

[wasdaka]

Merci de ta réponse, mais comment dois-je m'y prendre?
merci de ton aide

[Godzestla]

Peux-tu montrer ton code et préciser ou se trouve ton document word ?

[wasdaka]

bonjour
alors voila mon fichier access se trouve sur le bureau et mon document word ainsi que la copie de la base de donnée se trouve dans "bureau\nouveau dossier"

le code que j'ai utilisé pour le publipostage 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
 
Sub MergeItz()
Dim objWord As Word.Document
Set objWord = GetObject("C:\Documents and Settings\Administrateur\Bureau\Nouveau dossier\CONTRAT ENGAGEMENT ÉDUCATIF SEJOUR.doc", "Word.Document")
objWord.Application.Visible = True
objWord.MailMerge.OpenDataSource _
        Name:="C:\Documents and Settings\Administrateur\Bureau\Nouveau dossier\Anim directeur.accdb", _
        LinkToSource:=True, _
        Connection:="QUERY CONTRAT_EDITION_SEJOUR_CEE", _
        SQLStatement:="SELECT * FROM [CONTRAT_EDITION_SEJOUR_CEE]"
 
 
objWord.MailMerge.Execute
Set objWord = Nothing
 
End Sub

j'ai ajouter un bouton dans un formulaire avec une commande qui appelle ce module.

[wasdaka]

Donc voila après plusieurs essai j'ai réussi
J'ai commencer par essayer avec "filecopy" mais cela ne fonctionnais pas car la base que je tentais de copier était celle qui était active.
j'ai donc trouvé un petit bout de code que j'ai mis dans ma db

le voici:

Code :

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

1
2
3
4
5
6
7
BaseOuv = CurrentDb.Name
NleBase = "C:\Documents and Settings\Administrateur\Bureau\Nouveau dossier\anim directeur.accdb"
 
Set fso = CreateObject("scripting.FileSystemObject")
 
fso.CopyFile BaseOuv, NleBase
Set fso = Nothing