Compteur sur l'ouverture d'un fichier PPT

Fermé
Tartine - 22 août 2008 à 09:17
 Tartine - 22 août 2008 à 13:00
Bonjour,
Je souhaite intégrer un compteur de visiteurs sur des fichiers Power Points qui se trouvent sur un serveur. Ce serait le même principe que pour compter le nombre de visiteurs qui surfent sur un site, sauf que là l'objectif est de compter le nombre de personnes qui ouvrent un fichier Power Point...
Est-ce que quelqu'un aurait la gentillesse d'aider un pauvre étudiant en train de se faire démonter par sa responsable? Ce serait vraiment cool si quelqu'un pouvait m'aider...
Merci d'avance...
Tartine

2 réponses

Ha merci beaucoup Michel,
j'ai juste des notions de VBA, car j'imagine que ce userform est à mettre sous VBA, mais je vais tâcher de l'adapter au mieux d'excel à PPT. En tout cas, merci beaucoup pour l'information,ça risque de beaucoup m'aider.
Bon weekend
Tartine
0
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 292
22 août 2008 à 10:00
Salut Tartine,

Une solution pourrait utiliser la base de registre avec un userform à placer dans un coin ou autre



Option Explicit

Sub auto_Open()
Dim visit


     ' Lit la valeur dans la base de registre
     visit = GetSetting(appname:="demo", section:="visiteurs", key:="Nombre")
    
     ' Si aucune valeur n'est présente dans la base de registre ...
     If visit = "" Then
          'on affecte la valeur 1 à la variable visit (première visite)
          visit = 1
      Else
        ' sinon, on incrémente le Nbre de visites
    visit = visit + 1
    End If
     ' Ecrit la nouvelle valeur visit dans la base de registre
     SaveSetting appname:="demo", section:="visiteurs", key:="Nombre", setting:=visit

    ' indique le nombre de visites dans userform "visites" avec label "compteur"
    With visites
    .compteur.Caption = visit
    .Show
    End With
    
End Sub


et pour remettre à zéro:

Sub Raz()
     ' Effacement de la clé dans la base de registre
     On Error Resume Next
     DeleteSetting "demo"
End Sub



ces 2 procédures tirées d'Excel (xl2K): donc peut-être des adaptations à effectuer pour ppt

Michel
-1