Discussion :

[francky74]

Bonjour

Je viens de créer une boîte de dialogue afin de choisir un fichier à ouvrir.
Mon problèmes se situe au niveau des types de fichiers à ouvrir. Pour l'instant j'arrive à choisir un type de fichier (.xls) mais je souhaiterai à ce qu'il y en ai plusieur.
Donc, dans le menu déroulant du choix du type de fichier, je souhaiterai créer plusieurs lignes .xls, .xlsx, .xlsm et All files (*.*)

Voici ma macro :

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
28
29
30
31
Dim ID
Dim oXL, strFileName,  String
 
ID = InputBox ("ID :", "ID")
 
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire de destination des résultats :", &H1&, "c:\Users\" & ID)
    On Error Resume Next
    Set oFolderItem = oFolder.Items.Item  
    MsgBox oFolderItem.Path
 
 
 
 strFilter = "Tab Separated Text, xls,.xlsx,.xlsm,All Files,*.*"
 intFilterIndex = 0
 strTitle = "Select Import File"
 strButtonText= "Select"
 
 
Set oXL = CreateObject("Excel.Application")
oXL.DefaultFilePath = "c:\"
 
Set WshShell = CreateObject ("wscript.Shell")
CurDir = CreateObject ("WScript.Shell").CurrentDirectory
 
MsgBox CurDir
 
' -- Get the file name from the XL object
strFileName = oXL.GetOpenFileName( strFilter, intFilterIndex, strTitle, strButtonText, False ) 
 
MsgBox strFileName

Voilà, mon problème à l'air de situer sur cette ligne :

Code :

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

strFilter = "Tab Separated Text,*.xls,.xlsx,.xlsm,All Files,*.*"

PS : ceci est un entraînement (pour me préparer à en faire plus sérieusement) est au lieu d'effectuer des actions, j'ouvre des msgBox m'indicant les variables dont je peux me servir par la suite.

Merci

[SfJ5Rpw8]

revoit la construction de ton filtre , pour chaque "options" tu dois avoir une description suivi du filtre et entre les deux une virgule ..

Code :

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

strFilter = "Tab Separated Text (*.txt),*.txt,Fichier Excel (*.xls),*.xls, Excel 2007 (*.xlsx),*.xlsx,Macro Excel 2007 (*.xlsm),*.xlsm,All Files (*.*),*.*"

tu peu aussi regrouper plusieurs extensions sous la même désignation en les séparant par des point-virgules (

Code :

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

strFilter = "Tab Separated Text (*.txt),*.txt,Fichier Excel,*.xls;*.xlsx;*.xlsm,All Files (*.*),*.*"

[francky74]

Yeap !


Ca fonctionne !
J'obtiens plusieurs lignes avec chaques types différents !
Et si je souhaite ouvrir du pdf, j'imagine qu'il me faudra écrire

Code :

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

Fichier PDF, *.pdf