VBA - Impressions pas dans l'ordre

Re : VBA - Impressions pas dans l'ordre

Bonsoir Jehnrika

Quand tu dis que l'impression n'est pas dans l'ordre, c'est que les feuilles qui sortent sont carrément dans le désordre !?
Je ne comprends pas pourquoi, vu que ta procédure me semble tout a fait correcte

A+

Re : VBA - Impressions pas dans l'ordre

Bizarre je suis d'accord avec toi.

J'ai fait des tests. Imaginons que j'ai deux documents à imprimer, parfois mais pas tout le temps, c'est aléatoire, la deuxième feuille sort avant la première.

Re : VBA - Impressions pas dans l'ordre

Re,

Sur qu'elle type d'imprimante édites tu ?
N'y a t'il pas un paramètre qui indique d'imprimer de la fin vers le début ?

A+

Re : VBA - Impressions pas dans l'ordre

Bonjour Jehnrika,

Supprimé pour cause d'ineptie!

Re : VBA - Impressions pas dans l'ordre

Salut mapomme 😉

Il ne me semble pas anormal que selon le temps de traitement pour coder l'impression de chaque fichier, leur ordre de sortie soit bouleversé​

Cliquez pour agrandir...

Heuu tu peux m'expliquer ?

Tout envois d'impression est mis en file d'attente dans le spooler
donc je ne vois pas comment ce que tu dis est possible ...

A+

Re : VBA - Impressions pas dans l'ordre

Bonsoir 🙂

Heuh! il est temps que j'aille me reposer! Merci de me le rappeler😱

Je supprime mon précédent post!

Re : VBA - Impressions pas dans l'ordre

J'ai testé sur deux imprimantes différentes (HP Laserjet CP1215 et une laser Brother HL 1230) et cela fait la même chose de manière aléatoire.

Re : VBA - Impressions pas dans l'ordre

Re,

Comme dirait un de mes collègues du service informatique : problème aléatoire ... désespoir

Désolé, mais je ne pourrais pas t'aider
Ton code est correcte, sauf si les fichiers ne sont pas triés correctement dans ta feuille, à vérifier

Re : VBA - Impressions pas dans l'ordre

Je vais dire peut etre une ineptie, mais y a t'il la possibilité sous VBA de mettre une tempo dans mon programme qui permettre d'attendre quelques secondes (1 ou 2 s) avant que le fichier suivant soit envoyé ou de controler que le fichier précédent a bien été imprimé par l'imprimante (spoiler vide ou autre). Je ne sais pas.

Si oui, comment dois je adapter mon programme?

Re : VBA - Impressions pas dans l'ordre

Re,

Peut être avec un DoEvents

Re : VBA - Impressions pas dans l'ordre

Bonjour,

Par contre, j'ai un autre souci sur ma macro Impression.

Imaginons que j'ai une imprimante par défaut. Et dans ma macro, je choisis une autre imprimante. Chez moi, l'imprimante choisie est bien sélectionné.

Par contre, à mon travail, j'ai une imprimante hp branchée en usb sur ma tour et le photocopieur qui est sur le réseau de la société.
Et dans ce cas là, l'imprimante choisie n'est pas prise en compte et imprime automatiquement sur l'imprimante par défaut sur le pc. Pour forcer l'impression sur le photocopieur, je dois le meme en imprimante par défaut. Galère!!!

voici la macro.

Sub Impression()

Dim i As Integer
Dim TexteRecherche As String
Dim ImprimanteChoisie As String, ImprimanteInitiale As String

ImprimanteInitiale = Application.ActivePrinter

Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
ImprimanteChoisie = Application.ActivePrinter
Application.ScreenUpdating = False

Select Case ChoixImpression
Case "Tous les fichiers"
For i = 6 To FinTableau
Fichier = Cells(3, 2).Value & "\" & Cells(i, 2).Value
ShellExecute 0&, "print", Fichier, vbNullString, vbNullString, vbNormalFocus
Cells(i, 3).Value = "Fichier imprimé"
Next
Case "Uniquement Type1"
For i = 6 To FinTableau
Fichier = Cells(3, 2).Value & "\" & Cells(i, 2).Value
If Cells(i, 2).Value Like "*Type1*" Then
ShellExecute 0&, "print", Fichier, vbNullString, vbNullString, vbNormalFocus
Cells(i, 3).Value = "Fichier imprimé"
End If
Next
Case "Uniquement Type2"
For i = 6 To FinTableau
NomFichier = Cells(i, 2).Value
TexteRecherche = "xxx"
Position = InStr(1, NomFichier, TexteRecherche, vbTextCompare)
If Position = 0 Then
Fichier = Cells(3, 2).Value & "\" & Cells(i, 2).Value
ShellExecute 0&, "print", Fichier, vbNullString, vbNullString, vbNormalFocus
Cells(i, 3).Value = "Fichier imprimé"
End If
Next
End Select
Application.ScreenUpdating = True
MsgBox "Les fichiers ont bien été imprimés"
Application.ActivePrinter = ImprimanteInitiale

End Sub


Je pense que je ne maitrise pas le fait que l'imprimantephotocopieur soit en réseau.

Merci de votre aide.

Jehnkira