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'hui134
Hier2637
Cette semaine2771
Total depuis 200410055941

5
visiteurs actuellement en ligne