Imprimer en réseau...cette macro ne fonctionne pas...pourquoi ?

[Christian0258]

Bonjour à tout le forum,
Pourriez-vous me dire ce qu'il faut modifier sur cette macro qui en l'état fonctionne mal ;

Sub ImprimVdeMidiSoir()
Dim X As Integer
For X = 10 To 60
Range("C5K52").Select
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCFROID1 sur Ne" & X & ":", Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCPROD_cartes sur Ne" & X & ":", Collate:=True
Next X
Range("D1").Select

End Sub

Merci pour votre aide.

Bien à vous,
Christian

 

[Pierrot93]

Re : Imprimer en réseau...cette macro ne fonctionne pas...pourquoi ?

Bonjour,

Pourriez-vous me dire ce qu'il faut modifier sur cette macro qui en l'état fonctionne mal ;

euh... ca veut dire quoi fonctionne mal ??? message d'erreur, pas le résultat attendu ou autre ??

bon après midi
@+

 

[Pierrot93]

Re : Imprimer en réseau...cette macro ne fonctionne pas...pourquoi ?

Re,

à noter tout de même, enlever cette ligne "On Error Resume Next", plutot que de ne pas tenir compte des erreurs, préférable de les gérer...

 

[Christian0258]

Re : Imprimer en réseau...cette macro ne fonctionne pas...pourquoi ?

Re, le forum, Pierrot,

En fait, je suis obligé de la planter, car elle imprime en boucle sans arrêt sur mon imprimante par défaut...

Il faut enlever "On Error Resume Next", ? ...suis nul en VBA...

à vous lire,

Christian

 

[Pierrot93]

Re : Imprimer en réseau...cette macro ne fonctionne pas...pourquoi ?

Re,

déjà tu es dans une boucle...

For X = 10 To 60

tes instructions seronteffectuées une cinquantaine de fois...