Discussion :

[sguegan]

j'aimerai que dans mon formulaire je puisse appuyer sur un bouton pour éditer un document dans word. C'est surement possible mais je n'y arrive pas. merci de votre aide

[lea022]

j'aimerai que dans mon formulaire je puisse appuyer sur un bouton pour éditer un document dans word. C'est surement possible mais je n'y arrive pas. merci de votre aide

Je ne suis pas sûre de bien avoir compris

exporte ton état en rich text FORMAT sur ton bureau par exemple normalement il apparaît ensuite en format word

je pense que pour automatiser ta demande tu peux te servir d'une macro tout simplement

avec une première ligne ouvrie état
et une seconde exécuter commande voilà voilà

[sguegan]

en fait dans mon formulaire je renseigne le nom le prénom... je veux ensuite sortir automatiquement un courrier que j'ai dans word. Je pense qu'effectivment une macro serait peut être la solution, mais je ne les maitrise pas bien.

[cbleas]

Bonjour je crois que tu peux faire du publipostage avec word.
L'aide en ligne devrai t'aider.

bon courage

[Invité]

Avec l'utilisation de signet dans word, c'est possible ça evite de passer par du publipostage !

Tu peux faire un truc du style

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
Set db = CurrentDb()
strSQL = "SELECT * FROM [rqt Adresses] WHERE [Code Interlocuteur]=" & Me.Code_Interlocuteur & ";"
Set rst = db.OpenRecordset(strSQL)
 
' Ouvrir Word
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
 
' Ouvrir le document courrier.doc
Set doc = oApp.Documents.Open("c:\Mes documents\MonFichier.doc")
 
' Remplacer les signets par les valeurs du Recordset
With doc
    .Bookmarks("nom").Range.Text = Nz(rst("Nom Interlocuteur"))
    .Bookmarks("prenom").Range.Text = Nz(rst("Prénom Interlocuteur"))
    .Bookmarks("adresse1").Range.Text = Nz(rst("Adresse 1"))
    .Bookmarks("adresse2").Range.Text = Nz(rst("Adresse 2"))
    .Bookmarks("cp").Range.Text = Nz(rst("Code postal"))
    .Bookmarks("ville").Range.Text = Nz(rst("Ville"))
End With
doc.Close wdDoNotSaveChanges
oApp.Quit

Sinon encore plus simple si il n'y a que le nom et le prénom à renseigner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Ouvrir Word
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
 
' Ouvrir le document courrier.doc
Set doc = oApp.Documents.Open("c:\Mes documents\MonFichier.doc")
 
' Remplacer les signets par les valeurs du Recordset
With doc
    .Bookmarks("nom").Range.Text = Me.ChampNom.Value
    .Bookmarks("prenom").Range.Text = Me.ChampPrenom.value
End With
doc.Close wdDoNotSaveChanges
oApp.Quit

Voilà