Imprimer une liste de fichier dans un dossier

Bonjour la communauté,

J'aimerais avoir une macro me permettant d’imprimer une liste de fichier (quelle que soit le format) sur l'imprimante par défaut et sans qu'aucune fenêtre ne s'ouvre pour me demander des validations.

J'ai fais quelques recherches et sa me semble être très compliqué.

Pour l'heure, j'ai trouver un fichier créer par Didier FOURGEOT qui permet de lister les fichiers d'un dossier (je le met en pièce jointe).

Est-ce que, à partir du fichier de Mr Fourgeot, il est possible d'imprimer les fichiers lister ?

Merci par avance pour votre aide.

Bonjour Juice le forum

sans le fichier de mdf que je salue il est simple de lister les fichiers d'un dossier, mais tu parles justement de n'imprimer que certain fichiers, si c'est cela tu craies d'abord une liste des fichiers dans une feuille colonne A par exemple et ensuite tu nous passes

ton fichier avec le chemin du dossier ou se trouve tes fichier et on fera le reste

a+

papou

Bonjour Paritec,

Voici un exemple de ce que je pourrais avoir en colonne A!

Merci pour ton aide ^^

Bonjour,

Il y a du nouveau, j'ai modifié le fichier et je vous le remet en fichier joint.

Je bloque sur un bout de code que j'ai écrit :

Sub Trait_2()
Dim Lien As Hyperlink
Sheets("Feuil2").Select
If Range("B4") = "OUI" Then
Sheets("Feuil1").Select 'EXCEL EXCEL EXCEL EXCEL EXCEL EXCEL EXCEL EXCEL EXCEL EXCEL EXCEL EXCEL
    For Each Lien In ActiveSheet.Hyperlinks
        If LCase(Right(Lien.Address, 4)) = ".xls" Then
            ShellExecute 0, "print", Lien.Address, vbNullString, Lien.Address, 0&
        End If
    Next Lien
Else
Sheets("Feuil2").Select
If Range("C4") = "OUI" Then
Sheets("Feuil1").Select 'IMAGE IMAGE IMAGE IMAGE IMAGE IMAGE IMAGE IMAGE IMAGE IMAGE IMAGE IMAGE IMAGE
    For Each Lien In ActiveSheet.Hyperlinks
        If LCase(Right(Lien.Address, 4)) = ".PNG" Then
            ShellExecute 0, "print", Lien.Address, vbNullString, Lien.Address, 0&
        End If
    Next Lien
Else
Sheets("Feuil2").Select
If Range("D4") = "OUI" Then
Sheets("Feuil1").Select 'PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF PDF
    For Each Lien In ActiveSheet.Hyperlinks
        If LCase(Right(Lien.Address, 4)) = ".pdf" Then
            ShellExecute 0, "print", Lien.Address, vbNullString, Lien.Address, 0&
        End If
    Next Lien
Else
Sheets("Feuil2").Select
If Range("E4") = "OUI" Then
Sheets("Feuil1").Select 'TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE
    For Each Lien In ActiveSheet.Hyperlinks
        If LCase(Right(Lien.Address, 4)) = ".docx" Then
            ShellExecute 0, "print", Lien.Address, vbNullString, Lien.Address, 0&
        End If
    Next Lien
End If
End If
End If
End If
End Sub

En faite, lorsque je clique sur mon bouton "impression des fichiers" un UserFrom s'ouvre.

Avec celui-ci, je coche ou décoche au choix les formats voulus (ex: PDF ou XLS) et en appuyant sur "OK" je suis censé avoir les impressions des fichiers qui ont le format voulus.

Sauf que quand je clique sur "OK", rien ne se passe.

Pas de message d'erreur, pas d'impression, pas de chargement.

Quelqu'un verrait où est le problème ?

Rechercher des sujets similaires à "imprimer liste fichier dossier"