Bonjour,

J’ai créé un code pour imprimer des fichiers qui se trouvent dans un dossier. Il y a environ 10000 dossiers donc en tapant l’article et la structure dans deux cases Excel, je veux que la macro m’ouvre les fichiers du dossier puis que ça imprime les fichiers.
Avec mon code, je réussis à ouvrir les fichiers mais je n’arrive pas à imprimer.

Voici le code ci-dessous:

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
Sub Ouvrir_Fichiers()
 
 
Dim sPath As String, sFilename As String, article As String, structure As String
Dim MonApplication As Object
 
Sheets("InfoRemplir").Activate
Range("A2").Select
article = Selection
structure = Selection.Offset(0, 1)
 
Set MonApplication = CreateObject("Shell.Application")
 
Application.ScreenUpdating = False
 
sPath = "O:\Dessins\" & structure & "\" & article & "-" & structure & "\"
sFilename = Dir(sPath & "*.tif*")
MonApplication.Open (sPath & sFilename)
 
End Sub
Merci pour votre aide