Recuperer des données excel sous word
zitoun_ced
Messages postés
1
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
21 janvier 2005
-
21 janv. 2005 à 15:05
mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 - 21 janv. 2005 à 16:05
mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 - 21 janv. 2005 à 16:05
A voir également:
- Recuperer des données excel sous word
- Excel vba récupérer valeur cellule active - Forum Visual Basic
- La conversion d'un type de données varchar en type de données datetime a créé une valeur hors limites - Forum C# / .NET
- Arctan excel ✓ - Forum Visual Basic 6
- Suivi des interventions de maintenance excel - Forum VB.NET
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
1 réponse
mrdep1978
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
7
21 janv. 2005 à 16:05
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
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