[AC-2003] envoyer une lettre d'access à Word

[enretard]

bonjour,

J'ai un petit souci, je n'arrive pas à trouver ce qui ne va pas dans mon code.

J'ai créer deux bases de données sur ACCESS2003. Sur le sous-formulaire, j'y ai ajouté un bouton commande nommée "Envoi_Lettre".

J'ai fait une lettre sur Word avec les signets correspondants aux différents champs de ma lettre.

Ensuite j'ai écrit 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
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 = Form!INTERLOCUTEURS.Form!Genre & " "
nom2 = nom2 & Forms!Sous - formulaire.Form!prénom & " " & UCase(Forms!SAISI!INTERLOCUTEURS.Form!Nom)
Adresse2 = UCase(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 & " " & UCase(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"
.inseertafter Adresse2
.Goto , , , "genre"
.insertafter Forms!SAISI!SAISI.Form!Genre
.Goto , , , "genre2"
.insertafter Forms!SAISI!SAISI.Form!Genre
If rep <> 6 Then
.Goto , , , "ar"
.cut
End If
.Goto , , , "debut"
End With
End With
 
End Sub

mon code bloque sur la première partie Private Sub Envoi_Lettre_Click(), puis sur la partie : nom2 = Form!INTERLOCUTEURS.Form!Genre & " ".

Je ne comprends pas pourquoi, vu que mon sous-formulaire s'appelle bien INTERLOCUTEURS ?

Mon formulaire principal s'appelle SAISI.

j'ai du oublier quelque chose !

j'espère que c'est assez clair, je m'excuses d'avance si çà ne l'est pas !

Pourriez-vous m'aider SVP

[marot_r]

Essaye :

Code :

nom2 = Forms!INTERLOCUTEURS.Form!Genre & " ".

A+

[enretard]

bonjour,

je reviens de congés aujourd'hui. Je vous remercie de votre réponse.

J'ai essayé en ajoutant un "s" à Form !

Malheureusement, cela bloque à la première ligne de code !

Code :

Private Sub Envoi_Lettre_Click()

Je vous envoi le modèle pour essayer de comprendre.

[marot_r]

As-tu un message d'erreur ?

Généralement quand cela bloque sur le première ligne c'est un problème de syntaxe dans le code.

A+

[enretard]

bonjour,

Oui j'ai un message d'erreur :

Erreur de compilation - incompatibilité de type

Je ne comprends pas où se trouve le problème, c'est un casse-tête

Je n'arrive pas à vous envoyer le modèle ! je ne sais pas comment vider les fichiers dans les pièces jointes ? j'en ai déjà beaucoup, c'est pourquoi il ne veut plus prendre un autre fichier. Merci d'avance pour l'astuce (comment vider ses pièces jointes).

[marot_r]

En mode design de code, va dans le menu Debuggae, compiler, cela devrait indiquer où est le problème.

A+

[marot_r]

Désolé pour les pièces jointes, je ne sais pas.

A+

[carden752]

Bonjour,

Je pense que c'est la ligne

Code :

nom2 = nom2 & Forms!Sous - formulaire.Form!prénom & " " & UCase(Forms!SAISI!INTERLOCUTEURS.Form!Nom)

qui ne lui plait pas et notamment la partie Sous - formulaire sans des guillemets autour.

Je vous propose de passer par une variable de type string.

Code :

1
2
3
4
5
dim sousform as String
sousform = "Sous - formulaire"
 
Dans le code, la ligne devient 
nom2 = nom2 & Forms!sousform.Form!prénom & " " & UCase(Forms!SAISI!INTERLOCUTEURS.Form!Nom)

[enretard]

bonjour,

j'ai en effet, changé la partie sous-formulaire en la déclarant en dim string !

Mais j'ai autre chose qui bloque. Je crois qu'il faut que je réécrive mon code entièrement.

Actuellement je suis sur autre chose, donc pour éviter de vous faire perdre du temps. Je vais délester la question.

Merci à tous.