Discussion :

[Virk59]

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

[mercatog]

Pour ouvrir le fichier correspondant au mois en cours

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

[Virk59]

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 ?

[mercatog]

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?