Bonjour j'ai un petit pb dans mon code
j'ai une appli qui doit lister dans une liste box des fichiers excel .xls puis lance l'impression des fichiers excel qui strouvent dans la listbox mais je constate que un seul est imprimer à chaque fois
une fois que la listebox est remplie voci le code du bouton qui doit imprimer
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
 
Private Sub impboucle_Click()
Dim X As New Excel.Application
    Dim w As Workbook
    Dim ws As Worksheet
    Dim i As Integer
 
    For i = 0 To List1.ListCount
    If List1.List(i) <> "" Then
        Set w = X.Workbooks.Open(List1.List(i))
        X.Visible = False
        X.ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
        w.Close False
        X.Quit
        Set X = Nothing
        Set w = Nothing
    End If
    List1.Clear
    Form1.result = ""
    Next
 
End Sub
merci de votre aide