Bonjour à Tous,
Je suis débutant en VB et j'arrive pas a rédiger le code me permettant de résoudre mon problème.
J'ai une donnée disponible sur plusieurs documents excel dans la cellule S10.
Les documents excels sources ont tous la même philosophie de nomination
- 100101 pour le fichier correspendant au premier janvier 2010
- 100102 pour le fichier correspendant au deux janvier 2010
- 100330 pour le fichier correspendant au trente mars 2010
et ainsi de suite pour toute l'année.
ces fichiers sont sotckés sous les chemins suivant:
tous les fichiers relatif au mois de janvier:
S:\All Users\02 ASHTART\16 Production\01 Daily Production\2010\Janvier 2010\nom du fichier.xls"
tous les fichiers relatif au mois d'août :
S:\All Users\02 ASHTART\16 Production\01 Daily Production\2010\aout 2010\100101.xls"
J'aurais besoin de cette donnée dans un seul document excel.
J'ai ecris ce code:
ce code m'a permis de récupérer la donnée du premier document.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub CollecteDonnee() Dim ClasseurSource As Workbook, ClasseurCible As Workbook Set ClasseurSource = Application.Workbooks.Open("S:\All Users\02 ASHTART\16 Production\01 Daily Production\2010\Janvier 2010\100101.xls") Set ClasseurCible = ThisWorkbook With ClasseurCible.Worksheets("feuil1").Cells(1, 1) .Value = ClasseurSource.Worksheets("DONNTECH").Cells(10, 19) .NumberFormat = ("[h]:mm") End With End Sub
Toutefois, ce code me semble non pratique puisque:
- il ouvre le fichier source (ceci le rendra lourd sur toute l'année)
- comme le fichier source contient des macros, il me demande à un certain moment l'accord pour ouvrir le document. ceci ne causera pas de problème s'il est possible de créer un code ne nécessitant pas d'ouvrir tous les documents.
de plus,
J'arrive pas à faire varier le nom du fichier
Serait il possible de m'aider
Merci
Partager