A rechercher fichiers extension = .DIF dans dossier

On 3 fév, 13:44, Régis MATHIEU <RgisMATH...@discussions.microsoft.com>
wrote:

Bonjour à toutes & tous,
Le pb est le suivant : Je cherche tous les fichiers dont l'extension est
.DIF dans un dossier déterminé qui en contient, je ne sais pas s'il f aut une
instruction qui précise qu'il s'agit de fichiers.DIF à chercher, alor s qu'il
trouve les fichiers.XLS ?
Voici les lignes de commande que j'utilise :

With Application.FileSearch
.NewSearch
.LookIn = Chemin_Mois (il s'agit du dossier où chercher)
.Execute
For Each F In .FoundFiles
Action à exécuter
ActiveWorkbook.Close True
Next F
End With

Merci de votre aide en complétant les instructions !

Hello,

Le code que tu proposes ressemble à du VBA? du VBA Excel? Ta question
trouverait probablement plus de réponses sur un groupe consacré à ces
technologies.
En attendant, voici la méthode en VB (qui marche aussi en VBA, tu peux
donc l'employer si tu le souhaites):

Dim fichier As String
Dim recherche As String
Dim chemin_mois As String

' exemple
chemin_mois = "c:tmp2"

recherche = chemin_mois & "*.DIF"
fichier = Dir$(recherche, vbNormal)
While fichier <> ""
' ici action à effectuer


fichier = Dir$
Wend

Voila, en espérant que cela te soit utile.

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
FAQ VB: http://faq.vb.free.fr/

Bonjour Régis MATHIEU,
Régis MATHIEU a écrit :

Bonjour à toutes & tous,
Le pb est le suivant : Je cherche tous les fichiers dont l'extension est
.DIF dans un dossier déterminé qui en contient, je ne sais pas s'il faut une
instruction qui précise qu'il s'agit de fichiers.DIF à chercher, alors qu'il
trouve les fichiers.XLS ?
Voici les lignes de commande que j'utilise :

With Application.FileSearch
.NewSearch
.LookIn = Chemin_Mois (il s'agit du dossier où chercher)
.Execute
For Each F In .FoundFiles
Action à exécuter
ActiveWorkbook.Close True
Next F
End With

Merci de votre aide en complétant les instructions !

Pour préciser les fichiers à rechercher, on peut indiquer, soit la
propriété :

FileType

avec une constante de type msoFileType

soit la propriété FileName.

Comme la constante msoFileType ne gère pas, à ma connaissance,
l'extension .DIF, tu peux utiliser FileName :

With Application.FileSearch
.NewSearch
.LookIn = Chemin_Mois '(il s'agit du dossier où chercher)
.Filename = "*.dif"
If .Execute > 0 Then
For Each f In .FoundFiles
Debug.Print f
' Action à exécuter
Next f
Else
MsgBox "Aucun fichier trouvé"
End If
End With
ActiveWorkbook.Close True


J'ai déplacé le ActiveWorbook.Close en dehors de la boucle, sinon tu vas
fermer le classeur dès le premier fichier.

PS : il y a un forum spécialement dédié à Excel :
microsoft.public.fr.excel
--
Cordialement,

Jacques.

Bonjour à tous,

Merci de votre aide, je vais corriger ! Bonne journée à vous!

"Régis MATHIEU" a écrit :

Bonjour à toutes & tous,
Le pb est le suivant : Je cherche tous les fichiers dont l'extension est
.DIF dans un dossier déterminé qui en contient, je ne sais pas s'il faut une
instruction qui précise qu'il s'agit de fichiers.DIF à chercher, alors qu'il
trouve les fichiers.XLS ?
Voici les lignes de commande que j'utilise :

With Application.FileSearch
.NewSearch
.LookIn = Chemin_Mois (il s'agit du dossier où chercher)
.Execute
For Each F In .FoundFiles
Action à exécuter
ActiveWorkbook.Close True
Next F
End With

Merci de votre aide en complétant les instructions !

Salutations.

regis.mathieu@aprolis.com