Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rv outlook vers excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Demouret
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

Demouret

Guest
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 !!! ???
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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 😎
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
873
lesoldat9
L
L
  • Question Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
1 K
lesoldat9
L
J
  • Question Question
XL 2019 Copier données texte Word vers Excel
Réponses
1
Affichages
2 K
fanch55
  • Question Question
XL 2010 VBA Outlook Excel_plusieurs RV dans un même calendrier
Réponses
0
Affichages
1 K
Fred_Garnier
W
  • Question Question
Microsoft 365 Placer un RV dans l'agenda Outlook sur calendrier secondaire
Réponses
4
Affichages
4 K
chich
C
N
  • Question Question
Microsoft 365 completer un formulaire outlook avec VBA excel
2
Réponses
16
Affichages
4 K
Staple1600
  • Question Question
Problème de récupération de données Excel depuis un Word
2
Réponses
28
Affichages
3 K
Dranreb
K
  • Question Question
Microsoft 365 VBA - excel vers Acces
Réponses
0
Affichages
2 K
Keiko
K
B
  • Question Question
XL 2016 Copie tableau excel à Powerpoint case par case VBA
Réponses
0
Affichages
927
BoudinTozz
B
J
  • Question Question
XL 2010 Macro pour supprimer des rdv Outlook en fonction de leur objet via Excel
Réponses
6
Affichages
2 K
jozerebel
J
  • Question Question
XL 2010 Copie de données de 2 classeurs vers un 3ème
2
Réponses
15
Affichages
2 K
C@thy
A
  • Question Question
XL 2010 MACRO - problème création évènement outlook
Réponses
2
Affichages
1 K
AntoineM
A
M
  • Question Question
Suprression des rendez-vous Outlook via Vba excel
Réponses
8
Affichages
4 K
Lone-wolf
D
  • Question Question
Problème pour fermer excel après ouverture access
Réponses
1
Affichages
728
dav911
D
A
  • Question Question
RDV outlook via excel
Réponses
3
Affichages
2 K
Paritec
A
  • Question Question
Deux soucis sur une exportation de date vers outlook (voir dernier post)
2
Réponses
20
Affichages
4 K
Guest
G
A
  • Question Question
Copier/coller d'une feuille excel vers une autre feuille avec des critères
2 3
Réponses
30
Affichages
3 K
Paritec
P
  • Question Question
transferts de valeur d'un dossier vers un excel
Réponses
1
Affichages
968
camarchepas
R
  • Question Question
Macro Excel 2013 qui ne fonctionne pas sous Excel 2010
Réponses
3
Affichages
3 K
systmd
S
O
  • Question Question
Crétation Fchier Excel avec Filtre VBA
Réponses
3
Affichages
987
titiborregan5
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…