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 !!!)

[Pierre Fauconnier]

Tu devrais pouvoir utiliser les propriétés Parent (objet worksheet qui supporte la plage) et Address, mais il faut que ton objet ne soit pas Nothing. S'il est nothing, c'est que la fonction InsertTable n'a pas pu créer un objet Range valide. Et comme c'est une boite noire, nous ne savons pas dire ce qui se passe dedans.

Il faut donc t'assurer que tes paramètres sont tous bien définis, et que ton calendrier Google a bien été défini via les options de la barre d'outils de l'addin.

Tu pourrais essayer d'utiliser le code en modifiant ou en supprimant des paramètres (dont le lien vers le calendrier Google) pour voir si InsertTable renvoie une erreur ou pas.

[hotoh]

Wow, merci Pierre tout cela est pertinent!

En effet, j'ai constaté dans la fenêtre 'Variables Locales' du VBE que ma variable resultObj est Nothing ! Merci de me faire comprendre qu' InsertTable a échoué !(n'ayant aucun message d'erreur je ne savait que comprendre)
Sacrée boite noire!
Je pense avoir défini mes paramètres convenablement en regard de la définition de InsertTable dans l'eplorateur d'objet.

Le calendrier Google a bien été defini via l'addin...

Je bloque!

Je garde espoir pour une idée géniale !!!!



Je n'avais pas vu tes dernieres ligne Pierre.
je n'ai laissé que les paramètres obligatoires(startdate,enddate) et j'obtiens toujours resultObj est Nothing !

[Pierre Fauconnier]

Via Word, je n'ai pas de soucis pour récupérer l'agenda (avec l'ihm, je n'ai pas essayé en VBA).

Avec Excel, la première récupération de l'agenda fonctionne, au moment ou on définit l'adresse de l'agenda Google.

Si je teste ton code par la suite, l'objet resultObj est nothing.

Si, avant ou après l'essai en VBA, je tente de rafraîchir l'agenda, j'ai un problème "utilisation incorrecte de Null" dans la "boite noire"... et je dois désinstaller WinCalendar puis le réinstaller pour pouvoir l'utiliser.

Autant te dire que je considère donc ce produit comme instable sous Excel (version 2010) et donc, inutilisable, soit par l'IHM soit par code.

As-tu testé l'ensemble de l'outil? Si oui, fonctionne-t-il de façon satisfaisante? Si oui, sur quelle version d'Excel?

[hotoh]

Oui oui il y a un probleme lors du deuxieme lancement !

L'assistance technique 'planche' dessus (qu'ils disent!)
Le probleme viendrait de la gestion des virgules (1.2345 ou 1,2345) dans leur code.(US proof only for the moment!)

Solution pour ma part:

effacer: [HKEY_CURRENT_USER\Software\VB and VBA Program Settings\WinCalendar\FormInsertCalendar]

en creant cette clé (.reg) avec un "-" avant HKEY_
ex: [-HKEY_CURRENT_USER\Software\VB and VBA Program Settings\WinCalendar\FormInsertCalendar]

a utiliser avec une macro du style:

Code :

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

1
2
3
Sub Efface_Registre()
    Shell "regedit -s  C:\GOOGLE2EXCEL\resetwincalendar.reg", 0
End Sub

Pour moi c'est ok !

[Pierre Fauconnier]

La clé du registre n'existe pas chez moi.

Vu ce que tu évoques, j'ai encore moins envie de "jouer" avec ce truc tant qu'il n'est pas plus stable, mais je ne serais pas étonné que tes ennuis viennent de ce problème sur lequel "ils travaillent".

[hotoh]

En effet les choses ne sont pas simples !
mais en utilisant la macro efface_registre et
via le gui du plug seulement,j'arrive a avoir une utilisation satisfaisante du soft!

La cerise sur le gateau serait de pouvoir interfacer ce soft dans des userform,code,etc.

Ou, de manière ultime,
serait-il possible de montrer la fenêtre "Calendar Maker" du menu de l'addin via VBA ? Je n'ai pas trouvé!

Merci pour ton intérêt!

Une autre piste: Gcal2Excel (je n'ai encore pas mis les pieds !)

[Pierre Fauconnier]

Ben, je veux bien utiliser ta routine pour supprimer la clé, mais vu qu'elle n'est pas présente dans le registre sur mon pc, je ne vois pas trop comment je pourrais faire cela.

Si tu vas dans l'autre soft et que tu peux automatiser quelque chose, ce serait chouette de le signaler dans cette discussion.

[hotoh]

Plus précisément, tu peux effacer toute la clé :
"Another option is to reset the WinCalendar Registry settings after each run ('Power' PC Users only). For this case try deleting registry key:
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\WinCalendar"

j'ai essayé d'affiner un peu...(chez moi)

thanks again!


Au lieu de tout effacer , il faut au moins essayer de garder [FormGoogleICAL]
qui contient le parametrage des calendriers google....

[Pierre Fauconnier]

Pour lancer la fenêtre permettant de définir le calendrier, tu peux utiliser

Code :

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

SaproSystems_WinCalendar.ExcelCalendarInsert

après avoir coché la référence à SaproSystems WinCalendar (!, c'est une autre référence que celle renseignée par le support du produit)

[hotoh]

MERCI !!!!

Le fait de pouvoir lancer cette fenêtre à ma guise c'est déjà super bien !
A défaut de gérer ça de A à Z tu m'aides beaucoup!
Je suis beaucoup moins bloqué !

Il reste un Graal !
Je continue mes investigations !

Je dirait bien que le sujet est "pour une bonne moitié résolu" !

[Pierre Fauconnier]

En ajoutant la ligne d'initialisation, il crée la feuille (vide )... Peut-être un progrès...

Code :

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

1
2
3
Dim aWinCal As New WinCalendarV3.XLCalendarCreator
aWinCal.Init ThisWorkbook
Set ResultObj = aWinCal.insertTable(startDate:=startDate, endDate:=endDate, DoImportGoogle:=True)

[hotoh]

mais toujours avec ResultObj is Nothing ?

[hotoh]

Ce soir au lieu d' omettre les paramètres optionnels (, , , , ,)
je les ai passés en False.

resultObj a généré de lui même une nouvelle feuille avec entête !
resultObj N'est Pas Nothing !

BEMOL: le classeur semble être verrouillé après ce 1/2 succès, impossible d'effacer une feuille !


buggy buggy buggy or am i silly ?

[Pierre Fauconnier]

J'avais constaté le même problème, même avec l'objet en nothing...

J'ai pensé à une autre solution sans passer par ce programme, mais c'est vite un peu complexe au niveau de la gestion des heures (UCT versus heure locale)

[hotoh]

Merci de ce nouveau feedback,

Les choses commençant à être vraiment alambiquées, je fait une pause concernant resultObj et vais continuer en utilisant le userform dont tu m'as donné la commande!

J'ai informé l'assistance technique de mes déboires et je garde quelques espoirs en ce soft!

Tu m'as l'air aussi sur d'autres pistes, le sujet t'intéresse-t-il donc autant que moi ?
N'hésite pas à partager tes découvertes dans cette discussion, j'en ferai évidemment de même!

Au sujet du temps UTC, est-ce vraiment un problème?
Dans mon cas l'important est d'obtenir la durée de l'évènement qui n'est donc pas tributaire du fuseau horaire!
Ou alors parles-tu de la conversion date US et européenne (mm/dd/aaaa VS dd/mm/aaaa)?
Je me suis cassé les dents longtemps sur les dates US/EUR et avec mon code actuel je m'en sort plutôt pas mal et simplement.

Gcal2Ecxel (gratuit) me parait toujours une piste intéressante mais je n'ai pas le don d'ubiquité (pour l'instant!)

A+