Application.FileSearch sur Office 2007 et 2010

Bonjour à tous.
Tout d'abord tous mes vœux de bonne année et de bonne santé pour la nouvelle année qui commence ;)
Je vous écris car je me retrouve face à une nouvelle difficulté dans ma pratique de VBA.
Un de mes utilisateurs utilise un fichier Excel depuis longtemps sous sa version 2003. Pendant les fêtes, son poste a été remplacé et il est maintenant équipé d'Office 2010 et voilà sa tête à son retour de congés 8O
Ce fichier contient une formule qui d'après mes recherches n'est plus disponible dans les nouvelles moutures de la suite.
Les alternatives que j'ai trouvées me semblent bien complexe avec ajout de module à activer à chaque ouverture du fichier.
Le code d'origine est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim Rep As String Rep = "\\xxxxx\xxxxx " & Year(myDate) & "\" & Month(myDate) & "-12"   ChDir Rep With Application.FileSearch .NewSearch .LookIn = Rep .FileType = msoFileTypeAllFiles .Execute End With With Application.FileSearch Dim a As String If .FoundFiles.Count = 0 Then a = "001" Else If .FoundFiles.Count < 10 Then a = "00" & .FoundFiles.Count + 1 Else a = "0" & .FoundFiles.Count + 1 End If End If   End With Sheets("Feuil1").TextBox1.Text = a & "-" & Month(myDate) & "-" & Year(myDate)

---

Si je comprends le code, il va chercher dans l'explorateur de fichier si un fichier du même nom existe pour nommer le fichier encours avec le numéro suivant.
Je sais pas si c'est clair désolé.
Si l'un d'entre-vous a une idée pour trouver une alternative fonctionnelle et non exhaustive je lui en serais infiniment reconnaissant.
Par avance merci.

Peut-être je peux faire quelque chose avec ça ? :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function ReportFileStatus(filespec) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then msg = filespec & " exists." Else msg = filespec & " doesn't exist." End If ReportFileStatus = msg End Function

---

Mais je ne sais pas trop comment adapter et si VBS tel quel pourrait fonctionner en VBA ?
Merci encore pour ceux qui prendront le temps de me lire :)

Ca dépend de ce que tu veux faire. Le problème avec ta solution est que la recherche n'est pas récursive. Je ne sais pas si elle l'était dans la version précédente.

Je suppose que tu as déjà regardé ce complément ?

De ce que j'ai vu du lien que tu as envoyé justement c'était que c'était assez dense en code et qu'il fallait ensuite activer une référence chaque fois qu'il voudrait activer la fonction.

Le principe de la partie du code que je cherche à aménager si je comprends le fonctionnement c'est de chercher dans un répertoire donné si un fichier existe déjà avec un début de nom à 3 chiffres, s'il n'existe pas utiliser 001, s'il existe le numéro suivant et ainsi de suite.

La fin du code enregistre le fichier créé dans ce même dossier. Ainsi au fur et à mesure du mois, les fichiers se succèdent en "001-01-2012 xxx.xls", "002-01-2012 xxx.xls", "003-01-2012 xxx.xls".

Dans ce cas, la fonction que tu proposes devrait marcher.
Pour le lien, c'est un complément qu'il suffit d'installer une fois sur ton poste.

Ou alors peut-être plutôt quelque chose comme ça mais je sais pas comment adapter non plus je suis pas un expert :(

Code:

---

1 2 3 4 5

Dim myDate myDate = Sheets.Range("J4") Dim Rep As String Rep = "\\xxxxx\xxxxx " & Year(myDate) & "\" & Month(myDate) & "-12" ChDir Rep

---

et / ou

Code:

---

1 2 3 4 5

Dim Fichier As String Fichier=dir(":\temp\*.txt) Do While Fichier <> "" Fichier = Dir Loop

---

puis

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim a As String If .FoundFiles.Count = 0 Then a = "001" Else If .FoundFiles.Count < 10 Then a = "00" & .FoundFiles.Count + 1 Else a = "0" & .FoundFiles.Count + 1 End If End If

---

Encore merci par avance à tous.

Ce que je ne sais pas comment adapter notamment c'est :

filespec = ? Juste le dossier ou un *.xls?
Va-t-il les compter comme avec .FoundFiles.Count
Et comment remplacer le .FoundFiles.Count avec (fso.FileExists(filespec)) ?

Comment les distinguer par rapport au code d'origine de mon premier post je suis un peu perdu erf désolé d'être un nioub à ce sujet.

Je crois même qu'il ne se basait pas sur le nom des fichiers du dossier mais sur le nombre de fichier dans le dossier et de fait appelait le fichier encours avec le nombre de fichier du répertoire +1.

Je pense qu'il comptait juste le nombre de fichiers dans le répertoire, il n'y avait pas d'histoire de nom.
Si je ne me trompe pas, tu dois pouvoir t'en sortir de la manière suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim Rep As String Rep = "\\xxxxx\xxxxx " & Year(mydate) & "\" & Month(mydate) & "-12"   Dim fso As Object Dim fd As Object   Set fso = CreateObject("Scripting.FileSystemObject") Set fd = fso.GetFolder(Rep)   Dim a As String If fd.Files.Count = 0 Then a = "001" ElseIf fd.Files.Count < 10 Then a = "00" & fd.Files.Count + 1 Else a = "0" & fd.Files.Count + 1 End If   Sheets("Feuil1").TextBox1.Text = a & "-" & Month(mydate) & "-" & Year(mydate)

---

T'es un ange ZebreLoup ça fonctionne parfaitement et grâce à toi je vais pouvoir apprendre à utiliser une nouvelle fonction, merci mille fois !! :ccool: