recuperer feuille excel en vb dans une list

Bonjour,

j'ai une petite appli qui doit simplement recuperer le nom des differents fichiers excel dans un repertoire ('c:\slot') et les afficher dans une list pour ensuite les imprimer
mais seulement il y a une erreur je crois que cela provient de mon code dans le bouton qui n'est pas valide merci de votre aide

Code:

---

1 2 3 4 5 6 7

Set appExcel = CreateObject("Excel.Application") Set vbExcel = appExcel.Workbooks.Open("C:\slot") Set vsExcel = vbExcel.Worksheets(1) For i = 1 To appExcel.Workbooks.Count List1.AddItem appExcel.Workbooks.Add Next i

---

puis dans la feuille je fait reference à excel comme ceci

Code:

---

1 2 3 4

Dim appExcel As Excel.Application Dim vbExcel As Excel.Workbook Dim vsExcel As Excel.Worksheet

---

Code:

---

1 2 3

For i = 1 To appExcel.ActiveWorkbook.Worksheets.Count Liste1.AddItem appExcel.ActiveWorkbook.Worksheets(i).Name Next

---

Vala

A+

Citation:

---

Envoyé par digger

Bonjour,

j'ai une petite appli qui doit simplement recuperer le nom des differents fichiers excel dans un repertoire ('c:\slot') et les afficher dans une list pour ensuite les imprimer
mais seulement il y a une erreur je crois que cela provient de mon code dans le bouton qui n'est pas valide merci de votre aide

Code:

---

1 2 3 4 5 6 7

Set appExcel = CreateObject("Excel.Application") Set vbExcel = appExcel.Workbooks.Open("C:\slot") Set vsExcel = vbExcel.Worksheets(1) For i = 1 To appExcel.Workbooks.Count List1.AddItem appExcel.Workbooks.Add Next i

---

puis dans la feuille je fait reference à excel comme ceci

Code:

---

1 2 3 4

Dim appExcel As Excel.Application Dim vbExcel As Excel.Workbook Dim vsExcel As Excel.Worksheet

---

---

reformule ta question ... moi je n'ai pas compris..
tu n'as pas besoin d'excel pour lister les fichiers excel d'un répertoire... la fonction dir suffit ?

Code:

---

1 2 3 4 5 6 7

dim stFic as string stFic = dir("c:\slot\*.xls") While stFic <> "" List1.AddItem "c:\slot\" & stFic stFic = dir wend

---

:?:

il veut lister les feuilles d'un classeur visiblement...

Merci pour ton aide
en fait il me faut recuperer ces fichiers dans l'appli pour pouvoir les imprimer un à un
l'appli doit recuperer tous les fichiers excel dans le repertoire les mettre dans une liste la ok puis l'utilisateur doit à voir la possibilté de les imprimer

Pour récupérer le nom du fichier, l'ouvrir puis l'imprimer sur l'imprimante par défaut...

Code:

---

1 2 3 4 5

Private Sub List1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) NomFich = List1.List(List1.ListIndex) Workbooks(NomFich).Open ActiveSheet.PrintOut End Sub

---

Le fichier doit être ouvert sur la bonne feuille, sinon, tu auras à la sélectionner... dans un listbox ?

Tu dis

A+

Désolé, ce que je t'ai donné est en VBA, je laisse aux gens qui connaissent, le soin de te dire ce qu'ils savent... en VB

A+

Bonsoir,
Ne pas oublier la référence à Excel.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub Command1_Click() Dim stFic As String stFic = Dir("c:\Mes documents\*.xls") While stFic <> "" List1.AddItem "c:\Mes documents\" & stFic stFic = Dir Wend End Sub   Private Sub List1_Click() Dim x As New Excel.Application Dim w As Workbook Dim ws As Worksheet Set w = x.Workbooks.Open(List1.Text) MsgBox "Le classeur " & List1.Text & " a été selectionné." Set ws = w.Worksheets(1) x.Visible = False ActiveWindow.SelectedSheets.PrintOut Copies:=1 w.Close False x.Quit Set x = Nothing Set w = Nothing Set ws = Nothing End Sub

---

jpleroisse