Discussion :

[Benjycool]

Bonjour,

Je voudrais savoir comment changer le nom d'un fichier s'il existe deja ??

Je m'explique, dans ma macro, lorsque j'appuie sur le bouton, je crée un fichier monfichier.xls. Mais s'il est deja crée cela m'affiche un message enfin bref, je voudrais faire un test du genre :

Code :

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

1
2
3
Si monfichier.xls exist alors
crée monfichier2.xls
fsi

Et ainsi de suite ...

Cordialement

Benjamin

[sabzzz]

bonjour Benjamin,

Code :

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

1
2
3
4
5
6
7
8
9
On Error Resume Next
Set wk = Workbooks("monfichier.xls")
 If Not wk = Empty Then
   MsgBox "Fichier existe"
 Else
   MsgBox "Fichier n'existe pas"
   Err.Clear
   'traitement
End If

[Didier Gonard]

Bonjour,

un truc du genre :

Code :

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

1
2
3
For I = 1 To 100 'à déterminer
   If Dir(lebonChemin & "monfichier" & I & ".xls") = "" Then ThisWorkbook.saveas etc... : exit for
Next I

cordialement,

Didier

[Benjycool]

Merci, je vais faire un mixte des deux, c'est cool.

Merci encore