A voir également:
- Aide pour ouvrir un fichier excel
- Fichier json - Conseils pratiques -Javascript
- Vba ouvrir un fichier pdf - Forum Visual Basic
- Ouvrir fichier jnlp ✓ - Forum Java
- Fichier excel gestion de flotte - Forum Visual Basic 6
- Ouvrir userform vba ✓ - Forum Visual Basic
5 réponses
je veux mettre les valeurs de la première colonne du fichier c:\essai.xls dans la listbox Série qui se trouve sur la feuille Série (d'où Série.Série.list(...))
Ok alors tu n'as pas besoin de mettre ça:
For i = 0 To Temp - 1
Série.Série.List(i) = tt(i)
Next i
mais tu fais :listbox1.list=tt()
For i = 0 To Temp - 1
Série.Série.List(i) = tt(i)
Next i
mais tu fais :listbox1.list=tt()
-------------------------------
Réponse au message :
-------------------------------
je veux mettre les valeurs de la première colonne du fichier c:\essai.xls dans la listbox Série qui se trouve sur la feuille Série (d'où Série.Série.list(...))
-------------------------------
Réponse au message :
-------------------------------
pour pouvoir ouvrir mon fichier excel, j'utilise la manip suivante (et sans succés):
Private Sub Command1_Click()
'On Error Resume Next
Dim Sélection As String
Dim tt()
Dim Temp As Single
nom = "essai.xls"
cc = "C:" & nom
workbooks.Open cc
'ici il m'indique :UN OBJET EST REQUIS, que dois je faire ?
Temp = ActiveWorkbook.sheets("feuil1").Range("a1").End(xldown).row
ReDim tt(Temp - 1)
For i = 0 To Temp - 1
tt(i) = ActiveWorkbook.sheets("feuil1").Range("a1").Offset(i)
Next i
workbooks(nom).Close
For i = 0 To Temp - 1
Série.Série.List(i) = tt(i)
Next i
End Sub
Réponse au message :
-------------------------------
je veux mettre les valeurs de la première colonne du fichier c:\essai.xls dans la listbox Série qui se trouve sur la feuille Série (d'où Série.Série.list(...))
-------------------------------
Réponse au message :
-------------------------------
pour pouvoir ouvrir mon fichier excel, j'utilise la manip suivante (et sans succés):
Private Sub Command1_Click()
'On Error Resume Next
Dim Sélection As String
Dim tt()
Dim Temp As Single
nom = "essai.xls"
cc = "C:" & nom
workbooks.Open cc
'ici il m'indique :UN OBJET EST REQUIS, que dois je faire ?
Temp = ActiveWorkbook.sheets("feuil1").Range("a1").End(xldown).row
ReDim tt(Temp - 1)
For i = 0 To Temp - 1
tt(i) = ActiveWorkbook.sheets("feuil1").Range("a1").Offset(i)
Next i
workbooks(nom).Close
For i = 0 To Temp - 1
Série.Série.List(i) = tt(i)
Next i
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
-------------------------------
Réponse au message :
-------------------------------
je veux mettre les valeurs de la première colonne du fichier c:\essai.xls dans la listbox Série qui se trouve sur la feuille Série (d'où Série.Série.list(...))
-------------------------------
Réponse au message :
-------------------------------
pour pouvoir ouvrir mon fichier excel, j'utilise la manip suivante (et sans succés):
Private Sub Command1_Click()
'On Error Resume Next
Dim Sélection As String
Dim tt()
Dim Temp As Single
nom = "essai.xls"
cc = "C:" & nom
workbooks.Open cc
'ici il m'indique :UN OBJET EST REQUIS, que dois je faire ?
Temp = ActiveWorkbook.sheets("feuil1").Range("a1").End(xldown).row
ReDim tt(Temp - 1)
For i = 0 To Temp - 1
tt(i) = ActiveWorkbook.sheets("feuil1").Range("a1").Offset(i)
Next i
workbooks(nom).Close
For i = 0 To Temp - 1
Série.Série.List(i) = tt(i)
Next i
End Sub
Réponse au message :
-------------------------------
je veux mettre les valeurs de la première colonne du fichier c:\essai.xls dans la listbox Série qui se trouve sur la feuille Série (d'où Série.Série.list(...))
-------------------------------
Réponse au message :
-------------------------------
pour pouvoir ouvrir mon fichier excel, j'utilise la manip suivante (et sans succés):
Private Sub Command1_Click()
'On Error Resume Next
Dim Sélection As String
Dim tt()
Dim Temp As Single
nom = "essai.xls"
cc = "C:" & nom
workbooks.Open cc
'ici il m'indique :UN OBJET EST REQUIS, que dois je faire ?
Temp = ActiveWorkbook.sheets("feuil1").Range("a1").End(xldown).row
ReDim tt(Temp - 1)
For i = 0 To Temp - 1
tt(i) = ActiveWorkbook.sheets("feuil1").Range("a1").Offset(i)
Next i
workbooks(nom).Close
For i = 0 To Temp - 1
Série.Série.List(i) = tt(i)
Next i
End Sub
