Fonction Ubound [Résolu]

Signaler
Messages postés
18
Date d'inscription
mardi 17 février 2004
Statut
Membre
Dernière intervention
13 juillet 2010
-
cs_SEB71
Messages postés
18
Date d'inscription
mardi 17 février 2004
Statut
Membre
Dernière intervention
13 juillet 2010
-
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.

2 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
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
Messages postés
18
Date d'inscription
mardi 17 février 2004
Statut
Membre
Dernière intervention
13 juillet 2010
1
Merci c est super sa marche

>SEB<