Discussion :

[bob456]

Bonjour,

Je travail sur un classeur qui sera distribuer plus tard.
Je travailler avec FIleSearch mais il n'est plus dispo apres Excel 2003.

J'ai donc utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    'Affiche la fenêtre "Ouvrir"
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = chemin
        'Efface les filtres existants.
        .Filters.Clear
        'Définit une liste de filtres pour le champ "Type de fichiers".
        .Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
        'Indique le type d'affichage dans la boîte de dialogue
        .InitialView = msoFileDialogViewDetails
        .Show
    End With

Le problème c'est que cela m'affiche tout les fichiers excel.
Ce que j'aimerais c'est que ça m'affiche tout les fichiers excel ayant dans leurs nom, par exemple, "TEST" et "CACAO"

Merci pour votre futur aide,

[Marc-L]

Bonjour,

FileDialog existait déjà du temps de FileSearch !

Sinon ta variable chemin doit se terminer par un \ afin que cette ligne fonctionne :

.InitialFileName = chemin & "*TEST*;*CACAO*" …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[FraocH]

tu as essayé ?:

Code :

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

.Filters.Add "Classeurs Excel", "*CACAO*.xls; *TEST*.xls; *CACAO*.xlsx; *TEST*.xlsx; *CACAO*.xlsm; *TEST*.xlsm"

[bob456]

Merci de vos réponse

Je vais tester tout ça

PS: Je sais que fileDIalog existait déjà (je l'utilise aussi) mais je préférais fileSearch il était bien plus "malléable"

EDIT : le problème c'est que les nom sont dans une variable de type tableau. et j'aimerais n'ajouter qu'un seul filtre

[Marc-L]

Cela n'a rien à voir …

Pour remplacer FileSearch, il y a toujours la fonction interne Dir qui va très bien pour les cas simples, sinon c'est FileSystemObject …


Sinon pour le filtre il manque les .xlsb, tu peux tous les définir par *.xls* …

[PMO2017]

Bonjour,

Essayez ce bout de code

Code :

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

1
2
3
4
Sub aa()
'/// Adapter le chemin c:\ à votre usage
Application.Dialogs(xlDialogOpen).Show "c:\*test*.xls; *cacao*.xls"
End Sub

[bob456]

Je vous remercie tous pour l'aide apporter

Au final j'ai utilisé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    'On créer le futur nom pour le fichier (qui sera vérifier à la fin dela procédure
    'On ajoute déja le premier nom de territoire puis tout les noms de territoire qui ne finisse pas par .xls
    'En effet ils sont en doublons dans le tableau, seul les nombre pair (et 0) sont à garder (même nom mais dans le .xls)
    nom_cumul_territoire = nom_cumul_territoire & "_" & tableau_territoire(0)
    cumul_territoire = Chr$(42) & tableau_territoire(0) & Chr$(42)
    For i = LBound(tableau_territoire) + 1 To UBound(tableau_territoire)
        If (i Mod 2 = 0) Then
                nom_cumul_territoire = nom_cumul_territoire & "_" & tableau_territoire(i)
                cumul_territoire = cumul_territoire & ";" & Chr$(42) & tableau_territoire(i) & Chr$(42)
        End If
    Next i
 
 
    'Affiche la fenêtre "Ouvrir"
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = chemin & cumul_territoire
        'Efface les filtres existants.
        .Filters.Clear
        'Définit une liste de filtres pour le champ "Type de fichiers".
        .Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
        'Indique le type d'affichage dans la boîte de dialogue
        .InitialView = msoFileDialogViewDetails
        .Show
    End With

Si vous pensez que c'est moche et qu'il faut modifier quelque chose dite le moi

EDIT : Pour FileSystemObject, c'est aussi simple que FileSearch ? Car enfaite,
j'ai un bout de nom du fichier
Je recherche en fonction de ce bout de nom tout les fichiers qui correspondent
Ensuite je les ouvre
Traitement
Je les ferme

Et tout ça , sans que l'user choisisse lui même les fichiers. Avec filesearch tout ce faisait directement

Je sais pas si je suis assez claire

[Marc-L]

A la place de Chr(42) pourquoi ne pas directement utiliser "*" ?

Sinon j'aurais peut-être aussi utilisé l'instruction For Each, la fonction Join …

Pour FSO (pour les cas simples je préfère Dir), voir l'article Manipulation des fichiers en VBA …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Dieu ordonna à Hélène de bien suivre la carte mais Hélène Ségara !

[casefayere]

Bonjour à tou(te)s,

je viens de parcourir ce post et j'ai envie de répondre à cette phrase :

Je travailler avec FIleSearch mais il n'est plus dispo apres Excel 2003.

N'a-tu pas essayé avec classefilesearch ? voir sur le lien ci-dessous

http://silkyroad.developpez.com/vba/classefilesearch/

bonne journée

[bob456]

Merci de vos réponse,

je vais regarder les différentes "fonctions" proposées