Discussion :

[ImagingAllthe]

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 :

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

[parmi]

Bonjour,

Nul besoin du FileSystemObject

Exemple sorti de l'aide

Code :

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

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

[ImagingAllthe]

Merci, et voila la boucle

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