Discussion :

[FrancisZheng]

Bonjour :

La question est très simple.
J'ai un fichier a.xlsx
Je voulais le renommer à b.xlsx

Comment on fait? Merci d'avance

[Minise]

un petit Name

Name "chemindubureau\a.xlsx" As "chemindubureau\b.xlsx"

[FrancisZheng]

Merci Minise cela marche bien. Mais maintenant j'ai un fichier "20151005-20151112.xlsx". Le nom du fichier change chaque semaine selon la date.

Est-ce que je peux renommer le fichier en écrivant du code genre :

Code :

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

Name "chemindubureau\Date-7 & "-" & Date.xlsx" As "chemindubureau\a.xlsx"

Maintenant la question devient :

Comment je peux représenter ce nom "Analytics20151005-20151112.xlsx" qui change toutes les semaines avec des variables prédéfinis ?

Le but est de trouver ce fichier sur bureau.

Cela me fait penser à utiliser

Code :

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

1
2
3
 
'--Parcours de Recherche des fichiers sur bureau
'--If nom_de_fichier Like "*analytics*" Then ca y est !

[Docmarti]

Bonjour.

Donc dans ce répertoire, il n'y a toujours qu'un seul fichier dont le nom commence par "Analytics" ou il peut arriver qu'il y en ait plus qu'un?

[Theze]

Bonjour,

Plutôt comme ça non ?

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
 
Sub Test()
 
    Dim Nom1 As String
    Dim Nom2 As String
 
    Nom1 = "chemindubureau\" & Year(Date - 7) & _
            Format(Month(Date - 7), "00") & _
            Format(Day(Date - 7), "00") & "-" & Year(Date) & _
            Format(Month(Date), "00") & _
            Format(Day(Date), "00") & ".xlsx"
 
    Nom2 = "chemindubureau\a.xlsx"
 
    Name Nom1 As Nom2
 
End Sub

[FrancisZheng]

Bonjour.

Donc dans ce répertoire, il n'y a toujours qu'un seul fichier dont le nom commence par "Analytics" ou il peut arriver qu'il y en ait plus qu'un?

Bonjour :

Il y en a qu'un seul.

Bonjour,

Plutôt comme ça non ?

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
 
Sub Test()
 
    Dim Nom1 As String
    Dim Nom2 As String
 
    Nom1 = "chemindubureau\" & Year(Date - 7) & _
            Format(Month(Date - 7), "00") & _
            Format(Day(Date - 7), "00") & "-" & Year(Date) & _
            Format(Month(Date), "00") & _
            Format(Day(Date), "00") & ".xlsx"
 
    Nom2 = "chemindubureau\a.xlsx"
 
    Name Nom1 As Nom2
 
End Sub

Impeccable. Merci et bonne journée.