Discussion :

[digger]

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

[Theocourant]

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

Salut,

Essaie le code suivant:

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 impboucle_Click()
Dim X As New Excel.Application
    Dim w As Workbook
    Dim ws As Worksheet
    Dim i As Integer
 
    X.Visible = False
 
    For i = 0 To List1.ListCount-1
        If List1.List(i) <> "" Then
            Set w = X.Workbooks.Open(List1.List(i))
            X.ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
            w.Close False
        End If
    Next i
 
    X.Quit
    Set X = Nothing
    Set w = Nothing
 
    List1.Clear
    Form1.result = ""
 
End Sub

Tu réinitialisait ta liste après le premier fichier ...
Plusieurs autres erreurs en plus (listcount-1 ...)

J'espère que cela ira

+

Théo