Bonjour à tous,

Je souhaiterais avoir votre avis sur un mini bout de code que j'ai rédigé (savoir ce que vous pensez de la syntaxe, si je peux améliorer/simplifier, les éventuels risques de la syntaxe utilisée). Le but de ce code est d'ouvrir un fichier Excel, où d'autres bouts de code récupèreront des données, mais le nom de ce fichier change tous les mois tout en conservant un suffixe identique (ex : "11-2013 Arrivées PFR" ou "12-2013 Arrivées PFR").

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
21
22
23
24
25
26
27
Sub TestImport()
 
Dim MonChemin As String
Dim MonFichier As String
 
Dim ScClass As Workbook
Dim DataClass As Workbook
 
'Définir le classeur actif en tant que variable
 
Set DataClass = ThisWorkbook
 
'Récupérer le nom du fichier source en cours
 
MonChemin = "P:\Everyone\ADS - PFR\*Arrivées PFR.xlsm"
 
Worksheets("test").Select
 
Range("a1") = Dir(MonChemin)
 
MonFichier = "P:\Everyone\ADS - PFR\" & Range("a1").Value
 
'Définir le classeur source comme variable et l'ouvrir
 
Set ScClass = Workbooks.Open(MonFichier)
 
End Sub
Qu'en pensez-vous ?

PS : Merci par avance de votre aide