Discussion :

[justin92330]

Bonjour,

Mon programme utilise des fichiers excel comme base de donnée.

Il recupere les données en fonctions du noms des fichier excels

exemple :
mon fichier excel s'appelle 2007-06-DAFRH-CPTA-NH.xls

Actuellement j'ouvre ce fichier et je récupère son nom dans la barre du haut.
Si la date correspond (2007-06) a ma recherche, je le traite.
Une fois traité je le referme.
Si la date ne correspond pas, je le referme aussitot.

D'après mon code, je suis obligé d'ouvrir tous les fichiers pour trouver celui qui m'interresse.

Ce qui me faudrait c'est pouvoir récupérer le titre du fichier sans avoir besoin de l'ouvrir, ce que "fluidifirait" considérablement mon programme

Merci de votre aide

Bien cordialement

[ouskel'n'or]

Tu as ça dans la FAQ-Excel http://excel.developpez.com/faq/inde...rietes#LireDSO au chapitre "Comment lire Les propriétés prédéfinies d'un classeur fermé ? " Tu remplaces simplement "Author" par "Title"

[justin92330]

Merci pour cette reponse.

J'ai pas encore testé mais je ne trouve pas cette librairie DSO oleDocument Properties Reader 2.0


Merci de ton aide


Cordialement

[ucfoutu]

Re...

Et je ferais même plutôt le contraire !
Je rechercherais directement avec Dir et un filtre correspondant à la recherche (par exemple : "2007-6*.xls" si je recherche sur l'année 2007 et le mois de juin)

[justin92330]

Ben !
Je ne comprends pas la nécessité de l'ouvrir pour y lire dans la barre de titre ce que tu as dans le chemin !

Je souhaite juste récupérer dans une variable le nom du fichier.xls sans l'ouvrir.

Si t'as une idée je suis preneur.

Merci

[ouskel'n'or]

Alors ce n'est pas le "Titre" que tu cherches mais le nom du fichier
Regarde à Dir dans l'aide en ligne. Tu trouveras en exemple procédure pour faire ce que tu veux. Remplace simplement vbDirectory par le bon argument (vbNormal en 2003 mais pour 2007 il est possible qu'il ait changé).

[ucfoutu]

Tout simplement :

Code :

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

1
2
3
4
5
repertoire = "d:\monoutil"
  tonannee = "2007"
  tonmois = "06"
  toto = Dir(repertoire & "\" & tonannee & "-" & tonmois & "*" & ".xls")
  MsgBox toto

[ucfoutu]

mon fichier excel s'appelle 2007-06-DAFRH-CPTA-NH.xls

Actuellement j'ouvre ce fichier et je récupère son nom dans la barre du haut.
Si la date correspond (2007-06) a ma recherche, je le traite.
Une fois traité je le referme.
Si la date ne correspond pas, je le referme aussitot.

D'après mon code, je suis obligé d'ouvrir tous les fichiers pour trouver celui qui m'interresse.

Ben !
Je ne comprends pas la nécessité de l'ouvrir pour y lire dans la barre de titre ce que tu as dans le chemin !