Discussion :

[juluseless]

Bonjour à tous,

J'ai un petit problème de macro alors je viens vous demander de l'aide dans ma mission

J'utilisais auparavant la macro suivante :

Code :

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

1
2
3
4
5
NomFichier = "\" & SsDossier & "\TYPE " & Nom & " " & DateAudit & ".xlsx"
FichierTest = Dir(DossierJour & NomFichier) <> ""
 
If FichierTest = True Then
    Workbooks.Open (DossierJour & NomFichier)

Grâce à ce code je checkais l'existence du fichier et je l'ouvrais si ce dernier était présent dans mon sous dossier.

On me demande d'adapter cette macro car il se peut que la variable date audit soit différente entre les différents sous dossiers.

J'avais donc trouvé sur le net le code suivant qui m'avait l'air simple :

Code :

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

1
2
3
4
5
6
7
8
 
With Application.FileSearch 
.LookIn = DossierJour & "\" & SsDossier
.Filename = "\TYPE " & Nom
    If .Execute > 0 Then 'si au moins un fichier est trouvé
    NomFichier = .FoundFiles(1) 'définit le nom complet du fichier trouvé
    End If
End With

Sur le papier ça m'a l'air juste sauf que ô surprise je suis sur 2010 et Microsoft a eu la bonne idée de faire disparaitre l'objet FileSearch ...

J'ai vu l'option ClasseFileSearch mais comme le fichier est utilisé par beaucoup d'utilisateur dans des locaux différents, j'aimerais trouvé une autre solution...

Pour récapituler j'aimerais un code qui me permet de savoir si un fichier commençant par un certain nom existe dans le dossier. Et si oui, ouvrir ce dernier.
j'ai essayé avec Dir() également mais, sauf si je m'y suis mal pris, je n'ai pas réussi à récupérer le nom du fichier.

Merci d'avance,

[Daniel.C]

Bonjour,

Essaie :

Code :

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

1
2
3
4
5
6
7
Dim Fich As String, Ctr As Long
Ctr = 0
Do
    Fich = Dir(DossierJour & "\" & SsDossier & "\TYPE*")
    If Fich <> "" Then Ctr = Ctr + 1
Loop Until Fich = ""
If Ctr = 1 Then

Si Ctr=1, utilise "Fich" comme nom de fichier

[juluseless]

Merci,

J'ai adapté légèrement le code mais le fond du problème était résolu.

merci beaucoup