Vérification code pour trouver un fichier dont le nom change régulièrement

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:

---

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 ;)

Pour ouvrir le fichier correspondant au mois en cours

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub TestImport() Dim MonChemin As String, MonFichier As String Dim ScClass As Workbook, DataClass As Workbook   '/!\ Récupérer le nom du fichier source du mois en cours   MonChemin = "P:\Everyone\ADS - PFR\" MonFichier = MonChemin & Format(Date, "mm-yyyy") & " Arrivées PFR.xlsm"   If Dir(MonFichier) <> "" Then 'Définir le classeur actif en tant que variable Set DataClass = ThisWorkbook 'Définir le classeur source comme variable et l'ouvrir Set ScClass = Workbooks.Open(MonFichier)   Else MsgBox "Fichier " & MonFichier & " introuvable.", , "Erreur" End If End Sub

---

Intéressant aussi, mais le premier jour du mois, je ne trouverais que le fichier du mois précédent dans le dossier, d'où le fait que je n'ai pas automatisé sur le mois en cours. En fait je ne fais récupère mes données qu'en J+1.

Mais à priori, mon utilisation de la fonction "Dir" est correcte ?

Remplace donc Date par Date +1 en ligne 8.

Si tu as plusieurs fichiers avec ta façon de faire (ton Dir), le code doit connaitre lequel est le bon. Non?