Discussion :

[hotoh]

Bonjour,
Mon projet est de récupérer les données de Google Calendar dans une feuille excel sous forme de tableau.

Un utilitaire en version gratuite le permet mais ne dispose pas de support pour les macros...(S*pro, W*nC*lendar)

Cependant l'assistance technique du soft à eu l'amabilité de me faire parvenir la fonction adéquate au sein d'une de leur dll.
Il a fallut mettre en Reférence ladite Dll dans la fenêtre VBA, et on a ainsi accès à ses propriétés dans l'explorateur d'objet.

Le code proposé pour lancer la fonction (sans passer par l'interface du plugin) est du type :

Code :

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

1
2
3
4
5
6
7
8
9
10
1)      Set a reference to WinCalendarV3.dll (see VBA tools-> References)
2)      Use code similar to:
 
<
Dim resultObj as Variant
 
Dim aWinCalendarCreator As WinCalendarV3.XLCalendarCreator
 
       Set resultObj = aWinCalendarCreator.insertTable(startDate, endDate, TargetBook.ActiveSheet, doImportOutlook, doImportUserNotes, DoImportGoogle, isLandscape, useAutoFilter, ””)
>

M'inspirant de ce code je crée la procedure suivante:

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
24
25
26
27
<
Sub WCalendar()
Dim startDate As Date
Dim endDate As Date
Dim TargetSheet As Worksheet
Dim ImportOutlook As Boolean
Dim showUserNotes As Boolean
Dim DoImportGoogle As Boolean
Dim isLandscape As Boolean
Dim AutoFilter As Boolean
Dim modeStr As String
 
startDate = "01/09/2010"
endDate = "30/09/2010"
Set TargetSheet =_ Workbooks("Google_IMPORT_WORKING01.xlsm").ActiveSheet
ImportOutlook = False
showUserNotes = False
DoImportGoogle = True
isLandscape = True
AutoFilter = True
modeStr = ""
 
Dim ResultObj As Variant
Dim aWinCalendarCreator As New WinCalendarV3.XLCalendarCreator
Set ResultObj = aWinCalendarCreator.insertTable(startDate, endDate,_ TargetSheet, ImportOutlook, showUserNotes, DoImportGoogle, isLandscape, AutoFilter, modeStr)
End Sub
>

Et voilà mon souci:
L'execution de cette Sub ne génère pas d'erreur et semble effectuer les requêtes nécessaires puisque son temps d'execution prends les mêmes quelques secondes qu'en passant par l'interface graphique du plugin.
(en regardant les variables locates en mode pas à pas toutes sont renseignées sauf ResultObj = Nothing)

Je n'arrive cependant pas à interpréter la variable de retour de la fonction:ResulObj

Pour essayer d'être plus clair:
1/quand j'utilise le Gui, je passe tous les parametres via un userform et son execution genere une nouvelle feuille excel avec toutes les données rapatriées de google calendar.
2/en utilisant la macro je ne constate pas d'erreur mais je ne sais pas comment interpreter la variable ResultObj pour afficher mon resultat dans une nouvelle feuille excel.

Je pense que mon probleme vient du fait que jdébute en vba et que je me mélange les pinceaux!!!

Bref, si quelqu'un arrive à comprendre mon probleme et peut éclairer ma lanterne ce serait super sympa !

[babaothe]

Cependant je n'arrive pas à interpréter la variable de retour de la fonction:ResulObj

ResulObj n'étant pas une "fonction" (comme tu dis), mais un objet, tu ne peux qu'en extraire les valeurs de ses propriétés !

[Pierre Fauconnier]

Salut.

Via l'explorateur d'objets (F2 dans VBE), regarde les propriétés de aWinCalendarCreator et particulièrement la propriété InsertTable. Normalement, l'explorateur d'objets te renseignera sur son type. Il semblerait que ce soit un RANGE

[hotoh]

Merci de vos rapides réponses!!

Alors oui, resultObj semble être un objet de type range:

Description de l'explorateur d'objet:

Code :

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

1
2
Function insertTable(startDate As Date, endDate As Date, [TargetSheetAfter As Worksheet], [importOutlook As Boolean], [showUserNotes As Boolean], [doImportGoogle As Boolean], [isLandscape As Boolean], [AutoFilter As Boolean = Vrai], [modeStr As String]) As Range
    Membre de WinCalendarV3.XLCalendarCreator

Ma question, je le sent, est plus basique:
Une fois "set resultObj = aWinCalendarCreator.insertTable(......)" effectué, comment extraire les propriétés de l'objet 'resultObj' et m'en servir pour créer ma nouvel feuille.

J'ai déclaré resultObj en Variant comme indiqué par le support technique(mais je crois que variant est "compatible" avec range...)

je ne connait pas les propriétés de resulObj....
comment connaitre et exploiter les valeurs des propriétés de resultObj ?

Je suis conscient de mes lacunes sur quelques bases de programmation, mais je fais tout pour essayer de progresser!



Je cherche une piste !
Merci de m'aiguiller !


Je pense que vous allez me dire que les propriétés de resultObj sont celles de Range, mais dans ce cas je ne vois toujours pas comment generer ma nouvelle feuille ! (je doit faire un blocage !!!)