Bonjour,

Tout d'abord je suis totalement débutant dans le vbs mais dans le cadre de mon travail, je dois automatiser une tache : créer un histogramme 2D via une macro ( ou autre ) dans plusieurs fichiers Excel qui changeront tous les mois ( généré par un automate ).
Alors :
- ma macro Excel fonctionne dans un fichier test et est adaptable à tout fichier de l'automate donc c'est ok.
Par contre, apres pleins de recherches, je n'arrive pas à coder le script vbs qui automatisera cette tache.
Voici le code que j'ai pour le moment, mais avec erreurs d'execution ( que je n'arrive pas à résoudre ) :
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 ProcessFiles()
 Dim Filename As String
 Dim Pathname As String
 Dim wb As Workbook
 
 Pathname = ActiveWorkbook.Path & "\\c:\toto\"
 Filename = Dir(Pathname & "*.xls")
 Do While Filename <> ""
 Set wb = Workbooks.Open(Pathname & Filename)
 DoWork wb
 wb.Close SaveChanges:=True
 Filename = Dir()
 Loop
 End Sub
 
 Sub DoWork(wb As Workbook)
 With wb
 //MA MACRO ICI
 End Sub
Merci par avance !

Nonik

EDIT : j'ai cru comprendre qu'en VBS on ne déclarait pas avec "as" mais même sans cela j'ai des erreurs d'execution.... Merci !