Bonjour a tous,

Je cherche a renommer un fichier qui a un nom qui change suivant les semaine : "ExtractionPlanCharge_20190121". Je souhaite renommer ce fichier pour pouvoir le récupérer ces données dans un autre fichier. Ce fichier est ranger dans un dossier nommé "base_article".
Le truc c'est que je n'arrive pas a accéder au dossier dans lequel "ExtractionPlanCharge_20190121" car il est rangé dans un autre dossier que le document VBA que je réalise.

Pour renommer,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Name "ExtractionPlanCharge_20190121" As "Base_article.CSV"
Pour accéder au fichier :
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
    Dim DossierBaseArticle As String, DossierBaseAS400 As String, Fichier1 As String, t As Integer
 
    DossierBaseArticle = Chemin & "Importation\Base_article\"
 
    t = 0
 
    Fichier1 = Dir(DossierBaseArticle)
 
    Do While Fichier1 <> ""
 
      t = t + 1
 
      MsgBox (Fichier1)
 
 
      Fichier1 = Dir
      Name Fichier1 As "Base_article.CSV"
    Loop
Je n'arrive pas a renommer le fichier
Sinon, il y a une autre solution, ouvrir le seul fichier qui est présent dans le dossier pour pouvoir importer ces données. A l'heure actuelle j'ai juste renommer le fichier à ma convenance mais je souhaite réalisé ça automatiquement.

Merci de votre aide