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