Discussion :

[nonesofar]

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.

[parmi]

Bonjour,

Il te faudrait faire une boucle
Je n'ai pas testé, mais ça devrait ressembler à ça

Code :

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

1
2
3
4
5
6
7
Chemin = "C:\Users\ho.rgrange\Documents\test vba\forum_test fait par moi\test_vrac\"
Fichier = "test"
For i = 1 to 100  'à modifier au besoin
   if dir(chemin & fichier & i & ".xlsx") = "" then  'il n'existe pas
      MonFichier = Chemin & fichier & i & ".xlsx"
   end if
Next

[nonesofar]

Hello parmi,

Oui techniquement cela fonctionne bien merci pour l'idée de la boucle.

Code :

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

1
2
3
4
5
6
 
For i = 100 To 1 Step -1   'à modifier au besoin
   If Dir(Chemin & fichier & i & ".xlsx") = "" Then  'il n'existe pas
      MonFichier = Chemin & fichier & i & ".xlsx"
   End If
Next

Mais il vaut mieux écrire 100 à 1 la boucle sinon ça sauvegarde test100, test 99 etc...

Super

Merci et bonne journée

[parmi]

En fait ça peut être dans l'autre sens de 1 à 100 mais en mettant un Exit For (que j'ai oublié...)

Code :

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

1
2
3
4
5
6
7
8
Chemin = "C:\Users\ho.rgrange\Documents\test vba\forum_test fait par moi\test_vrac\"
Fichier = "test"
For i = 1 to 100  'à modifier au besoin
   if dir(chemin & fichier & i & ".xlsx") = "" then  'il n'existe pas
      MonFichier = Chemin & fichier & i & ".xlsx"
      Exit for  'ou Exit Function si dans une Function
   end if
Next

[nonesofar]

Yes ça marche bien aussi comme ça .

Merci de ton aide en tout cas.

A bientot.