recuperer tous les fichiers d'un repertoire en variable

Question

bonjour à tous
dans un programme excel j'envoie des mail en automatiques mais j'aurai voulu joindre
tous les fichiers d'un repertoire
je connais l'instruction     objEmail.AddAttachment ("C:\ENVOI\fichier.xxx")

mais serait il possible d'aller lire automatiquement un repertoire, memoriser en variable les noms de fichiers pour les inserer dans ma macro
d'envoi de mail

merci bien pour vos réponses

Denis

gbinforme · Answer

Bonjour, 

En utilisant la fonction Dir tu peux le faire :

fichier = Dir(ton répertoire)
while fichier <> ""
  ton traitement
  fichier = Dir
wend

droussel · Answer

merci de la réponse
la syntaxe de Dir c'est quoi :

fichier = dir("c:\ENVOI\") ?

merci

Recuperer tous les fichiers d'un repertoire en variable

2 réponses

Discussions similaires

Newsletters