Private Sub UserForm_Initialize()
'Macro écrite par Youky
'le fichier Xls doit être dans le mm répertoire que le word
'sinon changer ActiveDocument.Path
'changer aussi le nom Feuil3 par le nom de la page xls
'changer MesDisks par le nom du fichier.xls
suivant = "MesDisks"
Dim AppWrd As Object
Dim DocWrd As String
On Error Resume Next
Set AppWrd = GetObject(, "Excel.Application")
If Err <> 0 Then _
Set AppWrd = CreateObject("Excel.Application")
On Error GoTo 0
DocWrd = ActiveDocument.Path & "" & suivant & ".xls"
On Error Resume Next
AppWrd.Windows(suivant & ".xls").Activate
If Err <> 0 Then AppWrd.Workbooks.Open (DocWrd)
AppActivate AppWrd
ligne = AppWrd.sheets("Feuil3").[A65000].End(xlup).Row
For= 2 To 5000
'ou plus
If AppWrd.sheets("Feuil3").Cells(k, 1= "" Then Exit Sub
UserForm1.ComboBox1.AddItem AppWrd.sheets("Feuil3").Cells(k, 1)
Next
AppWrd.Workbooks.Quit Savechanges:=False
Set AppWrd = Nothing
End Sub

 

Statistiques

Aujourd'hui2012
Hier2695
Cette semaine4707
Total depuis 20049407719

18
visiteurs actuellement en ligne