Vous êtes nouveau sur Developpez.com ? Créez votre compte ou connectez-vous afin de pouvoir participer !

Vous devez avoir un compte Developpez.com et être connecté pour pouvoir participer aux discussions.

Vous n'avez pas encore de compte Developpez.com ? Créez-en un en quelques instants, c'est entièrement gratuit !

Si vous disposez déjà d'un compte et qu'il est bien activé, connectez-vous à l'aide du formulaire ci-dessous.

Identifiez-vous
Identifiant
Mot de passe
Mot de passe oublié ?
Créer un compte

L'inscription est gratuite et ne vous prendra que quelques instants !

Je m'inscris !

Composants réseau : Testez la nouvelle version bêta d'ICS
(Internet Component Suite)

Le , par pinkiki

0PARTAGES

Citation Envoyé par pinkiki Voir le message
Bonjour,

J'etais en train de faire un petit programme d'envoi de mail sauf que je l'ai programmé sur Excel avant de le mettre sur le VBA d'Outlook. Puis je me suis rendu compte que les commandes ne sont pas les mêmes.

J'aimerais savoir si quelqu'un peut m'aider, il faudrait trouver une variable de Folder (Excel) sur Outlook. Quand je le mets sur outlook, il cherche dans la plateforme d'outlook or j'aimerai que le programme cherche des dossiers sur mon bureau. Vous trouverez ci dessous un morceau du programme. Merci d'avance!!!

Sub ParcourtDossier()
Dim GestionFichier As New Scripting.FileSystemObject
' On commence par définir une variable de type Folder :
Dim Dossier As Folder
Dim SousDossier As Folder
Dim oElement As IXMLDOMElement 'la variable du contenu située entre deux balises
' Cette boucle parcourt tous les dossiers contenus dans F:\Atelier :
a = 1
For Each Dossier In GestionFichier.GetFolder("C:\Users\Laurène\Desktop\Tampon DICT".SubFolders
' On affiche le nom du dossier courant dans la fenêtre exécution :

For Each SousDossier In GestionFichier.GetFolder(Dossier.Path).SubFolders
' On affiche le nom du dossier courant dans la fenêtre exécution :

' Fichier va contenir le nom du premier fichier rencontré dans le SousDossier
Fichier = Dir(SousDossier.Path & "\*.*"
' Tant que Fichier est différent de vide (Tant qu'il y a un fichier à lire, simplement)
While Fichier <> ""
adresse = ""

Une erreur dans cette actualité ? Signalez-le nous !