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

Version imprimable

23/01/2017, 15h28
Corwin69

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

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

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

Code:

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

25/01/2017, 14h41
Corwin69

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
25/01/2017, 16h55
omen999

bonjour,
le code proposé par ProgElectT correspond pourtant à ta demande :?
même si la ligne 11 devrait plutôt s'écrire :

Code:

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

Salut

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

Code:

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)

25/01/2017, 18h14
Corwin69

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.
28/01/2017, 13h09
l_autodidacte

Citation:

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).
28/01/2017, 14h00
Corwin69

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

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:

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

Salut

:coucou: l_autodidacte:ccool:

;)

Citation:

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:

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

:zen:
Faq:
:fleche: VB Script →Fichiers : le FileSystemObject
:fleche: Accès aux Fichiers
:fleche: Comment obtenir des informations sur fichier ?

:resolu: ? :aie:

29/01/2017, 10h33
Corwin69

Merci ProgElecT c'est nickel
Merci également à tous les autres.

Très bon dimanche