zitoun_ced
Messages postés1Date d'inscriptionvendredi 21 janvier 2005StatutMembreDernière intervention21 janvier 2005
-
21 janv. 2005 à 15:05
mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 2009
-
21 janv. 2005 à 16:05
bonjour a tous je suis en bts info donc "jeune prog" et j 'aimerais savoir comment faire pour ouvrir un fichier excel avec word (en vba)pour recuperer les donner d'excel dans une liste deroulante d'un formulaire sous word...
mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 20097 21 janv. 2005 à 16:05
Et un p'tit bout de code, un ...
Public Sub gsub_test()
Dim XLApp As Object
Dim XLWorkbook As Object
Dim li_Ligne As Integer
'Crée l'objet Application
Set XLApp = CreateObject("Excel.Application")
With XLApp
'Ouvre le fichier test.xls en lecture seule
Set XLWorkbook = .Workbooks.Open("c:\test.xls", , True)
'Travaille avec la feuille Feuil1
With XLWorkbook.Worksheets("Feuil1")
'Parcourt les 10 premières lignes de la feuille
For li_Ligne = 1 To 10
'Ajoute à la liste déroulante les cellules de la 1e colonne
ComboBox1.AddItem .Cells(li_Ligne, 1).Value
Next li_Ligne
End With
'Ferme le classeur
XLWorkbook.Close False
'Quitte l'application Excel
.Quit
End With
'Détruit l'objet Application
Set XLApp = Nothing
End Sub