Merci à tous.
Dim FileToOpen( )
..........
ReDim FileToOpen(1 to 6)
..........
FileToOpen( i ) = Application.GetOpenFilename("Fichier Table (*.txt),
*.txt")
If FileToOpen( i ) <> False Then
.........
End If
.........
Workbooks.Open FileName:=FileToOpen( i )
La valeur de retour de la fonction GetOpenFilename est de type Variant
précisément parce qu'elle doit pouvoir accepter plusieurs types de résultat
possible : booléen (aucun choix), chaîne (un seul fichier), tableau (plusieurs
fichiers).
Tu ne peux pas utiliser une variable d'un type qui n'est ni boolean, ni string
(si multiselect est à false) ni array (si multiselect est à true) sans provoquer
une erreur 91. Et si tu utilises un de ces 3 types au lieu de Variant, tu auras
la même erreur lorsque la valeur de retour ne correspondra pas au type choisi.
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
ph a écrit :