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:
Merci pour votre aide
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
Partager