[GetOpenFilename]ne montrer que les fichiers du type FinDenom.Extension

Version imprimable

25/05/2007, 15h54
mordrhim

[GetOpenFilename]ne montrer que les fichiers du type FinDenom.Extension

Bonjour,

Tout d'abord tout ce qui est de l'aide en ligne, je ne peux pas y avoir accès. donc :f1: niet et autre non plus.

En utilisant l'application GetOpenFilename, j'aimerais ne permettre le choix pour ouverture de fichiers se terminant uniquement par "Une Fin".xls

Je pensais utiliser la commande suivante :

Code:

MyFileToOpen = Application.GetOpenFilename("Fichiers évolution commandes (*_CdesEDI.xls), _CdesEDI.xls")

mais ca ne fonctionne pas.

D'où la question (en fait deux .. ou trois peut être) :
Est-il possible de n'afficher que les fichiers finissant par "UneFin".Extension via GetOpenFilename ?

Sinon comment faire autrement ?

Et la question bonus :
En poussant un peu plus, est-il possible de ne permettre un choix d'ouverture que pour les fichiers commencant par "UnDebut" et se finissant par "UneFin".extension.

Pour exemple, je vais ouvrir un fichier nommé EvolutionAAAA_CdesEDI.xls où AAAA est une année.

J'avais ça dans mes archives, tu peux tester...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ListerLesFichiers()
Dim chemin,i
Chemin = "D:\xls"
With Excel.Application.FileSearch
   .NewSearch
   .LookIn = Chemin
   .SearchSubFolders = True
   .FileName = "*.xls"
   If .Execute() > 0 Then
      For i = 1 To .FoundFiles.Count
         MsgBox .FoundFiles(i)
      Next i
   End If
End With
 
End Sub

Pour n'ouvrir que les fichiers commençant par "...."

Code:

1
2
If instr(lcase(.FoundFiles(i)), lcase(LeDebut & année))= 1 then _
Workbooks.open filename:= Chemin & "\" & FoundFiles(i)

que tu colle à la place du msgbox ;)
A+

25/05/2007, 16h37
mordrhim

@Ouskel :

merci ce code va me servir, mais ce que j'aimerais avoir (pour ne pas perturber les utilisateurs conservateurs) c'est une fenêtre comme celle donné par GetOpenFilename, mais ne donnant que la liste des fichiers voulu.

or avec ce que ton petit bout de code fait, je ne vois pas trop comment le faire. (à part avec un userform mais c'est pas joli tout ca)

mici d'avance
25/05/2007, 16h42
ouskel'n'or

Ben si, un petit userform avec une liste dedans, c'est joli si tu mets un joli fond et des jolies couleurs ;)
25/05/2007, 16h52
mordrhim

oui moi ca me choque pas ..

cahier des charge = NO Usuerform !

donc sniff ^^

enfin bon, je mets le sujet en résolu car j'ai fait en sorte que s'il prenait pas un fichier comme il faut la macro tappe sur l'utilisateur.
25/05/2007, 16h55
ouskel'n'or

Tu n'a jamais déguisé un userform en boîte de dialogue ? Alors tu devrais essayer, regarde là, z'y verraient que du feu :mouarf:
Bon WE
25/05/2007, 16h58
alsimbad
tu peux choisir le type de fichier visible par l'utilisteur
Code:

1 2 Dim stFichier stFichier = Application.GetOpenFilename("fichier type (*.xls), *.xls")
mais pas le nom des fichier, il verra tous les fichiers xls( ou autres bien sur). l'aide est assez claire sur ce coup là

Citation:

Tu n'a jamais déguisé un userform en boîte de dialogue ?

non j'apprends le VBA depuis 2 mois et encore par taton, utilisation des macros d'excel et developpez.net ^^

Citation:

Envoyé par alsimbad

l'aide est assez claire sur ce coup là

ca je le sais déja, mais si tu as lu mon message en entier, je ne peux pas utiliser l'aide que ce soit celle d'excel ou celle en ligne.

du coup j'ai fait ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub test()
 
    MsgBox ("Ouvrir le fichier 'Evolution des commandes' (de la forme Evolution****_CdesEDI.xls)")
    NomCompletFichier = ""
    Do While NomCompletFichier = ""
        NomCompletFichier = Application.GetOpenFilename("Fichiers Evolution (*.xls), .xls")
        If NomCompletFichier = "" Then
        ElseIf NomCompletFichier <> Empty Then
                Myarray = Split(QuelFichier, "\", -1, 1)
                Rang = 0
                On Error GoTo Suite
                Do
                    NomFichier = Myarray(Rang)
                    Rang = Rang + 1
                Loop
    '----------------------------------------------------------------
Suite:
            If Left(NomFichier, 9) <> "Evolution" Or Right(NomFichier, 12) <> "_CdesEDI.xls" Then
                MsgBox ("Choisir le bon fichier")
            End If
        ElseIf Not NomCompletFichier Then 'Annuler rend "False"
            MsgBox ("Il est obligatoire de choisir un fichier Evolution (de la forme Evolution****_CdesEDI.xls)")
            NomCompletFichier = ""
        End If
    Loop
    Workbooks.Open (NomCompletFichier)
End Sub

je sais c'est pas forcément bon