Discussion :

[Cece06]

Bonjour,

Je cherche à enregistrer tous les fichiers Excel d'un dossier sous un nouveau nom.

Cependant, je n'arrive pas à terminer mon code.

Pouvez vous m'aider svp.

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
 
 
Sub Nom_Fichier()
 
 
Dim i As Double
Dim nomFichier As String
Dim numero As String
 
'On recherche le premier fichier xlsx
 
nomFichier = Dir("D:\Documents and Settings\cboureau\Bureau\SacFini\*")
 
 
numero = numero_sac(nomFichier)
 
'Pour tous les fichiers du dossier
Do While nomFichier <> ""
 
    i = 2
    Do While Cells(i, "B").Value <> numero 'On cherche le sac correspondant
        i = i + 1
    Loop
 
    nomFichier1 = Left(nomFichier, Len(nomFichier) - 5) & "_" & Left(Cells(i, "C").Value, 3) & "_" & Left(Cells(i, "F").Value, 3) & "_" & Left(Cells(i, "G").Value, 3) & ".xlxs" 'On change son nom
 
 
        nomFichier = Dir  'Fichier xls suivant
 
Loop
 
End Sub

Donc en faite, il me manque juste uneligne entre les deux dernières...

Je vous remercie.

[BlueMonkey]

Bonjour,

Pour renommer un fichier, regarde du côté de l'instruction Name <chemin & ancien nom> As <chemin & nouveau nom>.

exemple : voir FAQ