Application.FileSearch sur Office 2007 et 2010 [Résolu]

ffs69 13 Messages postés vendredi 15 avril 2011Date d'inscription 11 janvier 2012 Dernière intervention - 11 janv. 2012 à 14:54 - Dernière réponse : ffs69 13 Messages postés vendredi 15 avril 2011Date d'inscription 11 janvier 2012 Dernière intervention
- 11 janv. 2012 à 18:28
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 utilisateur 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
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 semble bien complexe avec ajout de module à activer à chaque ouverture du fichier.
Le code d'origine est le suivant :
    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.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
ffs69 13 Messages postés vendredi 15 avril 2011Date d'inscription 11 janvier 2012 Dernière intervention - 11 janv. 2012 à 18:28
3
Merci
Réponse obtenue ici : http://www.developpez.net/forums/d1173622/logiciels/microsoft-office/excel/macros-vba-excel/application-filesearch-office-2007-2010-a/

Merci à tous

Merci ffs69 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de ffs69
ffs69 13 Messages postés vendredi 15 avril 2011Date d'inscription 11 janvier 2012 Dernière intervention - 11 janv. 2012 à 15:34
0
Merci
Peut-être je peux faire quelque chose avec ça ? :
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
Commenter la réponse de ffs69

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.