DNouveau venuDrissou35Inscrit le :02/03/2022Dernière activité :16/06/2022 à 11:12Messages4Votes1Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par Drissou35DateAuteur du sujetSujetExtrait du message03/03/2022 à 16:24Pierro31Traitement sous condition (+ filtrage) et incrémentationVoici ton fichier avec une macro qui traite a posteriori les données et inscrit le résultat selon ton cahier des charges. J'ai du le mettre en fichier .xls pour inclure la macro. du peux aussi enregistrer sous .xlsm...03/03/2022 à 14:29Drissou35La méthode 'Folders' de l'objet '_NameSapce' a échouéPublic Sub ExportePiecesJointes(DossierOLChoisi As String, RépertoireDest As String, MarqueLu As StatutLecture) Dim I As Long Dim OK As Boolean Dim Ol As New Outlook.Application Dim Ns As Outlook.Namespace Dim DOSSIER As Outlook.MAPIFolder Set Ns = Ol.GetNamespace("MAPI") For I = 1 To Ns.Folders.Cou...03/03/2022 à 14:24Drissou35La méthode 'Folders' de l'objet '_NameSapce' a échouéMerci pour ta réponse C'est exact j'ai fait une mauvaise recopie Il y avait With Ns et End with bien sûr...02/03/2022 à 17:42Drissou35La méthode 'Folders' de l'objet '_NameSapce' a échouéJ'avais trouvé une procédure pour parcourir Outlook, pour rechercher les répertoires pour une adresse mail donnée, ce qui me permettait ensuite, soir de lire le contenu d'un mail situé dans un répertoire particulier, soit d'enregistrer la ou les pièces jointes sur mon disque dur Suite au crash, de m...Forums