Fonction Ubound [Résolu]

cs_SEB71 18 Messages postés mardi 17 février 2004Date d'inscription 13 juillet 2010 Dernière intervention - 26 mars 2009 à 15:41 - Dernière réponse : cs_SEB71 18 Messages postés mardi 17 février 2004Date d'inscription 13 juillet 2010 Dernière intervention
- 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
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 26 mars 2009 à 15:52
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

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 124 internautes ce mois-ci

Commenter la réponse de Renfield
cs_SEB71 18 Messages postés mardi 17 février 2004Date d'inscription 13 juillet 2010 Dernière intervention - 27 mars 2009 à 09:06
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.