Discussion :

[Rydrake]

Bonjour à tous

J'ai un petit soucis sur un bouton dont voici le code :

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
 
Public Sub imprimer()
 
 
Workbooks("Maintenance").Sheets("Ouvrir").Activate
 
ilot = ActiveSheet.Range("H15").Value
 
 
 
Dim Ws As Worksheet
 
For Each Ws In Workbooks("FICHE " & ilot & ".xlsm").Worksheets
    Ws.PrintOut
Next
 
 
End Sub

Quand je clic sur le bouton, tous s'imprime niquel, mais j'ai quand même une erreur 400 qui s'affiche à la fin de l'opération, une idée de pourquoi ?


Merci d'avance

[Rydrake]

Personne ne sait ?

[unparia]

Bonjour

Personne ne sait ?

sur ces seules indications ? Pas moi, déjà ..L.

[Rydrake]

Comment ça "ces seules indications" ? J'ai publié un post avec l'intégralité de mon code, il n'apparait pas ?

[unparia]

J'ai publié un post avec l'intégralité de mon code

Cette phrase veut très exactement dire que tu n'as écrit QUE ce code dans la TOTALITE de ton classeur.
Est-ce VRAIMENT Le cas ?
Ce serait d'ailleurs plutôt étonnant, puisqu'il suffirait de ne pas écrire de code du tout pour imprimer la totalité des pages d'un classeur (il suffirait de cliquer sur fichier, puis imprimer, puis tout) !

EDIT : et si l'on tient à le faire par code VBA, il suffit alors d'utiliser la méthode Workbook.PrintOut, qui ne nécessite aucune boucle sur les feuilles du classeur. Toutes les feuilles étant imprimées si l'on ne spécifie pas les paramètres de et A !

Alors ?