Discussion :

[voyou]

Bonjour,

Je suis tombé sur une discussion sur un autre forum (en anglais) qui m'intéresse énormément. Le lien -> http://www.accessmonster.com/Uwe/For...-Word-Document

De là, j'ai été voir sur le site de Microsoft pour regarder de plus près à ce "package". Le lien -> http://support.microsoft.com/default...b;en-us;311765

C'est mon formulaire des courriers acquéreurs. Lorsque je clique sur le courrier dans la zone de liste, je veux le voir dans le contrôle à côté.
Le code de mon formulaire ->

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
Option Compare Database
Private Sub ScanFolder(FolderPath As String)
' Fonction récursive pour l'exploration des répertoires
On Error Resume Next
  'Declaration des variables
  Dim Element As Variant
  Dim intlongel As Integer
  Dim intlongchem As Integer
  Dim StrPath() As String
  'Parcours le dossier
  For Each Element In fs.GetFolder(FolderPath).Files
      'Ajoute tous les fichiers
      intlongel = Len(Element)
      intlongchem = Len(FolderPath)
      Element = Right(Element, (intlongel - intlongchem - 1))
      Liste_Courriers.RowSource = Liste_Courriers.RowSource & Element & ";"
    DoEvents
  Next Element
 
End Sub
------------------------------------------------------------------------
Private Sub Form_Load()
 
Definition.Variable
TChemin = strDOSSIERACQUEREURC & Acquéreur & " " & Prénom
 
ScanFolder (TChemin)
End Sub
------------------------------------------------------------------------
Private Sub Liste_Courriers_Click()
Dim oWordApp As Object
 Dim oWordDoc As Object
 Set oWordApp = CreateObject("Word.Application")
 Set oWordDoc = oWordApp.Documents.Add
 oWordDoc.Content.Text = "Hello World"
 DSOFramer1.Open oWordDoc
 
End Sub

J'ai donc essayé, et je suis tombée sur une erreur... Comme d'habitude... Le lien ->

Quand j'ouvre le formulaire, le contrôle est bien présent et visible. Mais lorsque je clique sur la zone de liste, il m'affiche l'erreur. Je ne peux même pas créer un nouveau document. J'l'ai fait où la connerie?

Merci!

[voyou]

Je reviens sur le sujet. J'arrive toujours pas à ouvrir un document quand je clique sur un élément de la liste, mais j'arrive à créer ou ouvrir des documents lorsque je passe par l'intermédiaire du menu "file" du contrôle.
Ca fait avancer le schmilblick?

[voyou]

Bon ben, je me réponds encore toute seule...

Je n'arrive toujours pas à créer un nouveau document sur clic dans la liste déroulante... Néanmoins, j'ai réussi à ouvrir les documents correspondants au noms dans la liste... Le code, si ça peut aider (c'est toujours le même finalement...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Liste_Courriers_Click()
 
Dim strlink As String
 
TChemin = strDOSSIERACQUEREURC & Acquéreur & " " & Prénom
 
strlink = TChemin & "\" & Me.Liste_Courriers.Column(0)
 
DSOFramer1.Open strlink
End Sub

Merci!