Discussion :

[gueulederack]

Bonjour,

je souhaite charger un combobox avec le contenu d'une listbox qui se trouve dans un autre fichier word, j'ai essayé ceci:

Code :

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

1
2
3
4
5
6
7
 
Set appWrd = CreateObject("Word.Application")
 appWrd.Visible = True
 Set DocWord = appWrd.Documents.Open("C:\Users\m.bignon\Documents\ADEME\Referentiel ADEME_29102013.dotm")
 
 
 cbCible.AddItem (CStr(DocWord.lbGroupe1.Value))

mais ce code plante sur cette ligne

Code :

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

cbCible.AddItem (CStr(DocWord.lbGroupe1.Value))

lbGroupe1 étant à NULL, je souhaite savoir si il y a une autre possibilité pour accèder au contenu de ma listbox.

Cordialement

[gueulederack]

je viens d'essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim controle As ContentControl
Dim sourcedoc As Document
 Set sourcedoc = Documents.Open("C:\Users\m.bignon\Documents\ADEME\Referentiel ADEME_29102013.dotm", Visible:=False)
 
 
 For Each controle In sourcedoc.ContentControls
 
 Next

mais ça ne fonctionne pas non plus. D'autres propositions ?

[gueulederack]

changement de plan, je décide de passer par des signet. Donc, mon fichier source possède des signets à la place de listbox:

Code :

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

1
2
3
4
5
6
 
Set appWrd = CreateObject("Word.Application")
 appWrd.Visible = True
 Set DocWord = appWrd.Documents.Open("C:\Users\m.bignon\Documents\ADEME\Referentiel ADEME_30102013.dotm")
 
 lbThExpertise.RowSource = DocWord.Bookmarks("groupe1").Range.Text

ici non plus ca ne fonctionne pas je vais essayer avec le addItem en parcourant chaque ligne de mon signet groupe1 (1 ligne = 1 item)

[gueulederack]

Et donc, voilà la solution:

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
 
Private Sub InitialiseControl()
 
Dim sFichier, sTmpt As String
Dim ArGroupe() As String
Dim ArGroupeSize As Integer
Set appWrd = CreateObject("Word.Application")
 appWrd.Visible = False
 
 sFichier = Dir("C:\Users\m.bignon\Documents\ADEME\Referentiel ADEME_30102013.dotm")
 Set DocWord = appWrd.Documents.Open("C:\Users\m.bignon\Documents\ADEME\Referentiel ADEME_30102013.dotm", Visible:=False)
 cbTypeContenu.Clear
 
On Error GoTo Err
 
 If sFichier <> "" Then
   sTmp = Replace(DocWord.Bookmarks("groupe1").Range.Text, Chr(13), ";")
   ArGroupe = Split(sTmp, ";")
   ArGroupeSize = UBound(ArGroupe) - LBound(ArGroupe)
   For i = 0 To ArGroupeSize - 1
     cbTypeContenu.AddItem (ArGroupe(i))
   Next i
 
 End If
 
'Par défaut la date de péremption se situe 1 an après la date de validation
dtFinValidite.Value = DateAdd("yyyy", 1, dtDebutValidite.Value)
tbNbMois.Text = "12"
 
 
 
Err:
DocWord.Close
 
End Sub