Creer une version différente à chaque enregistrement vba.

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:

---

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:

---

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.

Bonjour,

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

Code:

---

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

---

Hello parmi,

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

Code:

---

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

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

Code:

---

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

---

Yes ça marche bien aussi comme ça ;).

Merci de ton aide en tout cas.

A bientot.