Re,
Désolé de te renvoyer sur un autre forum mais le tchat avec Sebb m'a détendu: Testes ceci ajoutes un module à ton projet, désolé si il ya des erreurs mais il est tard , faire du VBA word pour une appli VB c pas ma tasse de thé favorite.
Option Explicit
Public Const Nomfichier = "C:\Lenomdufichier.doc" ' à adpater
Sub EcrireDansWord(Chaine1$, Chaine2$, Chemin$)
Dim App As Object
On Error Resume Next
Set App = GetObject(, "Word.Application")
If Err <> 0 Then Set App = CreateObject("Word.Application")
With App
.Documents.Add
.Visible = True 'Or False
With .selection
.TypeText Chaine1
.TypeParagraph
.TypeText Chaine2
End With
.activedocument.SaveAs Chemin
.quit
End With
Set App = Nothing
End Sub
Function FichierExiste(NomF$) As Boolean
On Error Resume Next
FichierExiste = ((GetAttr(NomF) And vbDirectory) = 0)
End Function
Function RecupInfo$(Doc$)
Dim App As Object
On Error Resume Next
Set App = GetObject(, "Word.Application")
If Err <> 0 Then Set App = CreateObject("Word.Application")
With App
.Documents.open Doc
.Visible = False 'Or False
RecupInfo = .activedocument.content
.Close 0
.quit
End With
Set App = Nothing
End Function
Tu mets ce code dans le module de ta form:
Private Sub Command1_Click()
EcrireDansWord Text1, Text2, Nomfichier
End Sub
Private Sub Form_Load()
Dim C$, T
If FichierExiste(Nomfichier) Then
C = RecupInfo(Nomfichier)
T = Split(C, Chr(13))
Text1 = T(0)
Text2 = T(1)
End If
End Sub
Si tu as des problèmes chez toi avec la liaison tardive il faudra passer par ADO.
A+++
