Fonction Ubound [Résolu]

Messages postés
18
Date d'inscription
mardi 17 février 2004
Dernière intervention
13 juillet 2010
- - Dernière réponse : cs_SEB71
Messages postés
18
Date d'inscription
mardi 17 février 2004
Dernière intervention
13 juillet 2010
- 27 mars 2009 à 09:06
Bonjour

J ai un petit soucis avec l'instruction Ubound :

Dim ListeFichiers As Variant

If SICAV = 1 Then
Encore:
CpF = 3
Cpf1 = 2


'Modification du chemin par defaut


Rep = ("C:\Documents and Settings\UserStd\Bureau\Verif Transaction\Transaction AVANT")
ChDir Rep: Repert = Rep


' affichage de la boite de dialogue
ListeFichiers = Application.GetOpenFilename(filefilter:="Fichiers Texte (*.txt),*.txt", FilterIndex:=2, Title:="Liste des fichiers SIC AVANT", MultiSelect:=True)


Sleep w
'si l'utilisateur a selectionner aucun fichiers
If UBound(ListeFichiers) = 0 Then MsgBox ("Un fichier doit être selectionnné"): GoTo Encore


'si l'utilisateur a selectionner au moin un fichier
If UBound(ListeFichiers) <> 0 Then

Le pb se situe sur la ligne de code souligné, mais j'arrive pas à trouvé.

Merci d'avance.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
60
3
Merci
http://support.microsoft.com/kb/161930/fr

si on n'a rien séléctionné, ListFichier (Variant) contient False, et non un tableau de fichier

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 91 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
18
Date d'inscription
mardi 17 février 2004
Dernière intervention
13 juillet 2010
1
0
Merci
Merci c est super sa marche

>SEB<
Commenter la réponse de cs_SEB71

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.