Discussion :

[emulamateur]

Bonjour,

J'ai créé un fichier "test.docm" (contrat à régulariser avec de multiples possibilités : distance avec ajout d'un formulaire de rétractation/sur place; forfait/temps passé; etc.) dans word qui me permet, à son ouverture, de voir un "userform1" avec différents champs (des "textbox") qui, une fois remplis, permettent de remplir les signets du document word et de le sauvegarder.

Ce fichier "test.docm" fonctionne sans aucun lien avec ma base de donnée, l'idée étant de pouvoir générer les conventions sans avoir à ouvrir, à chaque fois, la base de données ....

Et puis, un jour, je me suis dit qu'il serait utile de pouvoir ouvrir ce fichier depuis ma base de données or, à ce stade, autant je sais faire un publipostage depuis access et modifier les signets avec des données provenant d'Access mais, là je sèche.

En effet, je veux simplement :

- lancer le publipostage depuis access,
- ouvrir le fichier "test.docm" avec son userform1
- arrêter le process de publipostage sur le userform1
- injecter des données de mon formulaire access dans un textbox de mon userform1
- continuer de compléter mon userform1 ...

Et là, c'est le drame

Si quelqu'un avait une idée pour :

- arrêter le process de publipostage sur le userform1
- injecter des données de mon formulaire access dans un textbox de mon userform1

Merci d'avance !

[loufab]

Bonjour,

Franchement je pense qu'il y a un problème dans le process que tu as imaginé.

Arrêter un publipostage : il n'y a aucune méthode dans l'objet MailMerge pour faire çà. Quand l'Execute est fait il procède jusqu'au bout.

Prépare ton publipostage côté Access et quand il est complet tu le lance.

Sinon n'utilise pas un publipostage mais un recherche/Remplacer Word, là tu maitrisera tout mais ça demande plus de boulot.

Cordialement,

[emulamateur]

Bonjour,

Merci pour le conseil.

Sans parler de "publipostage", est-il néanmoi,s possible dans ce cas d'ouvrir le fichier ".docm" depuis access pour, ensuite, injecter des données de mon formulaire Access dans le userform du document word ?

En effet, j'utilise ce code pour ouvrir le document word mais le "userform1" n'apparaît pas :

Code :

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

1
2
3
4
5
Dim WDoc As Word.Document
Set WDoc = GetObject("C:\CONVENTIONS\test - Copie8.docm")
WDoc.Application.Visible = True
WDoc.Application.WindowState = wdWindowStateNormal
WDoc.Activate

Je fait CTRL +ALT + SUPPR et dans le gestionnaire tâches, je vois bien que word est lancé mais je dois, depuis le gestionnaire de tâches, double-cliquer sur le "userform1" pour qu'il apparaîsse .... ce n'est pas très pratique

[hyperion13]

Salut
Pour ouvrir votre usf dans word il faut sur l'event AutoOpen ou DocumentOpen placer monusf.Show.
Pour alimenter word via un frm d'access, utiliser le RecordsetClone du frm pour alimenter la source de votre usf qui est forcément dans un format tableau.

[emulamateur]

@hyperion13

J'ai déjà mis dans "document_open" le fameux "userform1.show" => quand je lance le "*.docm" directement, l'userform se lance sans aucune difficulté. Par contre, si j'ouvre mon "*.docm" depuis Access, le processus "winword.exe" est bien lancé mais l'userform n'apparaît pas, je dois aller dans le "gestionnaire de tâches" pour le lancer "à la main" ...

Quant aux données du formulaire access, je veux récupérer le champ "nom" (me.nom) du mon formulaire pour le mettre dans un "textbox" de mon userform1 du "*.docm" ...

Je coince sur les deux aspects.

Merci pour le temps consacré

[hyperion13]

re

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim wdApp As Object, wdDoc As Object
Dim strFilePath As String, strSlash As String, strFolder As String, strFileName As String
 
strFilePath = CurrentProject.Path
strSlash = "\"
strFolder = "test"
strFileName = "copie8.docm"
strFilePath = strFilePath & strSlash & strFolder & strSlash & strFileName
 
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
wdApp.Activate
Set wdDoc = wdApp.Documents.Open(strFilePath)

[emulamateur]

Merci !

Le formulaire est actif avec ce code et apparaît donc "automatiquement".

Plus qu'à trouver comment travailler avec le formulaire access et le userform de word ....

[emulamateur]

(re)bonjour

J'avoue sécher sur l'envoi du contenu d'un champ de formulaire ACCESS vers un userform d'un document WORD en vba

[hyperion13]

re
un truc comme ça je pense, mais sans garantie
ActiveDocument.Bookmarks("nomdusignet").Range.Text = nomcontroleformulaire.
Un tuto ici.

[emulamateur]

Merci pour votre aide (pour l'affichage du userform à l'ouverture du *.docm) mais çà ne fonctionne pas ... j'ai donc changé mon fusil d'épaule.

Je parcours par le userform de WORD la base de données ACCESS pour obtenir le résultat dans un combobox et choisir ce que je veux :

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
ComboBox1.Clear
Dim cheminBd As String
Dim requete As String
Dim enr As Recordset
Dim base As Database
cheminBd = ThisDocument.Path & "\origine1.accdb"
Set base = DBEngine.OpenDatabase(cheminBd)
Set enr = base.OpenRecordset("SELECT nom, prenom FROM t_client WHERE prenom like '*" & Me.TextBox4 & "*'", dbOpenDynaset)
enr.MoveFirst
Do
ComboBox1.AddItem enr.Fields("prenom").Value
enr.MoveNext
Loop Until enr.EOF
enr.Close
base.Close
Set enr = Nothing
Set base = Nothing

Mais il reste un problème, ma combobox1 n'affiche qu'une colonne au lieu de deux où je trouverai côte-à_côte "nom" et "prenom" ...

J'avance doucement

[emulamateur]

Voilà, si cela peut aider quelqu'un :

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
ComboBox1.Clear
Dim cheminBd As String
Dim requete As String
Dim enr As Recordset
Dim base As Database
cheminBd = ThisDocument.Path & "\origine1.accdb"
Set base = DBEngine.OpenDatabase(cheminBd)
Set enr = base.OpenRecordset("SELECT nom, prenom FROM t_client WHERE prenom like '*" & Me.TextBox4 & "*'", dbOpenDynaset)
enr.MoveFirst
i = O
   With enr
 
 
      Do Until .EOF
         ComboBox1.AddItem (i)
         ComboBox1.Column(1, i) = .Fields("prenom")
         ComboBox1.Column(0, i) = .Fields("nom")
         .MoveNext
         i = i + 1
      Loop
 
   End With
 
 
enr.Close
base.Close
Set enr = Nothing
Set base = Nothing

[hyperion13]

re,
et vous utilisez une combobox en lieu et place d'une listbox ?

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
Dim cheminBd As String
Dim enr As Recordset
Dim base As Database
cheminBd = ThisDocument.Path & "\origine1.accdb"
Set base = DBEngine.OpenDatabase(cheminBd)
Set enr = base.OpenRecordset("SELECT nom, prenom FROM t_client WHERE prenom like '*" & Me.TextBox4 & "*'", dbOpenDynaset)
 
With enr
    .MoveLast
    NoOfRecords = .RecordCount
    .MoveFirst
End With
 
With ListBox1
    .Clear
    .ColumnCount = rst.Fields.Count
    .Column = rst.GetRows(NoOfRecords)
End With
*
enr.Close
base.Close
Set enr = Nothing
Set base = Nothing