Outlook, changement du pointeur de la souris

[Pasqualini]

Bonjour,
j'ai écrit un module créant un fichier texte à partir du calendrier
de Outlook. Je l'ai créé plutôt que d'utiliser la possibilité qu'offre Outlook d'exporter
ce calendrier parce que je le voulais sous une certaine forme.
Le traitement est assez long. Ce que voudrais faire c'est :
Soit changer de pointeur de la souri et choisir HourGlass pendant le traitement
Soit afficher la progression sous la forme d'un affichage n'arrêtant pas le traitement, par exemple 10/2325 50/2325 , etc

Je n'ai pas trouver la solution.
Quelqu'un peut-il m'aider ?
Voici un morceau du code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    'Ecriture dans le fichier
    fsoFichier.WriteLine (strStream)
    'Instance des objets Outlook
    Set objApply = Outlook.Application
    Set objNameSpace = objApply.GetNamespace("MAPI")
    Set objFolder = objNameSpace.GetDefaultFolder(olFolderCalendar)
    'Set objRec = objCalendrier.GetRecurrencePattern
    'Boucle en fonction du nombre d'éléments
 
    For intNbr = 1 To objFolder.Items.Count
   .
   .
   Next

[helas]

Bonjour,
voir la commande SysCmd pour la progression
sinon Hourglass ou les 2 en même temps.

[Pasqualini]

Je vous remercie de vous intéresser à ma question.
Je n'ai pas vu comment utiliser SysCmd dans Outlook.
Il semble que ce soit une commande utlisée uniquement avec Access.

Pourriez vous écrire les ligne de code permettant, à l'intérieur de la boucle,
de visualiser l'avancement du traitement.

Merci

[helas]

SysCmd est effectivement utilisé avec access même si ces commandes ne provoque aucune erreur dans outlook
Peut-être créer un simple formulaire qui affiche la progression

[Pasqualini]

Je ne suis pas du tout expert en Visual Basic.
J'ai essayé d'utiliser Debug Print. Il n'ya pas d'erreur de
compilation, mais il n'y a pas d'affichage.

J'ai trouvé ceci sur I,ternet :

Code :

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
28
29
30
31
 
Utilisation des affichages
 
Les objets d'affichage permettent de créer des vues personnalisables qui facilitent le tri, le regroupement et l'affichage de données de types différents. Il existe plusieurs types d'affichages :
 
    Le type d'affichage Tableau (olTableView) présente les données dans un tableau simple.
    Le type d'affichage Calendrier (olCalendarView) présente les données au format calendaire.
    Le type d'affichage Carte (olCardView) présente les données sous la forme d'une série de cartes. Chaque carte contient les informations figurant dans l'élément et il est possible de les trier.
    Le type d'affichage Icône (olIconView) présente les données sous la forme d'icônes, comme un dossier Windows ou comme dans l'Explorateur.
    Le type d'affichage Chronologie (olTimelineView) présente les données reçues dans un ordre chronologique personnalisable.
 
Les affichages sont définis et personnalisés via la propriété XML de l'objet View. La propriété XML permet de renvoyer ou d'établir une définition XML personnalisée qui définit les différentes caractéristiques d'un affichage. La définition XML décrit l'affichage à l'aide d'une série de balises et de mots clés qui correspondent à ses différentes propriétés. L'exemple suivant crée un nouvel affichage pour le dossier Boîte de réception puis, en utilisant la propriété XML de l'objet View, affiche la définition XML de cet affichage dans la fenêtre Exécution de Visual Basic Editor.
 
Sub XMLView()
'Crée un affichage et affiche la définition XML 
'dans la fenêtre Exécution.
 
  Dim olApp As Outlook.Application
  Dim objViews As Views
  Dim objView As View
 
  Set olApp = Outlook.Application
  Set objViews = _
  olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Views
  Set objView = objViews.Add _
    ("New Table View", olTableView, _
    olViewSaveOptionAllFoldersOfType)
 
  Debug.Print objView.XML
 
End Sub

Est-il possible de l'adapter pour afficher l'avancement sous la forme
10/350
20/350
.
.
?

erci