Discussion :

[mordrhim]

Bonjour,

Tout d'abord tout ce qui est de l'aide en ligne, je ne peux pas y avoir accès. donc 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 :

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

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.

[ouskel'n'or]

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

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
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 :

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

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+

[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

[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

[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.

[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
Bon WE

[alsimbad]

tu peux choisir le type de fichier visible par l'utilisteur

Code :

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

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à

[mordrhim]

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 ^^

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 :

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
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