Sujet Précédent Sujet Suivant

Recuperer tous les fichiers d'un repertoire en variable

Fermé
droussel Messages postés 2 Date d'inscription samedi 8 juin 2013 Statut Membre Dernière intervention 8 juin 2013 - 8 juin 2013 à 07:37
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 8 juin 2013 à 09:50
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

2 réponses

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 690
8 juin 2013 à 09:24
Bonjour,

En utilisant la fonction Dir tu peux le faire :

fichier = Dir(ton répertoire)
while fichier <> ""
ton traitement
fichier = Dir
wend
0
Réponse 2 / 2
droussel Messages postés 2 Date d'inscription samedi 8 juin 2013 Statut Membre Dernière intervention 8 juin 2013
8 juin 2013 à 09:47
merci de la réponse
la syntaxe de Dir c'est quoi :

fichier = dir("c:\ENVOI\") ?

merci
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 690
8 juin 2013 à 09:50
oui
0

Discussions similaires

Extraire le contenu de plusieurs fichiers
politicus -
Syl_tls1 -

11 réponses
comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses