Discussion :

[valery17]

Salut á tous,

J'ai cree un formulaire qui marche.j'ai exportez les donnees de mon formulaire en en doc.xls et j'aimerais savoir comment faire pour exportez cela en un standard document.doc deja existant.Est-ce-que cela est possible?J'ai essaye d'exporter de l'etat a Word.Mais cela ne marche pas.D'autant plus que le document est deja existant

[Tofalu]

Depuis Access ?

Il y a un exemple dans nos pages sources : http://access.developpez.com/sources

[valery17]

j'ai lu pendant toute la semaine derniere les pages sources.Mais malheureusement,il n'y'apas d'exemple.

[Tofalu]

j'ai lu pendant toute la semaine derniere les pages sources.Mais malheureusement,il n'y'apas d'exemple.

http://access.developpez.com/sources...ipostageSignet

[valery17]

Coe je vous ai precise.
Voici mon Code. Les donnees viennent en Principe de ma Requete.

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
37
38
39
40
41
42
43
44
Dim objWord As Object 
 
    Set objWord = CreateObject("Word.Application") 
    With objWord 
        .Visible = True 
         Documents.Open "C:\temp\vorlage.doc" 
         .ActiveDocument.Bookmarks("HT").Select 
 
        .Selection.Text = Me!ID 
        .ActiveDocument.Bookmarks("FIRME).Select 
        .Select.Text = Me!Firme
        .ActiveDocument.Bookmarks("RUE").Select 
        .Select.Text = Me!RUE
        .ActiveDocument.Bookmarks("PLZ").Select ' Zahl 
        .Select.Text = Me!AdressePostal 
        .ActiveDocument.Bookmarks ("Lieu") 
        .Select.Text = Me!Lieu
        .ActiveDocument.Bookmarks ("Mr") 
        .Select.Text = Me!Mr
        .ActiveDocuments.Bookmarks ("Kontakt") 
        .Select.Text = Me!Kontakt
        .ActiveDocuments.Bookamrks ("Telefon") 
        .Select.Text = Me!Telefon 
        .ActiveDocument.Bookmarks ("Fax") 
        .Select.Text = Me!Fax 
        .ActiveDocument.Bookmarks ("Nom") 
        .Select.Text = Me!Nom
        .ActiveDocument.Bookmarks ("Email") 
        .Select.Text = Me!Besteller.email 
        .ActiveDocument.Bookmarks ("") 
        .Select.Text = Me!Telefon 
        .ActiveDocument.Bookmarks ("Fax") 
        .Select.Text = Me!Fax 
        .ActiveDocument.Bookmarks ("Portable") 
        .Select.Text = Me!Portable
        .ActiveDocument.Bookmarks ("Date") 
        .Select.Text = Me!Date
        .ActiveDocument.Bookmarks ("text") 
        .Select.Text = Me!Text
    End With 
    objWord.ActiveDocument.PrintOut  'Imprimer    
    objWord.ActiveDocument.Close SaveChanges:=wdDONOTSaveChanges 
    objWord.Quit 
    Set objWord = Nothing

Cela ne reconnait pas ce qui n'est pas mentionne dans le formulaire.
Puisque dans le Fomulaire,je n'ai que la Firme,le Kontakt,le telefon,le nom,le Text et la Date

[Tofalu]

Si le fax n'est pas dans le formulaire, poruquoi faire me!Fax ? Question de logique...

Dans ce cas, passe par un recordset dao qui correspondra à l'enregistrement du formulaire.

PS : Merci d'éviter le langage SMS, tu n'es pas limité à 180 caractères ici !

[valery17]

Comment devrais-je donc Posseder par le RecordSet.
Stp donnez-moi un exemple.

PS: STP Est-ce-que je vous ai envoye un sms?