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