Discussion :

[StephanieL]

Bonjour à tous,

Je débute en VBA, j'aurais besoin de savoir les étapes de transfert de mail Outlook dans une classeur Excel existant. En suite, il faut cherche des mots dans les mails que je dois classer dans une feuille Excel.

J'ai essayé quelques idées par ci par là:
-Mail Outlook mis dans un fichier .txt
-Workbooks.OpenText Filename
-.Find
Je ne sais pas ce que peut faire VBA dans sa globalité, donc si quelqu'un à une ligne de conduite à suivre, ça m'aiderai déjà beaucoup.

Merci
Stephanie

[Fvandermeulen]

Salut et bienvenue,

Pour être franc ton explication n'est pas très claire, du moins assez complète...
Qu'as tu déjà fait (si tu as déjà un code) et qu'est-ce qui ne foncitonne pas?

Sinon, voici deux codes pour te mettre sur des pistes, le premier effectue une recherche mais sur un fichier Excel, le deuxième montre comment importer un fichier texte dans Excel.

Je te laisse voir ce qui peut t'intéresser dans ces deux codes, fais des tests et en fonction des problèmes reviens sur le Forum.

Recherche sur tous les fichiers Excel contenu dans le dossier spécifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub TestRech()
 
Const Rep = "C:\My Documents\" ' le répertoire contenant les fichiers..
Dim TheFile As String, MyFile As String, ElRech As String
Dim MaRech As Range
 
ElRech = Sheets("sheet1").Range("A2") 'Défini l'élément à rechercher
 
TheFile = Dir(Rep & "*.xls")   'Listing des fichier Excel...
While TheFile <> "" 'Tant que non vide
    Workbooks.Open (Rep & TheFile) 'Ouverture du fichier
    MyFile = ActiveWorkbook.Name 'Affecte le nom du fichier
        With ActiveWorkbook.Sheets("sheet1").Cells 'Pour la feuille ... et la plage ...
            Set MaRech = .Find(ElRech, LookIn:=xlValues) 'Recherche l'élément dans la zone définie
                If Not MaRech Is Nothing Then 'Si n'est pas rien alors
                Workbooks("TonFichier.xls").Sheets("Sheet1").Range("B2") = MyFile 'Affecte à la cellule le nom
                End If
        End With
    ActiveWorkbook.Close (False) 'Ferme sans sauver
    TheFile = Dir 'Fichier suivant
Wend
 
End Sub

Import d'un fichier Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ImportTxtNew()
Dim ligne As String, strFullName, i As Long, NbWs As Long
Dim Deb As Variant, Fin As Variant, Diff As Date
 
    Worksheets.Add
    strFullName = Application.GetOpenFilename("Fichiers textes (*.txt),*.txt", , _
    "Sélectionnez un fichier :")
 
    Open strFullName For Input As #1
 
    Do While Not EOF(1)
            Do While (Not EOF(1)) And (i < 65500)
                i = i + 1
                Input #1, ligne
                Cells(i, 1).Value = ligne
            Loop
        If i < 65500 Or EOF(1) Then Exit Do
            i = 0
            Worksheets.Add
    Loop
    Close #1
 
End Sub

Bonne continuation

[StephanieL]

Je te remercie pour les pistes.
Je regarde ça.

Stéphanie