Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim appExcel As Excel.Application
Dim vbExcel As Excel.Workbook
Dim vsExcel As Excel.Worksheet

[juvamine]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Vala

A+

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

:

[juvamine]

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

[digger]

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ouskel'n'or]

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+

[leroissejp]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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