Discussion :

[CIRE3]

Bonjour les experts ,

je reçois tous les jours un fichier (.TXT) délimité ; nommé ARELXDMF_17022017, et je souhaite supprimer le date et mois toujours différents 17022017 ou 20032017 avant importation. je n'y arrive pas , voici mon code qui ne fonctionne pas . ou est mon erreur ? Merci pour tout

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
Public Function supp_date()
 
Dim NChemin As String
Dim NomFic1 As String, NomFic2 As String
 
'Chemin du disque
NChemin = "E:\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(NChemin)
 
    For Each objfichier In objDossier.Files
        'Récupération du nom de l'ancien fichier
        NomFic1 = objfichier.Name
        'Création du nouveau nom en ne gardant que la partie date
        NomFic2 = Replace(NomFic1, "ARELXDMF_17022017", "")
        'Renommer ancien fichier avec nouveau nom
        If Left(objfichier.Name, 13) = "ARELXDMF_17022017" Then
            Name NChemin & NomFic1 As CalculerNomCheminFichier(NChemin, NomFic2)
        End If
    Next
 
End Function

Merci de votre aide

Cordialement
Eric

[marot_r]

Bonjour.

Probablement que le .name te retournes aussi l'extension .txt.

Essaye :

Code :

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

1
2
3
4
5
6
7
        'Création du nouveau nom en ne gardant que la partie date
        NomFic1 = objfichier.Name
 
        if nomFc1 like "*ARELXDMF_17022017*" then
              NomFic2 = Replace(NomFic1, "ARELXDMF_17022017", "")
              Name NChemin & NomFic1 As CalculerNomCheminFichier(NChemin, NomFic2)
        end if

et aussi vérifie que NChemin se termine bien par \ sinon la concaténation ne donnera pas un chemin valide.

A+

[CIRE3]

bonjour,

J'ai essayé et modifié le code ... rien n' y fait , impossible. où est la bêtise ? je suis toujours en apprentisage

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
 Public Function supp_Date()
 
Dim NChemin As String
Dim NomFic1 As String, NomFic2 As String
 
'Chemin du disque
NChemin = "E:\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(NChemin)
 
    For Each objfichier In objDossier.Files
        'Récupération du nom de l'ancien fichier
        NomFic1 = objfichier.Name
        'Renommer ancien fichier avec nouveau nom
        If NomFic1 Like "*ARELXDMF_17022017*" Then
              NomFic2 = Replace(NomFic1, "ARELXDMF_17022017", "")
              Name NChemin & NomFic1 As CalculerNomCheminFichier(NChemin, NomFic2)
        End If
    Next
 
 
End Function

Merci
Eric

[CIRE3]

bonjour tout le monde,

je galère vraiment , j'ai un fichier que je reçois tous les jours (.tXT) délimité . je souhaiterai renommé le nom de celui , exemple 1er jour ARELXDMF_17022017] puis 2 ieme jour ARELXDMF_17032017 dans un lecteur "E\" le nom du fichier renommé serait ARELXDMF avant de l'importer dans ma base ACCESS. C'est à dire supprimer les derniers chiffres (Dates) avec le _

ça fait des heures voir plus que je galère

si quelqu'un aurait une idée ?

Merci pour votre aide

Cordialement

Eric

[marot_r]

Bonjour essaye.

Code :

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

1
2
3
4
5
6
7
8
9
const PREFIXE as string="ARELXDMF"
 
If NomFic1 Like "*" & PREFIXE &  "_[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]*" Then
   'Est-ce que le fichier contient ARELXDMF_ suivit de 8 chiffres
   dim iDebut=instr(NomFic1,PREFIXE & "_") 'Trouve le 1er caractère de ARELXDMF
   dim iFin=IDebut+Len(PREFIXE)+8 'Trouve la poosition du 8ième chiffres
   NomFic2=left(NomFic1, iDebut+len(PREFIXE)-1) & mid(NomFic1, iFin+1) 'Prend le nom du 1er caractère à la fin de ARELXDMF et après le dernier chiffres jusqu'à la fin.
   '
   ' Ici le reste de ton code

A+

[CIRE3]

Bonjour à tous ,

Merci et ce fonctionne très bien mais c'est pas le résultat que je souhaite .... avec cette fonction , j'obtiens le résultat F_17022017
Or, je souhaite le résultat ARELXDMF ( après je l'importerai et détruirai le fichier ) .
En effet , je reçois tous les jours ce fichier ARELXDMF avec une nouvelle date collée sur le nom du fichier avec un _ que je désire enlever
exemple ARELXDMF_1702017 puis le lendemain ARELXDMF_1802017 ........ et mon résultat souhaité est ARELXDMF

J'ai essayé en vain de modifier le code ... pff j'aimerai bien avoir votre niveau
Merci pour aide
Cordialement
Eric

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
Public Function M_rem()
Const PREFIXE As String = "ARELXDMF"
Dim NChemin As String
Dim NomFic1 As String, NomFic2 As String
Dim iDebut As String
Dim iFin As String
 
 
'Chemin du disque
NChemin = "E:\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(NChemin)
 
 
   If NomFic1 Like "*" & PREFIXE & "_[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]*" Then
       'Est-ce que le fichier contient ARELXDMF_ suivit de 8 chiffres
        iDebut = InStr(NomFic1, PREFIXE & "_") 'Trouve le 1er caractère de ARELXDMF
        iFin = iDebut + Len(PREFIXE) + 8 'Trouve la position du 8ième chiffres
        NomFic2 = Left(NomFic1, iDebut + Len(PREFIXE) - 1) & Mid(NomFic1, iFin + 1) 'Prend le nom du 1er caractère à la fin de ARELXDMF et après le dernier chiffres jusqu'à la fin.
 
           End If
 
   For Each objfichier In objDossier.Files
        'Récupération du nom de l'ancien fichier
        NomFic1 = objfichier.Name
        'Création du nouveau
        NomFic2 = Replace(NomFic1, "ARELXDM", "")
        Name NChemin & NomFic1 As CalculerNomCheminFichier(NChemin, NomFic2)
 
          Next
 
End Function

Merci

[marot_r]

Désolé de ne pas avoir été clair.

Ici le code modifier

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
Public Function M_rem()
    Const PREFIXE As String = "ARELXDMF"
    Dim NChemin As String
    Dim NomFic1 As String, NomFic2 As String
    Dim iDebut As String
    Dim iFin As String
 
    'Chemin du disque
    NChemin = "E:\"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objDossier = objFSO.GetFolder(NChemin)
 
    For Each objfichier In objDossier.Files
        'Récupération du nom de l'ancien fichier
        NomFic1 = objfichier.Name
 
        If NomFic1 Like "*" & PREFIXE & "_[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]*" Then
            'Est-ce que le fichier contient ARELXDMF_ suivit de 8 chiffres
            iDebut = InStr(NomFic1, PREFIXE & "_") 'Trouve le 1er caractère de ARELXDMF
            iFin = iDebut + Len(PREFIXE) + 8 'Trouve la position du 8ième chiffres
            NomFic2 = Left(NomFic1, iDebut + Len(PREFIXE) - 1) & Mid(NomFic1, iFin + 1) 'Prend le nom du 1er caractère à la fin de ARELXDMF et après le dernier chiffres jusqu'à la fin.
            Name NChemin & NomFic1 As CalculerNomCheminFichier(NChemin, NomFic2)
        End If
 
    Next
 
End Function

Cela se peut que je me sois un peu trompé sur les +1 et -1 pour décomposer/recomposer le nom du fichier mais quelques essais devraient te permettre de corriger ces problèmes de bordures.

A+