Bonjour,

Je souhaite créer des versions différentes à chaque enregistrement de fichier.

Pour le moment je teste si le fichier existe et si il existe pas alors je souhaite ajouter + 1 au fichier présent. Par exemple si nomfichier = test.xls est présent alors nomfichier = teste1.xls


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
'fonction de test si fichier
Public Function FichierExiste(MonFichier As String)
'par Excel-Malin.com ( http://excel-malin.com )
 
   If Len(Dir(MonFichier)) > 0 Then
      FichierExiste = True
   Else
      FichierExiste = False
   End If
End Function
code pour changer le nom du fichier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
    MonFichier = "C:\Users\ho.rgrange\Documents\test vba\forum_test fait par moi\test_vrac\test.xlsx"
 
    If FichierExiste(MonFichier) = True Then
    Nomfichier + 1
    Else
    Nom fichier
    End If
En vous remerciant par avance,

Cordialement.