Utilisation instructions ChDir et Dir sous Excel 2003
Bonjour
j'ai un petit souci avec le comportement des 2 instructions ChDir et Dir (avec excel 2003)
J'ai en effet créé un excel (incluant macro) dans le répertoire suivant:
D:\_BENE_TRAVAIL_2012\____CHANTIER 2012\_travail-bene\CHANTIER
Pas de pb d'exécution.
MAIS Si je déplace le classeur sur C:\_tmp\CHANTIER par exemple
ce qu'il fait est incohérent au niveau de la macro :
l'instruction:
ChDir ActiveWorkbook.Path
me donne bien C:\_tmp\CHANTIER (le répertoire ou je me trouve)
mais lorsque je fais: nf = Dir("*.xls")
il me donne un nom de fichier excel qui ne se trouve absolument pas à cet endroit
Une idée ?
D'avance merci et bonne année à tous
Bonsoir,
Tiré de l'aide d'Excel :
[quote]........
Syntaxe
Dir[(pathname[, attributes])]
Vous devez définir l'argument pathname lors du premier appel de la fonction Dir, ou une erreur se produit. Si vous indiquez des attributs de fichier, l'argument pathname doit être présent.
[/quote]
Donc, à la place de faire un ChDir, essaie ainsi :
Sub essai()
Dim LePath As String, NomFich As String
LePath = ActiveWorkbook.Path & "\"
NomFich = Dir(LePath & "*.xls")
Do While NomFich <> ""
MsgBox NomFich
NomFich = Dir ' suivant
Loop
End SubPar exemple.....
Bonne soirée