access vers word signets / VBA [Résolu]

[enretard]

bonjour,

je reviens vers vous, car je n'arrive toujours pas à réaliser mon projet :

J'ai crée un modèle Lettre.dot (WORD 2003) avec les signets correspondants à mes champs textes d'ACCESS. Jusque là tout va bien.

J'ai crée une base de données qui se nomme "CONTACT" avec un formulaire qui se nomme "SAISI" et sous-formulaire "INTERLOCUTEURS".

Sur le sous-formulaire j'ai crée un bouton commande pour envoyer une lettre directement de ma base de données.

Ce que je ne comprends pas, c'est qu'il bloque toujours sur la même ligne avec un message d'erreur "incompatibilité de type" ? J'ai mis en rouge la ligne qui pose problème.

Voici mon code :

Code :

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
Option Compare Database

Private Sub Envoi_Lettre_Click()
Dim nom2
rep2 = InputBox("Veuillez saisir un objet pour votre lettre")
rep = MsgBox("S'agit'il d'une lettre recommandée ?", vbYesNo + vbInformation)
nom2 = Forms!SAISI!INTERLOCUTEURS.Form!Genre & " "
nom2 = nom2 & Forms!SAISI!INTERLOCUTEURS.Form!Prenom & " " & UCase(Forms!SAISI!INTERLOCUTEURS.Form!Nom)
Adresse2 = UCase(Form!SAISI!Societe) & Chr(10) & nom2 & Chr(10) & Form!SAISI!Adresse1
Adresse2 = Adresse2 & Chr(10) & Form!SAISI!Adresse2 & Chr(10)
Adresse2 = Adresse2 & Form!SAISI!CP & " " & UCase(Form!SAISI!Ville)

Dim oApp As Object
Set oApp = CreateObject("word.application")
oApp.Visible = True
With oApp
.Documents.Add template:="C:\Documents and Settings\armelle.bechieau\Bureau\Catherine\lettre.dot"
With .selection
.Goto , , , "objet"
.insertafter rep2
.Goto , , , "adresse"
.insertafter Adresse2
.Goto , , , "Genre"
.insertafter Forms!SAISI!INTERLOCUTEURS.Form!Genre
.Goto , , , "genre2"
.insertafter Forms!SAISI!INTERLOCUTEURS.Form!Genre
If rep <> 6 Then
.Goto , , , "ar"
.cut
End If
.Goto , , , "debut"
End With
End With

End Sub

J'ai essayé plusieurs solutions, mais aucune ne fonctionne. J'ai vraiment besoin d'aide.

Si quelqu'un peut m'aider ?

[Maxence HUBICHE]

essaie ceci :

Code :

1
2
 
nom2 = nz(Forms!SAISI!INTERLOCUTEURS.Form!Genre,"") & " "

Qu'est-ce que ça donne ?

[enretard]

Bonjour,

nom2 = nz(Forms!SAISI!INTERLOCUTEURS.Form!Genre,"") & " "

j'ai essayé et j'ai un message d'erreur. Je vous l'envoi "erreur 438".

Merci encore pour votre aide.

[Maxence HUBICHE]

Aïe ! aïe aïe !
L'erreur 438 !

Ca, c'est très ennuyant...
Moi, je ne l'aime pas du tout cette erreur là ...

euh... et... sinon, à part cela, elle dit quoi d'autre l'erreur 438 ?
Elle ne serait pas un peu accompagnée d'un message descriptif qui nous en dirait un peu plus ?

[enretard]

bonjour,

Je vous envoi le fichier "imprime écran" de l'erreur 438.

"propriété ou méthode non gérée par cet objet"

J'ai essayé pas mal de différentes combinaisons, mais apparemment c'est autre chose qui ne vas pas.

Merci encore de bien vouloir m'aider.

[Maxence HUBICHE]

INTERLOCUTEURS n'existe pas !
C'est INTERLOCUTEURS sous-formulaire le nom que tu lui as donné !

Fais un essai en remplaçant

Code :

nom2 = nz(Forms!SAISI!INTERLOCUTEURS.Form!Genre,"") & " "

par

Code :

nom2 = nz(me.Genre,"") & " "

[enretard]

ça marche, en fait, j'ai réécrit mon code sur cette base.

J'ai un autre souci.

je vous envoi l'imprime écran de l'erreur.

Voici mon nouveau code :

Code :

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
Option Compare Database
 
Private Sub Envoi_Lettre_Click()
Dim nom2
 
rep2 = InputBox("Veuillez saisir un objet pour votre lettre")
rep = MsgBox("S'agit'il d'une lettre recommandée ?", vbYesNo + vbInformation)
nom2 = Nz(Me.Genre, "") & " "
nom2 = Nz(Me.Prenom, "") & " " & Nz(Me.Nom, "") & " "
Adresse2 = Nz(Me.Societe, "") & Chr(10) & nom2 & Chr(10) & Nz(Me.Adresse1, "") & " "
Adresse2 = Adresse2 & Chr(10) & Nz(Me.Adresse2, "") & " " & Chr(10)
Adresse2 = Adresse2 & Nz(Me.CP, "") & " " & Nz(Me.Ville, "") & " "
 
Dim oApp As Object
Set oApp = CreateObject("word.application")
oApp.Visible = True
With oApp
.Documents.Add template:="U:\Mes documents\ACCESS\MODELES\lettre.dot"
With .selection
.Goto , , , "objet"
.insertafter rep2
.Goto , , , "adresse"
.insertafter Adresse2
.Goto , , , "Genre"
.insertafter Nz(Me.Genre, "")
.Goto , , , "genre2"
.insertafter Nz(Me.Genre, "")
If rep <> 6 Then
.Goto , , , "ar"
.cut
End If
.Goto , , , "debut"
End With
End With
 
End Sub

Merci encore, cela marche mieux.

[enretard]

j'ai fait un autre essai et voici le code :

Code :

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
Option Compare Database
 
Private Sub Envoi_Lettre_Click()
Dim nom2
 
rep2 = InputBox("Veuillez saisir un objet pour votre lettre")
rep = MsgBox("S'agit'il d'une lettre recommandée ?", vbYesNo + vbInformation)
nom2 = Nz(Me.Genre, "") & " "
nom2 = Nz(Me.Prenom, "") & " " & Nz(Me.Nom, "") & " "
Adresse2 = Nz(Me.Societe, "") & Chr(10) & nom2 & Chr(10) & Nz(Me.Adresse1, "") & " "
Adresse2 = Adresse2 & Chr(10) & Nz(Me.Adresse2, "") & " " & Chr(10)
Adresse2 = Adresse2 & Nz(Me.CP, "") & " " & Nz(Me.Ville, "") & " "
 
Dim oApp As Object
Set oApp = CreateObject("word.application")
oApp.Visible = True
With oApp
.Documents.Add template:="U:\Mes documents\MODELES\lettre2.dot"
With .selection
.Goto , , , "objet"
.insertafter rep2
.Goto , , , "adresse"
.insertafter Adresse2
.Goto , , , "Genre"
.insertafter Nz(Me.Genre, "")
.Goto , , , "genre2"
.insertafter Nz(Me.Genre2, "")
If rep <> 6 Then
.Goto , , , "ar"
.cut
End If
.Goto , , , "debut"
End With
End With
 
End Sub

J'ai un autre message d'erreur :

"erreur compilation" ?

Je vous l'envoi.

Merci d'avance pour l'aide.

[Maxence HUBICHE]

ME fait référence au formulaire contenant le code en cours d'exécution (INTERLOCUTEURS Sous-formulaire)
Il est en train de te dire que Adresse1 n'existe pas dans ce formulaire.

[enretard]

Ok, mais comment dois-je lui faire comprendre qu'il faut qu'il aille chercher dans mon formulaire principal "SAISI" et non sur le sous-formulaire "INTERLOCUTEURS" le champ "Adresse1" ?

Si

Code :

me

correspond au "sous-formulaire", quel est celui qui correspond au formulaire principal ?

Merci et désolée d'être si débutante !

[Maxence HUBICHE]

Forms("SAISI").NomDuControle

[enretard]

Merci beaucoup, çà marche.

Il me reste juste à coordonner mes signets, la lettre se rempli bien, mais il me manque la Société en entête de ma lettre ainsi que le "genre", j'ai juste l'adresse et l'objet qui marche !

Vous êtes vraiment SUPER !

C'est un site génial, j'en fais la pub à toutes les personnes de ma société.

Merci à DEVELOPPEZ.COM et à tous ses membres !

[enretard]

Pour ceux et celles que çà intéressent, je vous envoi le code complet.

Code :

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
Option Compare Database
 
Private Sub Envoi_Lettre_Click()
Dim nom2
 
rep2 = InputBox("Veuillez saisir un objet pour votre lettre")
rep = MsgBox("S'agit'il d'une lettre recommandée ?", vbYesNo + vbInformation)
nom2 = Nz(Me.Genre, "") & " "
nom2 = Nz(Me.Prenom, "") & " " & Nz(Me.Nom, "") & " "
Adresse2 = forms("SAISI").Societe & Chr(10) & nom2 & Chr(10) & forms("SAISI").Adresse1
Adresse2 = Adresse2 & Chr(10) & forms("SAISI").Adresse2 & Chr(10)
Adresse2 = Adresse2 & forms("SAISI").CP & " " & forms("SAISI").Ville & " "
 
Dim oApp As Object
Set oApp = CreateObject("word.application")
oApp.Visible = True
With oApp
.Documents.Add template:="U:\Mes documents\MODELES\lettre2.dot"
With .selection
.Goto , , , "objet"
.insertafter rep2
.Goto , , , "adresse"
.insertafter Adresse2
.Goto , , , "genre"
.insertafter Nz(Me.Genre, "")
.Goto , , , "genre2"
.insertafter Nz(Me.Genre, "")
If rep <> 6 Then
.Goto , , , "ar"
.cut
End If
.Goto , , , "debut"
End With
End With
 
End Sub

Il faut créer un modèle de lettre, avec les signets correspondants aux champs dont vous avez besoin "objet, ar, genre, adresse etc...", dans le modèle ma lettre s'appelle "lettre.2".

Merci au site développez.com pour leurs contributions.

Catherine