Imprimer une liste de fichier dans un dossier

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'073
Appréciations reçues : 99
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 4 juin 2018, 10:24

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.
mDFScanFichiers(détail) v2.xls
(78 Kio) Téléchargé 5 fois
A l'instant même où je l'ai vue, ingénue,
Je suis tombé amoureux d'eeeeeeelle.
Elle est la seule ici bas,
Que je trouve digne de moi.
Et je compte bien épouser cette demoiseeeeelle.

La Belle et la Bête. Belle
Avatar du membre
paritec
Passionné d'Excel
Passionné d'Excel
Messages : 3'495
Appréciations reçues : 262
Inscrit le : 7 juin 2011
Version d'Excel : W10 - 2003 FR - 2010 FR

Message par paritec » 4 juin 2018, 14:17

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 :)
Des bonnes explications et des petits fichiers représentatifs vont nous aider à vous aider !!!!
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'073
Appréciations reçues : 99
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 4 juin 2018, 14:26

Bonjour Paritec,

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

Merci pour ton aide ^^
mDFScanFichiers(détail) v2.xls
(78.5 Kio) Téléchargé 4 fois
A l'instant même où je l'ai vue, ingénue,
Je suis tombé amoureux d'eeeeeeelle.
Elle est la seule ici bas,
Que je trouve digne de moi.
Et je compte bien épouser cette demoiseeeeelle.

La Belle et la Bête. Belle
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'073
Appréciations reçues : 99
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 5 juin 2018, 11:11

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 ?
Recherche & Imprime.xlsm
(46.48 Kio) Téléchargé 1 fois
A l'instant même où je l'ai vue, ingénue,
Je suis tombé amoureux d'eeeeeeelle.
Elle est la seule ici bas,
Que je trouve digne de moi.
Et je compte bien épouser cette demoiseeeeelle.

La Belle et la Bête. Belle
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message