Bonjour,

Je suis completement débutant en VBA sur outlook, mais bon en regardant le faq et différente discussion j essai de bidouiller des choses.

J essai d automatiser mon suivi de projet

1 - Je copie le mail concerné avec une macro sur mon DD en choissant le dossier avec la fentre parcourir. OK cela fonctionne grace a different code trouvé sur forum merci
2 - Enregistrer les pieces jointe du mail dans un fichier spécifique - OK

3 - Mise a jour d un classeur excel a la premiere ligne vide avec les infos suvante :

Choix du classeur excel a remplir avec la fenetre parcourir:

Copier dans la premiere ligne vide de la feuil1 colonne B les info suivante.

Bx : Date
Cx : Heure
Dx : De
Ex : CC
Fx : Objet
Gx : Nom PJ

Si plusieurs destinataire ou pj séparer les nom part des points Virgule.


Donc pour cette fonction je n ai trouver que le code du faq

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
Sub EcritDansExcel()
Dim XlApp, XlClas
    'Création d'un Excel
    Set XlApp = CreateObject("Excel.Application")
    'Ouverture du classeur
    Set XlClas = XlApp.Workbooks.Open("C:\Users\Utilisateur\Desktop\essai.xls")
    'Ecriture d'une valeur en A1 de Feuil1
 
    With XlClas.Worksheets("Feuil1")
    Ligne = .Range("A65536").End(-4162).Row + 1
    .Range("A" & Ligne).Value = "toto"
    End With
 
    'Sauvegarde des modifications et fermeture du classeur
    XlClas.Close True
    'On quitte Excel
    XlApp.Quit
    'On libère la mémoire des variables
    Set XlClas = Nothing
    Set XlApp = Nothing
End Sub
Merci de votre aide