Bonjour,
Je dois traiter plusieurs fichiers excel d'un même dossier.Il est donc nécessaire de les ouvrir avant.J'arrive a en ouvrir un en indiquant son nom mais il faudrait qu'il ouvre tous les fichiers présents dans le dossier spécifié.
Ensuite, je dois effectuer un traitement pour chaque fichier ouvert, pour cela j'utilise une variable(fichierRma).
Pouvez vous m'aider sur le moyen d'effectuer tout cela.
Je vous montre le code que j'ai déjà commencé.
Dans mon code, le fichier est DAL BO F RMA_200805.xls, je voudrais donc le changer par une variable qui changerait à chaque fichier.
Merci de me répondre et n'hésitez pas à poser des questions si mon explication n'est pas claire!
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 Dir "C:\Outil RH\Test" Set oFSO = CreateObject("Scripting.FileSystemObject") Source = "C:\Outil RH\Test" For Each File In fso.GetFolder(Source).Files Workbooks.Open(Filename:= _ "C:\Outil RH\Test\DAL BO F RMA_200805.xls"). _ RunAutoMacros Which:=xlAutoOpen Next Windows("SaisieAuto_2008_05_Suivi_RMA.xls").Activate 'fichier Rma = "DAL BO F RMA_200805.xls" 'Ici tout le traitement à effectuer pour chaque fichier
Partager