Pb avec ouvrirfichiers = Application.GetOpenFilena

[Pascale]

Bonjour àtoutes età tous,

j'ai un petit soucis pour savoir si un fichier au moins a été sélectionné.

je sélectionne mes fichiers comme suit:
ouvrirfichiers = Application.GetOpenFilename _
(fileFilter:='Fichiers Excel et Word (*.xls;*.doc),*.xls;*.doc', Title:='Choix de fichier(s)', MultiSelect:=True)

et le test : If ouvrirfichiers = False then
Exit Sub
End If

si j'ai un fichier je vais à:
For compteur = 1 To UBound(ouvrirfichiers)

A priori logique.Sauf que lorsque je sélectionne un fichier j'ai une incompatibilité de type sur la ligne du 'if', et si j'enleve le test et que je ne sélectionne pas de fichier ou j'annule,j'ai une erreur de type au niveau de la boucle.
je ne comprend pas?

quelqu'un a peut être une idée?

Pascale

 

[Denis]

re Bonjour Pascale et le Forum
je plane complètement sur ton autre post, mais là !
tu utilises 'ouvrirfichiers' comme un tableau (tu demandes le UBound)
if ouvrirfichier() = false irait mieux je pense
ou alors je n'ai vraiement rien compris et je rentre à la maison ! (Lol)
à +
Denis