Bonsoir
Je viens solliciter votre aide au sujet de FileSearch
En effet je désire récupérer dans certains fichiers des informations pour les copier dans un autre
Pour sélectionner les fichiers j'utilise
En retour j'ai bien mes fichiers Hôtesse mais en plus j'ai aussi un fichier que j'avais renommé Ancien Hôtesses
Pourquoi ?
Quelle bêtise ai-je faite ?
J'ai oublié un paramètre ?
Bien sur en renommant 'Ancien Hôtesses' avec un nom différent de 'Hôtesses' le problème disparait
Merci de vôtre aide
Ci-joint la photo du MsgBox (Peut-être pas trop lisible)
Je viens solliciter votre aide au sujet de FileSearch
En effet je désire récupérer dans certains fichiers des informations pour les copier dans un autre
Pour sélectionner les fichiers j'utilise
VB:
Sub Recup()
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path ' Chemin
.Filename = "Hôtesse*.xls" ' Nom des fichiers
.Execute ' Vas-y
' Juste pour savoir
For I = 1 To .FoundFiles.Count
Msg = Msg & Right(.FoundFiles(I), 20) & vbCr
Next I
End With
MsgBox Msg
End Sub
En retour j'ai bien mes fichiers Hôtesse mais en plus j'ai aussi un fichier que j'avais renommé Ancien Hôtesses
Pourquoi ?
Quelle bêtise ai-je faite ?
J'ai oublié un paramètre ?
Bien sur en renommant 'Ancien Hôtesses' avec un nom différent de 'Hôtesses' le problème disparait
Merci de vôtre aide
Ci-joint la photo du MsgBox (Peut-être pas trop lisible)