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.