Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

 

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'hui2
Hier2340
Cette semaine12525
Ce mois32893
Total depuis 200410889245

6
visiteurs actuellement en ligne