Discussion :

[Guigui35160]

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

[Patrice740]

Bonjour,

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.

dans ce cas, il est parfaitement inutile de renommer le fichier:
- Chercher le fichier (avec Dir)
- l'ouvrir avec OpenText
- Copier les données

[Guigui35160]

Bonjour,


dans ce cas, il est parfaitement inutile de renommer le fichier:
- Chercher le fichier (avec Dir)
- l'ouvrir avec OpenText
- Copier les données

C'est à dire ?

Et pour résoudre ma problématique de renommage, avez vous une solution ? Je trouve que c'est plus simple pour le code que j'utilise ensuite.

[Menhir]

Pour compléter le message de Patrice ( ), il n'est pas nécessaire qu'un fichier ait l'extension "CSV" pour pouvoir l'ouvrir "comme un CSV".
L'extension est simplement un moyen, pour l'explorateur Windows, de relier un fichier avec l'application la plus à même de l'utiliser.

Donc, inutile de renommer ton fichier pour en extraire les données.

- l'ouvrir avec OpenText

Lire ceci : https://docs.microsoft.com/fr-FR/off...books.opentext

[Guigui35160]

D'accord merci

Mais du coup, comment je fais pour ouvrir le fichier car le nom change d'une semaine à l'autre ?
Je connais le chemin du répertoire où est enregistrer mon fichier, mais pas le nom du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dir (Chemin & "Importation\Base_article\")
Workbooks.Open Filename:=CheminBaseArticle

[halaster08]

Bonjour,

Je cherche a renommer un fichier qui a un nom qui change suivant les semaine : "ExtractionPlanCharge_20190121"

Pour ma part je suis amené a ouvrir un fichier avec la date du jour (et les heures minutes secondes), ex: export-requete6-20190206091429.csv

Voici comment je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
chemin = "C:\Users\" & Environ("UserName") & "\Downloads\export-requete6-" & Year(Date) & WorksheetFunction.Text(Month(Date), "00") & WorksheetFunction.Text(Day(Date), "00") & "*.csv"
Workbooks.Opentext Filename:=Chemin

A adapter a ton cas

Tu pourrais aussi gérer via une imputbox le numéro de la semaine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
semaine = inputbox("entrez la date au format aaaammjj") 'tu lui rentre 20190121
fichier = "ExtractionPlanCharge_" & semaine")
Workbooks.Opentext Filename:=Chemin & fichier

edit: si tu nettoie ton répertoire chaque semaine et que "ExtractionPlanCharge_20190121.csv" est le seul fichier csv commençant par ExtractionPlanCharge_
tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Opentext Filename:=Chemin & "ExtractionPlanCharge_*.csv"

Edit: je suis aller un peu vite en copiant mon code, Menhir a raison c'est opentext qu'il faut utiliser et non open

[Guigui35160]

Merci beaucoup pour ta réponse ! Je pense que je vais utiliser la solution 2 avec l'inputbox. Mais je me rend compte que, pour ta solution 1, j'ouvre un fichier qui n'aura pas forcément la date du jour. Cela marche quand même avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"& Year(Date) & WorksheetFunction.Text(Month(Date), "00") & WorksheetFunction.Text(Day(Date), "00") & "*.csv""

?

edit: si tu nettoie ton répertoire chaque semaine et que "ExtractionPlanCharge_20190121.csv" est le seul fichier csv commençant par ExtractionPlanCharge_
tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Workbooks.Open Filename:=Chemin & "ExtractionPlanCharge_*.csv"

Le problème quand je fais ce code avec l'étoile, mon document ne s'ouvre pas. Il y a quelque chose de spécifique à faire ?

[Menhir]

Mais du coup, comment je fais pour ouvrir le fichier car le nom change d'une semaine à l'autre ?
Je connais le chemin du répertoire où est enregistrer mon fichier, mais pas le nom du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Dir (Chemin & "Importation\Base_article\")
Workbooks.Open Filename:=CheminBaseArticle

Heureusement qu'on t'a dis à deux reprises que c'est OpenText et non Open qu'il fallait utiliser.
Prends au moins la peine de lire les conseils qui te sont donnés.

Pour récupérer le nom de fichier, il faut utiliser une variable qui va récupérer le nom de fichier fourni par le Dir().

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim nom as String
nom = Dir(Chemin & "Importation\Base_article\*.*")

En espérant que la variable "Chemin" contient bien un chemin valide se terminant par un "\".

[halaster08]

Mais je me rend compte que, pour ta solution 1, j'ouvre un fichier qui n'aura pas forcément la date du jour. Cela marche quand même avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"& Year(Date) & WorksheetFunction.Text(Month(Date), "00") & WorksheetFunction.Text(Day(Date), "00") & "*.csv""

?

Comme je l'ai écrit, c'est a adapter a ton cas, Date donne la date du jour, le code fonctionne donc sur un fichier dont le nom contient la date du jour, tu pourrais chercher a modifier date pour qu'il te donne la date du dernier lundi par exemple

[Patrice740]

Le problème quand je fais ce code avec l'étoile, mon document ne s'ouvre pas. Il y a quelque chose de spécifique à faire ?

Tu peux aussi chercher (puis ouvrir) le fichier le plus récent du répertoire choisi :

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
28
29
30
31
32
33
' Note : il faut activer la référence (dans Outils > Références ...) à :
' - Microsoft Scripting Runtime
Option Explicit
Option Private Module
Sub Test()
Dim chemin As String
  chemin = ThisWorkbook.Path   ' ou autre
  MsgBox TrouverDernier(chemin)
End Sub
Private Function TrouverDernier(strChemin As String) As String
Dim oFSO As FileSystemObject           'File System Object
Dim oRep As Scripting.Folder           'Dossier à analyser
Dim oFiles As Scripting.Files          'Collection des fichiers du dossier
Dim oFile As Scripting.File            'Fichier
Dim dat As Date                        'Date fichier
  'Explorer le dossier
  On Error Resume Next
  Set oFSO = New FileSystemObject
  Set oRep = oFSO.GetFolder(strChemin)         'dossier
  Set oFiles = oRep.Files                      'fichiers
  '- traiter chaque fichier
  For Each oFile In oFiles
    If oFile.DateCreated > dat Then            'ou, selon besoin, oFile.DateLastModified
      TrouverDernier = oFile.Path
      dat = oFile.DateCreated
    End If
  Next
  On Error GoTo 0
  Set oFSO = Nothing
  Set oRep = Nothing
  Set oFiles = Nothing
  Set oFile = Nothing
End Function