Discussion :

[Bonero]

Bonsoir les gars,
SVP j’ai besoin de votre aide par rapport à la méthode GetOpenFilename de vba.merci d avance pour vos reponses.

1ère question :
j’aimerais comprendre pourquoi ma procédure ne marche pas et me renvoie l’erreur de comptabilité de type(erreur 13). Je sais que je peux remplacer la première condition (If NomFichier < > False Then…) par l’une des lignes suivantes et cela réglerait mon problème. le meme code marche tres bien si PlusieurSelection = False. Mais Je precise que je NE veux pas utiliser ces deux options:

• If TypeName(NomFichier) < > "Boolean" Then...
• If IsArray(NomFichier) Then...

Deuxieme question :
À quoi sert concretement et comment utiliser proprement l’argument FilterIndex de la methode GetOpenFilename ?

Voici mon 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
Sub GetOpenFileName_SOS()
 
 
    Dim NomFichier As Variant
    Dim PlusieurSelection As Boolean
    PlusieurSelection = True
    NomFichier = Application.GetOpenFilename(" Tous les fichiers(*.*), *.*", , , MultiSelect:=PlusieurSelection)
 
 
    If NomFichier <> False Then
'je precise que je ne veux pas utiliser les possibilités des 2 lignes suivantes:
    'If TypeName(NomFichier) <> "Boolean" Then
    'If IsArray(NomFichier) Then
 
        MsgBox "OK, un ou plusieurs fichiers ont ete selectionnés."
    Else
        MsgBox "Vous avez Annulé l'operation ou Fermé la boite de dialague."
    End If
End Sub

[rvtoulon]

Bjr,
voici ce que dit l'aide a propos de getopenfilename touche F1:

Si MultiSélection a la valeur True, la valeur renvoyée est un tableau des noms de fichiers sélectionnés (même si un seul nom de fichier est sélectionné)

donc tu ne peux pas utiliser ceci :

Code :

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

If NomFichier <> False Then

car pour lire les noms des fichiers ouvert il faut faire une boucle sur ce tableau.
pour plus d'info dans l'éditeur VBA fait une recherche sur getopenfilename ou regarde ce lien :http://support.microsoft.com/kb/465507/fr
@+

[Bonero]

salut,
merci pour tes explications.
tu as parfaitement raison. on ne peut pas comparer un Array et un Boolean.

cheers.