Discussion :

[Myogtha]

Bonjour,

Je souhaite aprés avoir rempli un formulaire access créer un fichier word reprennant quelques infos. J'ai trouvé sur internet ce type de procédure :

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
'Déclare tes variables:
Dim appWord As Word.Application
Dim NomFic As String
Dim Feuille As Word.Document
 
'Création d'un nom de fichier pour sauvegarde, que tu places ici par exemple dans le même dossier que ta Bdd:
NomFic = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\Bdd.mdb")) & "\Devis070208" & ".doc"
'Création du doccument à partir d'un modèle(dans lequel tu auras placé des signets (Menu Insertion de Word)):
FileCopy Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\BasDonLab.mdb")) & "modèle.dot", NomFic
'Création d'une session automation word:
Set appWord = New Word.Application
Set Feuille = appWord.Documents.Open(NomFic)
'Désactive le correcteur d'orthographe:
appWord.ActiveDocument.ShowSpellingErrors = False
'Fait la correspondance entre le signet et la valeur que tu y places:
appWord.Selection.Goto wdGoToBookmark, Name:="NumDevis"
appWord.Selection.TypeText ("NumDevis")
'Bien sûr, fait cette manip pour chaque signet!
'et enfin éventuellement rend ton document visible pour correction
appWord.Visible = True
'place ce code dans une fonction ou un évenement formulaire.

Malheureusement je suis un peu perdu,

• ma base de données situe sur un Z:\BDAccess\mabasededonnees.mdb
• j'ai mon programme ou je lie les tables qui est situé dans c:\Document and setting\Document\monappli2007.mdb
• Et j'ai mon fichier word dans S:\Societe\ModeleDevis\Devis.doc

Comment je dois structurer mon code ?

Merci d'avance

[Myogtha]

J'ai avancé...

J'arrive à ouvrir mon fichier .doc à l'aide d'un bouton

Les soucis qu'il reste sont :

1. Comment lui dire d'afficher le numero de devis d'un l'enregistrement sur lequel je suis
2. Comment faire pour qu'il me zappe la fenetre d'avertissement qui s'affiche en second plan qu'on arrive pas à chopper facilement
3. et enfin comment arrété qu'il m'ouvre le modele sans la liaison avec la base et le doc une fois fini...

J'espere étre assez clair, voisi mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("D:\Publipostage.doc", "Word.Document")
objWord.Application.Visible = True
objWord.MailMerge.OpenDataSource _
        Name:="Z:\access\Com_AET\BDCom_AET.mdb", _
        LinkToSource:=True, _
        Connection:="TABLE Affaire", _
        SQLStatement:="SELECT * FROM [Affaire]"
objWord.MailMerge.Execute
Set objWord = Nothing                   
End Sub