Discussion :

[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 :

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
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 :

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

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 :

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

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

par

Code :

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

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

[enretard]

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

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
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