Discussion :

[m.valere]

Bonjour à tous,

Je suis habituellement analyste programmeur en Cobol - CICS. Dans le cadre d'un inter-contrat, je dois réaliser des modifications sur les macros VBA d'une base de données MS ACCESS (2003) en local.

Je rencontre des difficultés à compter le nombre de fichiers Excel contenus dans un répertoire donné (local). La macro fonctionne sur tous les ordinateurs d'une plate-forme à l'exception de l'un d'entre eux. J'en déduits que le problème n'est pas lié au code mais j'éprouve des difficultés à trouver d'autres pistes.

Je suis donc à la recherche d'éléments pouvant m'orrienter.

Description du problème :

Réponse normale : nombre de fichiers trouvés = 10
Réponse anormale : nombre de fichiers trouvés = 0

Je ne comprends pas pourquoi les fichiers ne sont pas repérés uniquement sur l'un des ordinateurs alors qu'ils sont présents et dans le bon répertoire sur ce poste.

Extrait du code VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
' Declaration du repertoire de recherche 
Dim NOM_REP As String
NOM_REP = "C:\Base"
'
Set ext = Application.FileSearch
'
With ext
'
' Initialisation des criteres de recherche
.NewSearch
' Repertoire de recherche : C:\Base
.LookIn = NOM_REP
' fichier(s) recherche(s) : tous fichier Excel
.FileName = "*.xls"
' Demarrage de la recherche
.Execute
'
    'Affichage du nombre de fichier trouves
MsgBox(.foundfiles.Count)
'
End With
'

Je vous remercie par avance pour votre aide.

[Tonioyo]

Bonsoir,

Je pense que ce serrai plus facile pour toi si tu cherchais du côté de la méthode Dir qui accèpte en paramètre une extention et retourne - de mémoire - un tableau de string. Il faut consulter l'aide en ligne du VBE grace à la touche F1.

[m.valere]

Bonjour Tonioyo,

Je te remercie beaucoup pour ton aide, j'ai testé la fonction Dir[(pathname[, attributes])] mais elle ne fonctionne pas non plus sur l'ordinateur qui me pose problème.

je ne vois vraiment pas d'où peut venir le problème !

Merci.

[Tonioyo]

Re bonjour,

Je pense avoir une idée sur ce problème, je ne sais pas si c'est la solution à ton problème mais peut etre vue que c'est une erreur courrante.

Vérifie bien (dans l'explorateur) que les extentions de fichier ne soient pas cachées ? Pourquoi j'écrit ça et bien simplement que si il ne trouvent pas les fichier xls c'est peut-etre que leur extention est .xls.xls out xls.txt ou xls.doc , etc ... ce genre de chose peut influenceer la recherche de fichiers.

Les deux fonctions celles que tu as proposé et la mienne utilise la recherche de fichier système donc essaye de te pencher sur le système la solution est surement de ce coté là.

[Access Newbie]

Bonjour,

J'ai deja eu ce probleme, pouvez vous nous donner le contenu du LookIn apres avoir passé la ligne en mode debug ?

Perso, j'ai résolu le problème en réinstallant Access.

[Tofalu]

Vous référencez bien la même librairie Office sur cet ordinateur ?