VBA renommage fichier sans ouverture

Version imprimable

Bonjour,
Je souhaite faire un batch sur des fichiers en VBA et ca fait un peu que j'ai oublié les subtilités.
J'ai une serie de fichier avec un prefix commun : "ARRAYSCAN01_140715160003_" et je souhaite changer ce préfix par le prefix :"mamanip".

Comment dois-je m'y prendre ?

Merci pour votre aide

Code:

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
Sub renommage()
Dim i As Integer
Dim fso
Dim RepC As String, Fichier As String, lefichier As String, nomavt As String, nomapre As String
i = 0
 
Rep = "I:\ARRAYSCAN01_140715160003-80-CP\test\images\ARRAYSCAN01_140715160003_"
Repfin = "I:\ARRAYSCAN01_140715160003-80-CP\test\images\test_"
 
' recupération des fichiers C01
RepC = Rep & "*C01"
Fichier = Dir(RepC)
 
' Boucle sur les fichiers de format xls du répertoire Rep
Do While Fichier <> ""
  ' selection du fichier à copier
 
Set fso = CreateObject("Scripting.FileSystemObject")
' fso.MoveFile "d:dummytest.txt", "d:dummytest2.txt"
 nomavt = "I:\ARRAYSCAN01_140715160003-80-CP\test\images\A.C01"
 nomapre = "I:\ARRAYSCAN01_140715160003-80-CP\test\images\B.C01"
fso.MoveFile nomavt, nomapre
 
i = i + 1
Fichier = Dir ' Fichier suivant
Loop
 
End

End Sub

Bonjour,

Nul besoin du FileSystemObject

Exemple sorti de l'aide

Code:

1
2
3
4
5
6
Dim OldName, NewName
OldName = "ANCFICH": NewName = "NOUVFICH"    ' Définit les noms de fichiers.
Name OldName As NewName    ' Renomme le fichier.
 
OldName = "C:\MONREP\ANCFICH":NewName = "C:\VOTREREP\NOUVFICH"
Name OldName As NewName    ' Déplace et renomme le fichier.

Et tu peux détruire les anciens fichiers, si nécessaire, avec Kill

Merci, et voila la boucle

Code:

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
Sub renommage()
Dim i As Integer
Dim RepC As String, Fichier As String, lefichier As String, nomavt As String, nomapre As String, Reppref As String, Repfin As String
Dim FichierSsufix As String
i = 0
 
Rep = "T:\EXPECT\Arrayscan\20140715\ARRAYSCAN01_14071517000320-CP\"
Reppref = Rep & "ARRAYSCAN01_140715170003_"
Repfin = Rep & "ARRAYSCAN01_140715160009_"
 
' recupération des fichiers C01 dans Rep avec le prefix de Reppref
RepC = Rep & "*C01"
Fichier = Dir(RepC)
 
' Boucle sur les fichiers de format xls du répertoire Rep
Do While Fichier <> ""
  FichierSsufix = Mid(Fichier, 25, 36)
 
 nomavt = Rep & Fichier
 nomapre = Repfin & FichierSsufix
 Name nomavt As nomapre
i = i + 1
Fichier = Dir ' Fichier suivant
Loop
 
End
 
End Sub