VBA pour Excell

[GILBERT]

je recherche comment enregistrer des fichiers dans un répertoire avec chaque fois un nr différent et ceci après avoir recherché le premier enregistrement disponible.
exemple : mon fichier nommé modele.xls est sur c:\dossier
mes fichiers seront enregistrés sur c:dossier\2004 avec le nom suivant
photo_1000_toto.xls photo est un nom pris dans une cellule de mon fichier modele et idem pour toto qui donne l'identité 1000 est le premier nr de mon fichier ensuite on cherche le nr directement dispo pour l'enregistrement suivant ici photo_1001_toto.xls ...
merci et bonnes fêtes de fin d'année à vous et à vos proches

 

[Zon]

Salut,

Voici une fonction qui te retourne les fichiers trouvés dans ton repertoire avec ta doucle condition :

Private Function ChercheFichier(Nomf$, Rep$, SousNomF$, Optional Sourep As Boolean)
Dim I As Long, Tablo
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Rep
.Filename = Nomf & "*.*"
.SearchSubFolders = Sourep
.Execute
ReDim Tablo(.FoundFiles.Count)
For I = 0 To .FoundFiles.Count
If Right(.FoundFiles, Len(SousNomF)) = SousNomF Then Tablo(I) = .FoundFiles(I)
Next I
End With
On Error GoTo 0
ChercheFichier = Tablo
End Function

'Dans ta proc principale, comme tu commences ta numérotation à 1000
'A tester et à adapter, tu peux utiliser les valeurs d'une cellule...


sub Princ
dim Numero as long, T
Numero=1000
T=cherchefichier("Photo","C:\dossier\2004","Toto.xls")
if isarray(t) then Numero=Numero & Ubound(t)+1
Nomfichier="Photo_" & Numero & "_Toto" & ".xls"

Thisworkbooksaveas Nomfichier

end sub



A+++

 

[Zon]

Re,

Oups pour additonner c'est le +

if isarray(t) then Numero=Numero + Ubound(t)+1