Impression d'une liste de fichier depuis Excel

Bonjour,

J'ai dans une feuille de mon classeur une liste de fichier à imprimer.
Voici ci-dessous le code que j'ai trouvé pour lancer l'impression.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub ImprimerFichiers()   Dim NomFichier As String Dim x As Long Dim Référence As String, DerLigA As Integer, i As Integer   DerLigA = Range("A65536").End(xlUp).Row   For i = 1 To DerLigA   If Cells(i, 2) <> "" Then Référence = Range("B" & i).Value   x = FindWindow("XLMAIN", Application.Caption) NomFichier = Référence   ShellExecute x, "print", NomFichier, "", "", 1   End If Next   End Sub

---

Mon premier problème est que tout mes fichiers ne sont pas imprimés (21 fichiers manquants sur 82 au total). Pourquoi en manque-t-il?

Mon deuxième problème est que mes fichiers sont triés dans ma colonne B par ordre alphabétique mais sortent en désordre alors que j'aiemerai qu'ils sortent dans le même ordre.

Merci par avance si vous arrivez à m'aider.
Cordialement.

Bonjour,
Si je me réfère à cette instruction If Cells(i, 2) <> "" Then toutes les lignes de la colonne B ne sont par remplies alors je me pose la question de savoir si la colonne A est bien remplie
Dans la négative, dans cette instruction DerLigA = Range("A65536").End(xlUp).Row, il est possible que DerLigA te renvoie une valeur qui pourrait-être inférieure au nombre de ligne que la colonne B
Petite remarque qui n'a rien avoir avec ton problème:
Dans ce code

Code:

---

1 2 3 4

Référence = Range("B" & i).Value x = FindWindow("XLMAIN", Application.Caption) NomFichier = Référence ShellExecute x, "print", NomFichier, "", "", 1

---

Pourquoi passes-tu par une variable intermédiaire ?
Tu pourrais faire l'économie de la variable Référence

Code:

---

NomFichier = Range("B" & i).Value

---

Effectivement je peux me passer de la variable Référence. Bonne remarque :ccool:

Sinon mes colonnes A et B sont bien toutes remplies de A1 jusqu'à A82.
(En A le nom du fichier PDF à imprimer, en B le chemin du fichier)
Et le tout trié par ordre croissant, je ne comprend donc pas pourquoi des fichiers sont oubliés ...

PS : En mettant MsgBox(DerLigA), il me renvoi bien 82.
PS2 : Je peux aussi me passer du If Cells(i, 2) <> "" puisque ma colonne est toujours pleine.

Bonjour,
Je n'ai pas d'expérience avec l'API FindWindows mais la lecture de ce paragraphe te donnera peut-être une idée

Je te remercie je vais jeter un oeil.
Si tu as une autre idée ou solution je prend ;)

Bonjour,
Une autre discussion sur le sujet avec un renvoi à un autre lien.

J'ai regardé tes liens mais rien ne m'aide vraiment.

Mes fichiers s'incrémente dans la liste d'attente de l'imprimante mais toujours dans le désordre et pas en totalité ...



Edit : Apparement le fait que les fichiers soient en désordre viens du fait que l'imprimante imprime par ordre croissant de date de création ...

J'ai abandonné et je me suis diriger vers la fusion de plusieurs PDF.