merci de ton aide juste une petite chose
j'ai lancé la procedure puis clique sur le bouton pour imprimer seulement la liste de fichiers qui sont cliqués
j'aimerais juste qu'ils disparaissent de la liste seulement ceux dont ils ont été imprime je cherche un genre de list1.refresh
voici mon code mais apparament vb n'aime pas trop cette fonction
liste1.selected(i) =false
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
26
| Private Sub Command1_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.Selected(i) Then
Set w = X.Workbooks.Open(myDir & "\" & (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
Form1.result = ""
afficbouton
End Sub |
Re: merci de ton aide juste une petite chose
Citation:
Envoyé par digger
j
j'aimerais juste qu'ils disparaissent de la liste seulement [/code]
tu ve les enlever de la liste ou les "dé-selectionner.." pour supprimer la sélection
Code:
List1.Selected(i) = false
convient ( du moins en VBA, j'ai pas vérifié en VB mais pour ça cela doit être =)
:?:
question d'amelioration listbox
Merci à tous pour votre aide mon appli marche et imprime les fichiers word et excel selectionner
j'aurais juste une petite question on me demande d'ajouter un bouton pour imprimer d'un seul coup et dans l'ordre c'est a dire
quand l'utilisateur click sur la la listbox1 puis listbox2 et la c'a imprime dans le désordre j'ai imbriquer les deux procedures dans un bouton en lançant deux boucles y a til pas une autre solution merci voici mon code
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
26
27
28
29
30
31
32
| Dim X As New Excel.Application
Dim MyWord As New Word.Application
Dim Doc As Word.Document
Dim i, j As Integer
Dim w As Workbook
Dim ws As Worksheet
X.Visible = False
MyWord.Visible = False
For i = 0 To (List1.ListCount - 1)
If List1.Selected(i) Then
List1.Selected(i) = False
Set w = X.Workbooks.Open(myDir & "\" & (List1.List(i)))
X.ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True
w.Close False
'recupere le click de la seconde liste
For j = 0 To List2.ListCount - 1
If List2.Selected(j) Then
List2.Selected(j) = False
Set Doc = MyWord.Documents.Open(myDir & "\" & List2.List(j))
MyWord.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:="1-6", PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
MyWord.ActiveDocument.Close False
End If
Next j
End If
Next i
X.Quit
Set X = Nothing
Set w = Nothing
MyWord.Application.Quit |
merci de votre aide
imprimer listbox suivant clic
bonjour je suis toujours sur mon appli qui se termine sauf un point
j'ai deux listbox une qui recupere les fichiers .xls et qui imprime en boucle une qui recupere les .doc et idem
je dois ajouter un bouton pour l'utilisateur final qui veut uen fois la selection fait chosir par plusieurs clic les fichiers à imprimer puis appuyer sur un bouton et lancer l'impression des fichiers uniqument cliques
j'ai suivis la meme procedure que pour l'impression en boucle qui marche et la cela me fait une erreur il ne trouve pas le fichier selectionneé pouvez vous m'aider merci voici le bouton qui permet de lancer l'impression des fichiers selectionnés.
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
Private Sub cmd_imprimeselect_Click()
Dim MyWord As New word.Application
Dim Doc As word.Document
Dim i As Integer
Dim rep As String
rep = MsgBox("Voulez vous imprimer ces fiches ? ", vbQuestion + vbYesNo, "ImprimeGallery")
If rep = vbYes Then
Form1.MousePointer = vbHourglass
MyWord.Visible = True
For i = 0 To List2.ListCount - 1
If List2.List(i) <> "" Then
Set Doc = MyWord.Documents.Open(myDir & "\" & List2.ListCount(i))
MyWord.ActiveDocument.PrintPreview
MyWord.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1-8", PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
MyWord.ActiveDocument.Close False
End If
Next i
End If
Set MyWord = Nothing
Set Doc = Nothing
Form1.MousePointer = vbDefault
afficboutonword
End Sub |
voici l'appli en action quand on clique "Imprimer selection" on doit imprimer que les nom des fichiers cliques
http://herve.guedj.free.fr/vb.jpg
