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 de mon rendez-vous selectionné vers ma feuille excel
voici le bout de code :
Si une bonne ame pouvait donner un petit coup de main
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 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
Merci à vous
Partager