Fonction UboundRésolu

Question

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.

Renfield · Accepted Answer

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

cs_SEB71 · Answer

Merci c est super sa marche 

>SEB<

Fonction Ubound

2 réponses

Votre réponse

Discussions similaires