Discussion :

[Nikodemus]

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 :

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
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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nikodemus]

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

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.

[Philippe Tulliez]

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

[Nikodemus]

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

[Philippe Tulliez]

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