Rv outlook vers excel

Demouret · 24 Avril 2011

Bonjour le forum

J'ai trouvé un bout de code que je voudrai personnaliser
Je m explique :

Lorsque je suis sur Outlook avec un rendez vous ouvert à l'ecran je voudrai creer une macro qui m ouvre un classeur excel et me copie les infos du RV sur une feuille excel

jusqu' a l ouverture de mon fichier excel ca fonctionne mais aprés je n'arrive pas a copier les données

voici le bout de code :

Sub openex()

Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Open("C:\Users\Pierre\Documents\te st.xlsx")

Sheets("feuil1").Range("A1") = Subject
Sheets("feuil1").Range("A2") = Location

End Sub

Si une bonne ame pouvait donner un petit coup de main

Merci à vous

ps : je ne trouve pas l icone balise code !!! ???

Demouret · 25 Avril 2011

Re : Rv outlook vers excel

Personne n'aurait une petite idée ?
Merci

Demouret · 26 Avril 2011

Re : Rv outlook vers excel

Bonjour
En trouvant de l'aide sur le net j'en suis là :
______________________________________________
Sub openexcel()

Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Open("C:\Documents and Settings\Administrateur\Mes documents\test.xls")

Sheets("feuil1").Range("A1") = ThisOutlookSession.ActiveInspector.CurrentItem.Subject
Sheets("feuil1").Range("A2") = ThisOutlookSession.ActiveInspector.CurrentItem.Location
Sheets("feuil1").Range("A3") = ThisOutlookSession.ActiveInspector.CurrentItem.Body
Sheets("feuil1").Range("A4") = ThisOutlookSession.ActiveInspector.CurrentItem.Start

Wb.Save
Wb.Close
Set Wb = Nothing
appXl.Quit
Set appXl = Nothing
End Sub
_____________________________________________

mais mon code ne fonctionne qu'une fois sur deux

J'ai le message :
"erreur d execution 1004
la methode charts de l objet global a echoue"

Quelqu'un aurait une idée ? Je rame ...

Merci

JNP · 26 Avril 2011

Re : Rv outlook vers excel

Bonjour Demouret ,
Il y a au moins une erreur, tu ne précises pas que Feuil1 appartient à Wb ...

Code:

With ThisOutlookSession.ActiveInspector.CurrentItem
Wb.Sheets("feuil1").Range("A1") = .Subject
Wb.Sheets("feuil1").Range("A2") = .Location
Wb.Sheets("feuil1").Range("A3") = .Body
Wb.Sheets("feuil1").Range("A4") = .Start
End With

La balise Code, c'est le # au dessus de la fenêtre en mode avancé .
Bon courage

Demouret · 26 Avril 2011

Re : Rv outlook vers excel

Ca à l'air de fonctionner nickel !!
Merci JNP
Bisous dans les Vosges ;-)

JNP · 26 Avril 2011

Re : Rv outlook vers excel

Re ,

Demouret à dit:
Bisous dans les Vosges ;-)

Pierre, c'est un prénom féminin ?

Pourquoi pas, mais, ça surprend un peu ...

Bonne suite

Rv outlook vers excel

Demouret

XLDnaute Junior

Demouret

XLDnaute Junior

Demouret

XLDnaute Junior

JNP

XLDnaute Barbatruc

Demouret

XLDnaute Junior

JNP

XLDnaute Barbatruc

Pièces jointes

Discussions similaires