Définition d'un fichier d'après une chaine de caractères

**Corwin69** · 23/01/2017, 15h28

Bonjour,

Quelqu'un aurait-il une solution à mon problème ?

Actuellement je définis un fichier comme cela:
fichier1 = "C:\Test\ContratDupont_0988_xc_ 99.xls"

Le problème est que le fichier change de nom tout les mois et la fin du nom du fichier est aléatoire.
Je souhaiterai sélectionner mon fichier d'après la première chaine de caractère
ex:
si chaine "C:\Test\ContratDupont"
alors fichier1 = "C:\Test\ContratDupont_0988_xc_ 99.xls"
Mais je ne trouve pas de commandes qui correspond à ce que je souhaite.
Merci d'avance

**ProgElecT** · 23/01/2017, 17h22

Salut
Adaptation de Comment lister les fichiers d'un dossier ?

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
Option Explicit
 
Const Dossier = "C:\Test"
Dim DebutNomFichier: DebutNomFichier = "ContratDupont"
Dim fichier1
Dim oFSO, oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each oFl In oFSO.GetFolder(Dossier).Files
    If InStr(oFl.Name, DebutNomFichier) Then
       MsgBox "Un fichier portant le nom : " & oFl.Name & " a été trouvé."
       fichier1 = DebutNomFichier & "_0988_xc_ 99.xls"
       Exit For
    End If
Next
Set oFSO = Nothing

**Corwin69** · 25/01/2017, 14h41

Bonjour,

Merci bien pour ta réponse ProgElect
Mais l'expression de mon besoin n'etait pas clair.

Je dois écrire dans un fichier tous les mois
Celui-ci change de nom à chaque fois
Seuls les premiers caractères restent identiques
Je souhaite
- Chercker dans le répertoire C:\test un nom de fichier commencant par la chaine "ContratDupont"
- Récupérer le nom entier du fichier pour le définir en fichier1 (fichier1 = "C:\Test\ContratDupont_0988_xc_ 99.xls")

Merci

**omen999** · 25/01/2017, 16h55

bonjour,
le code proposé par ProgElectT correspond pourtant à ta demande

même si la ligne 11 devrait plutôt s'écrire :

Code :

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

fichier1 = Dossier & "\" & DebutNomFichier & "_0988_xc_ 99.xls"

il te suffit de définir DebutNomFichier comme tu le souhaites et tu obtiendras
la variable fichier1 demandée

**ProgElecT** · 25/01/2017, 17h02

Salut

Ce que j'ai compris, renommé le fichier, alors peut être ce

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
Option Explicit
 
Const Dossier = "C:\Test"
Dim DebutNomFichier: DebutNomFichier = "ContratDupont"
Dim fichier1
Dim oFSO, oFl, f
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each oFl In oFSO.GetFolder(Dossier).Files
    If InStr(oFl.Name, DebutNomFichier) Then '
       'Chercker dans le répertoire C:\test un nom de fichier commencant par la chaine "ContratDupont"
       MsgBox "Un fichier portant le nom : " & oFl.Name & " a été trouvé."
       fichier1 = Dossier & "\" & DebutNomFichier & Day(Date) & "_" & Month(daye) & "_" & Year(Date) & ".xls"      '"_0988_xc_99.xls"
       MsgBox "Nom de Fichier1: " & fichier1
       Set f = oFSO.GetFile(Dossier & "\" & oFl.Name)
       'Renome le fichier
       f.Name = DebutNomFichier & Day(Date) & "_" & Month(daye) & "_" & Year(Date) & ".xls"               '"_0988_xc_99 & ".xls"
       MsgBox "Le fichier a été renomé: " & fichier1
       Set f = Nothing
       Exit For
    End If
Next
Set oFSO = Nothing

Si fichier commencent par ContratDupont, alors il sera renommé ContratDupont25_01_2017.xls (Date du jour)

**Corwin69** · 25/01/2017, 18h14

Merci ProgElecT
Mais ce que je souhaite est plus simple

(comment ça je suis une bille ?)

Mon script va tourner tous les mois pour aller écrire dans un fichier
Mais le nom du fichier change tous les mois, seul la première chaine de caractères est constante "ContratDupont"

En résumé
Chercher le fichier commençant par "ContratDupont"
Récupérer le nom complet du fichier pour le mettre dans une variable (fichier1 = ContratDupontxxxxxxxx.xls"
Ecrire dans fichier1

Tout ça sans avoir à me soucier de la fin du nom du fichier qui va changer tous les mois.

**l_autodidacte** · 28/01/2017, 13h09

Mais le nom du fichier change tous les mois, seul la première chaine de caractères est constante "ContratDupont"

Le fichier est-il reçu ou généré par une application qui tourne su ta machine ?
Si c'est le cas, il suffit peut-être de le chercher par son début de nom ContratDupont et sa date de création(ou modification selon le cas).

**Corwin69** · 28/01/2017, 14h00

Bonjour l'autodidacte

Oui c'est ce que je cherche à faire
Uniquement chercher le fichier avec le début de son nom ContratDupont (qui sera toujours fixe) et récupérer le nom complet du fichier pour le mettre dans une variable.

Cdlt

**l_autodidacte** · 28/01/2017, 17h23

La solution que je propose ne sera pas loin de ce qu'a proposé ProgElecT (que je salut), seul ajout la date de modification(ou création) :

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
Option Explicit
Const Dossier = "C:\Test"
Const DebutNomFichier = "ContratDupont"
Dim fichier1
Dim oFSO, oFl, f
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each oFl In oFSO.GetFolder(Dossier).Files
       ' vérifie dans le répertoire C:\Test s'il y a un nom de fichier commençant par la chaine "ContratDupont" 
       ' et le mois de création(modification) correspond au mois de la date en cours puisque ce fichier change de nom
       ' à chaque mois
    If Left(LCase(oFl.Name), Len(DebutNomFichier)) = LCase(DebutNomFichier) _
       And Month(oFSO.GetFile(oFl.Path).DateCreated) = Month(Date) _
       Or Month(oFSO.GetFile(oFl.Path).DateLastModified) = Month(Date) Then '
       fichier1 = oFl.Path 
       Exit For
    End If
Next
MsgBox "Chemin  complet de Fichier1: " & fichier1
' Par la suite on peut utiliser fichier1 pour l'ouvrir en lecture, écriture(ajout, modification ...)
Set oFSO = Nothing

**ProgElecT** · 28/01/2017, 17h35

Salut

l_autodidacte

Uniquement chercher le fichier avec le début de son nom ContratDupont (qui sera toujours fixe) et récupérer le nom complet du fichier pour le mettre dans une variable.

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
Option Explicit
 
Const DebutNomFichier = "ContratDupont" '*********** début du nom du fichier a cherccher ****************
Const Dossier = "C:\Test" '************** dossier ou l'on a des chances de trouver un fichier commençant par ContratDupont *****************
Dim Fichier1 '*********** Variable pour récupérer le nom complet du fichier ************
fichier1 = "Fichier non trouvé"
Dim oFSO, oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each oFl In oFSO.GetFolder(Dossier).Files '**** Parcours de la liste des fichiers se trouvant dans le dossier ou l'on a des chances de trouver le fichier ******
    If InStr(oFl.Name, DebutNomFichier) Then '***** le Fichier oFl.Name commence par ContratDupont **************
       Fichier1 =oFl.Name  '************* Met dans la variable Fichier1 le nom du fichier qui commence par ContratDupont ***************
       Set f = Nothing '************ Nettoyage, libère la mémoire **************
       Exit For '****** Sortie de la boucle For Each .......Next ***************
    End If
Next
Set oFSO = Nothing '************ Nettoyage, libère la mémoire **************
MsgBox Fichier1 '************* vérification du contenu de la variable Fichier1 ***************