Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Pb avec ouvrirfichiers = Application.GetOpenFilena

  • Initiateur de la discussion Pascale
  • Date de début
P

Pascale

Guest
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
 
D

Denis

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…