Contenu récent par re4

Bonjour Petite erreur de ma part les fichiers sont des *.msg (fichier Outlook) et non *.eml

Bonjour mromain, je n'ai pas compris comment fonctionne ton fichier (pas de macro et pas de formule visible) powequery, je ne maitrise pas non plus... Le but, si je me suis bien fait comprendre est d'extraire les propriétés d'un ensemble de mail eml d'un repertoire pour les envoyer au service...

Avec la modification du code joint ou un autre Merci beaucoup

Bonjour, Ma connaissance du VBA étant limité, j'ai fait appel à une AI qui m'a proposé le code vba ci-dessous pour extraire les propriétés de tous les mails d'un dossier avec l'extension (*.eml), le fichier csv est bien créé mais il est vide ! Je fais appel à un humain (on a encore une longueur...

Bonjour Merci, bien sûr ,-) ta solution fonctionne, je vais m'en inspirer pour la suite Bonne journée

Bonjour Je n'y arrive pas avec range(cells( Range(Cells(32, 15)).Formula "=IFERROR(VLOOKUP(range(cells(3,6),cells(26,9)),2,False),""0"")" Merci

Merci beaucoup Efgé

Bonjour, Cette formule fonctionne dans une cellule =SIERREUR(RECHERCHEV(L32;$F$3:$I$22;2;FAUX);"0")) Mais pas celle-ci en VBA, ou fais-je l'erreur ? je ne veux pas utiliser Formula R1C1 Range("N32").Formula = "=IFERROR(VLOOKUP(L32,$F$3:$I$26,2,FALSE),""0""))" Autre exemple qui donne comme...

Exact ,-) Ca fonctionne, ça simplifie... Sub csv() Sheets("Mise_en_forme").Visible = True Worksheets("Mise_en_forme").Select Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv") If Fichier <> False Then LireCSV Fichier End If End Sub

Marcel32 Oui, en fait dans une précédente macro je vais chercher des infos dans un fichier excel ( il y a plusieurs répertoires avec un xls et un csv) et avec la macro de notre sujet je vais chercher des données dans un fichier csv qui est dans le même dossier que le précédent, comme vous l'avez...

Bonjour, Merci pour votre retour, erreur de compilation ici GestionFiS

Bonjour Merci pour votre retour. Erreur de complation ici GestionFiS

Voici le code complet et qui fonctionne bien chez moi Option Explicit Sub csv_Import() Sheets("Mise_en_forme").Visible = True Worksheets("Mise_en_forme").Select Dim Fichier As Variant Dim MyPath MyPath = CurDir 'ThisWorkbook.Path Fichier = Application.GetOpenFilename("Fichier CSV...

Bonjour, Merci beaucoup pour toutes ces infos, comme je le disais, je ne suis pas un expert, ma petite modification du code original fonctionne mais à vous lire ça veut dire qu'il vaut mieux utiliser votre procédure Bernard_XLD ? Mais ou insérer l’équivalent de Lire CSV Fichier ? Bonne journée